From 960cdf29197bc3f5922110cf26627aa9709ac79b Mon Sep 17 00:00:00 2001
From: cvs2svn
Date: Fri, 10 Jun 2005 10:29:11 +0000
Subject: This commit was manufactured by cvs2svn to create branch 'bogue40'.

---
 demos/labelformat.tcl | 86 ---------------------------------------------------
 1 file changed, 86 deletions(-)
 delete mode 100644 demos/labelformat.tcl

(limited to 'demos/labelformat.tcl')

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..."
-}
-- 
cgit v1.1