diff options
Diffstat (limited to 'demos/labelformat.tcl')
| -rw-r--r-- | demos/labelformat.tcl | 86 |
1 files changed, 0 insertions, 86 deletions
diff --git a/demos/labelformat.tcl b/demos/labelformat.tcl deleted file mode 100644 index cab978b..0000000 --- a/demos/labelformat.tcl +++ /dev/null @@ -1,86 +0,0 @@ -# these simple samples have been developped by C. Mertz mertz@cena.fr in perl -# tcl version by Jean-Paul Imbert imbert@cena.fr - -if {![info exists zincDemo]} { - error "This script should be run from the zinc-widget demo." -} - -namespace eval labelFormat { - variable w .labelformat - catch {destroy $w} - toplevel $w - wm title $w "Zinc Label Format Demonstration" - wm iconname $w Label - - variable defaultfont [font create -family Helvetica -size 16 -weight normal] - - grid [button $w.dismiss -text Dismiss -command "destroy $w"] -row 2 -column 0 -pady 10 - grid [button $w.code -text "See Code" -command "showCode $w"] -row 2 -column 1 -pady 10 - - ########################################### - # Text zone - ########################################### - - grid [text $w.text -relief sunken -borderwidth 2 -height 4] \ - -row 0 -column 0 -columnspan 2 -sticky ew - - $w.text insert end {This scipt demonstrates the use of labelformat for tabular items. - The fieldPos (please, refer to the labelformat type description - in the Zinc reference manual) of each field as described in - the labelformat is displayed inside the field.} - - - ########################################### - # Zinc - ########################################## - grid [zinc $w.zinc -width 600 -height 500 -font $defaultfont -borderwidth 3 \ - -relief sunken] -row 1 -column 0 -columnspan 2 -sticky news - grid columnconfigure $w 0 -weight 1 - grid columnconfigure $w 1 -weight 1 - grid rowconfigure $w 1 -weight 2 - - ### this function displays in each field, the corresponding <fieldPos> - ### part of the labelformat - proc setLabelContent {item labelformat} { - variable w - set i 0 - foreach fieldSpec $labelformat { - set posSpec $i - regexp {^.\d+.\d+(.*)} $fieldSpec "" posSpec - $w.zinc itemconfigure $item $i -text "$i: $posSpec" -border "contour" - incr i - } - } - - ########################################### - # Tabulars - ########################################### - - ### first labelformat and tabular - variable labelformat1 {x100x20+0+0 x100x20+100+0 x100x20+0+20 x100x20+100+20 x100x20+50+55} - - variable tabular1 [$w.zinc add tabular 1 5 -position {10 10} -labelformat $labelformat1] - - setLabelContent $tabular1 $labelformat1 - - $w.zinc add text 1 -position {10 100} -text "All fields positions\nare given in pixels" - - - ### second labelformat and tabular - variable labelformat2 {x110x20+100+30 x80x20<0<0 x80x20<0>0 x80x20>0>0 x80x20>0<0} - - variable tabular2 [$w.zinc add tabular 1 5 -position {270 10} -labelformat $labelformat2] - setLabelContent $tabular2 $labelformat2 - - $w.zinc add text 1 -position {260 100} -text "All fields positions are given\nrelatively to field 0.\nThey are either on the left/right\nand up/down the field 0." - - - ### third labelformat and tabular - variable labelformat3 {x200x70+100+70 x80x26^0<0 x80x26^0>0 x80x29$0$0 x80x32$0^0 x90x20<1^1 x90x20<2$2 x90x20^4<4 x90x20^3>3} - - variable tabular3 [$w.zinc add tabular 1 9 -position {150 180} -labelformat $labelformat3] - - setLabelContent $tabular3 $labelformat3 - - $w.zinc add text 1 -position {40 360} -text "Fields 1-4 are positionned relatively to field 0.\nField 5 is positionned relatively to field 1\nField 6 is positionned relatively to field 2..." -} |