vasilito
ff4ff35918
Red Bear OS is a full fork. All sources must be available from git clone with zero network access. Removed gitignore rules that excluded fetched source trees under recipes/*/source/, local/recipes/kde/*/source/, local/recipes/qt/*/source/, and vendor source trees. Build artifacts (target/, build/, source.tar, *.o, *.so) remain excluded. 127291 files added — kernel, relibc, base, bootloader, pkgar, all KDE/Qt frameworks, mesa, wayland, DRM drivers, and every other recipe source.
20 lines
465 B
Tcl
20 lines
465 B
Tcl
#!@WISH@
|
|
# Example for use of GNU gettext.
|
|
# This file is in the public domain.
|
|
#
|
|
# Source code of the Tcl/Tk program.
|
|
|
|
package require msgcat
|
|
::msgcat::mcload [file join "@pkgdatadir@" "msgs"]
|
|
proc _ {s} {return [::msgcat::mc $s]}
|
|
|
|
frame .my
|
|
button .my.button \
|
|
-text [_ "Hello, world!"] \
|
|
-command exit
|
|
label .my.label \
|
|
-text [format [_ "This program is running as process number %d."] [pid]]
|
|
pack .my.button -side top
|
|
pack .my.label -side bottom
|
|
pack .my
|