Changeset 69 for trunk/gui/scripts/controls.tcl

Timestamp:

Sep 26, 2005 9:01:57 PM (19 years ago)

Author:

mmc

Message:

Fixed the size of various widgets to request a smaller size,
so applications don't need to take up so much screen real estate.

Fixed the <string> entries to set their <default> value properly.

Added a new <separator> entry, which adds separation between
input controls.

Added a "zoo" of examples, showing little snippets of XML code.

File:

• trunk/gui/scripts/controls.tcl (modified) (3 diffs)

trunk/gui/scripts/controls.tcl

@@ -131 +131 @@
             button $w -text $label -command [list $service run]
         }
+        separator {
+            # no widget to create
+            set _name2info($name-value) "--"
+        }
         default {
             error "don't know how to add control type \"$type\""
@@ -136 +140 @@
     }
 
-    if {$type != "control"} {
+    if {$type != "control" && $type != "separator"} {
         $_owner widgetfor $path $w
 
@@ -389 +393 @@
                 }
                 grid columnconfigure $frame 1 -weight 1
-            }
-
+            } elseif {$wv == "--"} {
+                grid rowconfigure $frame $row -minsize 10
+            }
 
             incr row