Changeset 69 for trunk/gui

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.

Location:

trunk/gui/scripts

Files:

• analyzer.tcl (modified) (1 diff)
• controls.tcl (modified) (3 diffs)
• deviceViewer1D.tcl (modified) (2 diffs)
• textentry.tcl (modified) (1 diff)
• xyresult.tcl (modified) (1 diff)

trunk/gui/scripts/analyzer.tcl

@@ -15 +15 @@
 package require Itk
 
-option add *Analyzer.width 5i widgetDefault
-option add *Analyzer.height 5i widgetDefault
+option add *Analyzer.width 4i widgetDefault
+option add *Analyzer.height 4i widgetDefault
 option add *Analyzer.simControl "auto" widgetDefault
 option add *Analyzer.simControlBackground "" widgetDefault

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

trunk/gui/scripts/deviceViewer1D.tcl

@@ -19 +19 @@
 option add *DeviceViewer1D.deviceSize 0.25i widgetDefault
 option add *DeviceViewer1D.deviceOutline black widgetDefault
+option add *DeviceViewer1D*graph.width 3i widgetDefault
+option add *DeviceViewer1D*graph.height 2i widgetDefault
 
 itcl::class Rappture::DeviceViewer1D {
@@ -92 +94 @@
     itk_component add graph {
         blt::graph $itk_component(inner).graph \
-            -highlightthickness 0 -plotpadx 0 -plotpady 0 \
-            -width 4i -height 2i
+            -highlightthickness 0 -plotpadx 0 -plotpady 0
     } {
         keep -background -foreground -cursor -font

trunk/gui/scripts/textentry.tcl

@@ -83 +83 @@
 
     set str [$_owner xml get $path.default]
-    if {"" != $str} { value $str }
+    if {"" != $str} {
+        _layout  ;# must fix layout or value won't take
+        value $str
+    }
 }
 

trunk/gui/scripts/xyresult.tcl

@@ -13 +13 @@
 package require BLT
 
-option add *XyResult.width 4i widgetDefault
-option add *XyResult.height 4i widgetDefault
+option add *XyResult.width 3i widgetDefault
+option add *XyResult.height 3i widgetDefault
 option add *XyResult.gridColor #d9d9d9 widgetDefault
 option add *XyResult.activeColor blue widgetDefault