From 0c518c95e4d1c3270fbc67143a6351ee81bb68f0 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 7 May 2004 10:51:56 +0000
Subject: Switched from pack to grid; Demos are put in a namespace

---
 demos/lines.tcl | 92 +++++++++++++++++++++++++++++----------------------------
 1 file changed, 47 insertions(+), 45 deletions(-)

(limited to 'demos/lines.tcl')

diff --git a/demos/lines.tcl b/demos/lines.tcl
index a540ac8..a3f875b 100644
--- a/demos/lines.tcl
+++ b/demos/lines.tcl
@@ -5,48 +5,50 @@ if {![info exists zincDemo]} {
     error "This script should be run from the zinc-widget demo."
 }
 
-set w .lines
-catch {destroy $w}
-toplevel $w
-wm title $w "Zinc Lines Demonstration"
-wm iconname $w Lines
-
-frame $w.buttons
-pack $w.buttons -side bottom -fill x -pady 2m
-button $w.buttons.dismiss -text Dismiss -command "destroy $w"
-button $w.buttons.code -text "See Code" -command "showCode $w"
-pack $w.buttons.dismiss $w.buttons.code -side left -expand 1
-
-set defaultfont [font create -family Helvetica -size 10 -weight bold]
-
-zinc $w.zinc -width 700 -height 600 -font 10x20 -borderwidth 3 -relief sunken
-pack $w.zinc
-
-$w.zinc add text 1 -font $defaultfont -text "A set of lines with different styles of lines and termination\nNB: some attributes such as line styles are not necessarily\navailable with an openGL rendering system" -anchor nw -position {20 20}
-
-$w.zinc add curve 1 {20 100 320 100}
-$w.zinc add curve 1 {20 120 320 120} -linewidth 20
-
-$w.zinc add curve 1 {20 160 320 160} -linewidth 20 -capstyle butt
-
-$w.zinc add curve 1 {20 200 320 200} -linewidth 20 -capstyle projecting
-
-$w.zinc add curve 1 {20 240 320 240} -linewidth 20 -linepattern AlphaStipple7 -linecolor red
-
-
-# right column
-$w.zinc add curve 1 {340 100 680 100} -firstend {10 10 10} -lastend {10 25 45}
-
-$w.zinc add curve 1 {340 140 680 140} -linewidth 2 -linestyle dashed
-
-$w.zinc add curve 1 {340 180 680 180} -linewidth 4 -linestyle mixed
-
-$w.zinc add curve 1 {340 220 680 220} -linewidth 2 -linestyle dotted
-
-
-$w.zinc add curve 1 {20 300 140 360 320 300 180 260} -closed 1 -filled 1 -fillpattern "" -fillcolor grey60 -linecolor red -marker AtcSymbol7 -markercolor blue
-
-
-$w.zinc add curve 1 {340 300 440 360 620 300 480 260} -closed 1 -linewidth 10 -joinstyle miter -linecolor red
-
-$w.zinc add curve 1 {400 300 440 330 560 300 480 280} -closed 1 -linewidth 10 -joinstyle round -tile "" -fillcolor grey60 -filled 1 -linecolor red
+namespace eval linesDemo {
+    variable w .lines
+    catch {destroy $w}
+    toplevel $w
+    wm title $w "Zinc Lines Demonstration"
+    wm iconname $w Lines
+    
+    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
+    
+    variable defaultfont [font create -family Helvetica -size 10 -weight bold]
+    
+    grid [zinc $w.zinc -width 700 -height 600 -font 10x20 -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
+    
+    $w.zinc add text 1 -font $defaultfont -text "A set of lines with different styles of lines and termination\nNB: some attributes such as line styles are not necessarily\navailable with an openGL rendering system" -anchor nw -position {20 20}
+    
+    $w.zinc add curve 1 {20 100 320 100}
+    $w.zinc add curve 1 {20 120 320 120} -linewidth 20
+    
+    $w.zinc add curve 1 {20 160 320 160} -linewidth 20 -capstyle butt
+    
+    $w.zinc add curve 1 {20 200 320 200} -linewidth 20 -capstyle projecting
+    
+    $w.zinc add curve 1 {20 240 320 240} -linewidth 20 -linepattern AlphaStipple7 -linecolor red
+    
+    
+    # right column
+    $w.zinc add curve 1 {340 100 680 100} -firstend {10 10 10} -lastend {10 25 45}
+    
+    $w.zinc add curve 1 {340 140 680 140} -linewidth 2 -linestyle dashed
+    
+    $w.zinc add curve 1 {340 180 680 180} -linewidth 4 -linestyle mixed
+    
+    $w.zinc add curve 1 {340 220 680 220} -linewidth 2 -linestyle dotted
+    
+    
+    $w.zinc add curve 1 {20 300 140 360 320 300 180 260} -closed 1 -filled 1 -fillpattern "" -fillcolor grey60 -linecolor red -marker AtcSymbol7 -markercolor blue
+    
+    
+    $w.zinc add curve 1 {340 300 440 360 620 300 480 260} -closed 1 -linewidth 10 -joinstyle miter -linecolor red
+    
+    $w.zinc add curve 1 {400 300 440 330 560 300 480 280} -closed 1 -linewidth 10 -joinstyle round -tile "" -fillcolor grey60 -filled 1 -linecolor red
+}
-- 
cgit v1.1