Changeset 69


Ignore:
Timestamp:
Sep 26, 2005 9:01:57 PM (16 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
Files:
23 added
5 edited

Legend:

Unmodified
Added
Removed
  • trunk/gui/scripts/analyzer.tcl

    r64 r69  
    1515package require Itk
    1616
    17 option add *Analyzer.width 5i widgetDefault
    18 option add *Analyzer.height 5i widgetDefault
     17option add *Analyzer.width 4i widgetDefault
     18option add *Analyzer.height 4i widgetDefault
    1919option add *Analyzer.simControl "auto" widgetDefault
    2020option add *Analyzer.simControlBackground "" widgetDefault
  • trunk/gui/scripts/controls.tcl

    r52 r69  
    131131            button $w -text $label -command [list $service run]
    132132        }
     133        separator {
     134            # no widget to create
     135            set _name2info($name-value) "--"
     136        }
    133137        default {
    134138            error "don't know how to add control type \"$type\""
     
    136140    }
    137141
    138     if {$type != "control"} {
     142    if {$type != "control" && $type != "separator"} {
    139143        $_owner widgetfor $path $w
    140144
     
    389393                }
    390394                grid columnconfigure $frame 1 -weight 1
    391             }
    392 
     395            } elseif {$wv == "--"} {
     396                grid rowconfigure $frame $row -minsize 10
     397            }
    393398
    394399            incr row
  • trunk/gui/scripts/deviceViewer1D.tcl

    r26 r69  
    1919option add *DeviceViewer1D.deviceSize 0.25i widgetDefault
    2020option add *DeviceViewer1D.deviceOutline black widgetDefault
     21option add *DeviceViewer1D*graph.width 3i widgetDefault
     22option add *DeviceViewer1D*graph.height 2i widgetDefault
    2123
    2224itcl::class Rappture::DeviceViewer1D {
     
    9294    itk_component add graph {
    9395        blt::graph $itk_component(inner).graph \
    94             -highlightthickness 0 -plotpadx 0 -plotpady 0 \
    95             -width 4i -height 2i
     96            -highlightthickness 0 -plotpadx 0 -plotpady 0
    9697    } {
    9798        keep -background -foreground -cursor -font
  • trunk/gui/scripts/textentry.tcl

    r45 r69  
    8383
    8484    set str [$_owner xml get $path.default]
    85     if {"" != $str} { value $str }
     85    if {"" != $str} {
     86        _layout  ;# must fix layout or value won't take
     87        value $str
     88    }
    8689}
    8790
  • trunk/gui/scripts/xyresult.tcl

    r65 r69  
    1313package require BLT
    1414
    15 option add *XyResult.width 4i widgetDefault
    16 option add *XyResult.height 4i widgetDefault
     15option add *XyResult.width 3i widgetDefault
     16option add *XyResult.height 3i widgetDefault
    1717option add *XyResult.gridColor #d9d9d9 widgetDefault
    1818option add *XyResult.activeColor blue widgetDefault
Note: See TracChangeset for help on using the changeset viewer.