Index: doc/example-scripts/tk-mini.html =================================================================== diff -u -r71e18053ef7dd9a53f11d14f3a91b8a1091e90bb -rc4f449cb353be812ba6502ef8e9587e87881f59b --- doc/example-scripts/tk-mini.html (.../tk-mini.html) (revision 71e18053ef7dd9a53f11d14f3a91b8a1091e90bb) +++ doc/example-scripts/tk-mini.html (.../tk-mini.html) (revision c4f449cb353be812ba6502ef8e9587e87881f59b) @@ -1,799 +1,799 @@ - - - - - -Listing of doc/example-scripts/tk-mini.tcl - - - - - -
-
-
-

Tiny Tk example scriped based on NX.

-
-
-tk-mini.png -
-
-
-
-
package require Tk
-package require nx::trait
-
-nx::Class create MyClass {
-  #
-  # A sample application class that creates a text entry field bound
-  # to an instance variable. When the provided button is pressed, the
-  # content of the variable is placed into an additional output label.
-
-  #
-  # The callback trait imports methods "callback" and "bindvar":
-  #
-  :require trait nx::trait::callback
-
-  :public method button-pressed {} {
-    # When this method is invoked, the content of the ".label" widget
-    # is updated with the content of the instance variable "myvar".
-    .label configure -text ${:myvar}
-  }
-
-  :method init {} {
-    wm geometry . -500+500
-    pack [label .title -text "Type something and press the start button ..."]
-    pack [entry .text -textvariable [:bindvar myvar]]
-    pack [label .label]
-    pack [button .button -text start -command [:callback button-pressed]]
-  }
-}
-
-MyClass new
-
-
-
-
-
- - - + + + + + +Listing of doc/example-scripts/tk-mini.tcl + + + + + +
+
+
+

Tiny Tk example scriped based on NX.

+
+
+tk-mini.png +
+
+
+
+
package require Tk
+package require nx::trait
+
+nx::Class create MyClass {
+  #
+  # A sample application class that creates a text entry field bound
+  # to an instance variable. When the provided button is pressed, the
+  # content of the variable is placed into an additional output label.
+
+  #
+  # The callback trait imports methods "callback" and "bindvar":
+  #
+  :require trait nx::trait::callback
+
+  :public method button-pressed {} {
+    # When this method is invoked, the content of the ".label" widget
+    # is updated with the content of the instance variable "myvar".
+    .label configure -text ${:myvar}
+  }
+
+  :method init {} {
+    wm geometry . -500+500
+    pack [label .title -text "Type something and press the start button ..."]
+    pack [entry .text -textvariable [:bindvar myvar]]
+    pack [label .label]
+    pack [button .button -text start -command [:callback button-pressed]]
+  }
+}
+
+MyClass new
+
+
+
+
+
+ + +