From e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf Mon Sep 17 00:00:00 2001
From: cvs2svn
Date: Mon, 24 Jan 2005 15:46:33 +0000
Subject: This commit was manufactured by cvs2svn to create branch
 'POSTSCRIPT'.

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

(limited to 'demos/windowContours.tcl')

diff --git a/demos/windowContours.tcl b/demos/windowContours.tcl
deleted file mode 100644
index 7b6c263..0000000
--- a/demos/windowContours.tcl
+++ /dev/null
@@ -1,92 +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 windowContours {
-    variable w .windowContours
-    catch {destroy $w}
-    toplevel $w
-    wm title $w "Zinc Contours Demonstration"
-    wm iconname $w Contours
-
-    variable defaultfont [font create -family Helvetica -size 20 -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
-
-    # Creating the zinc widget
-    grid [zinc $w.zinc -width 600 -height 500 -font 9x15 -borderwidth 3 \
-	       -relief sunken] -row 0 -column 0 -columnspan 2 -sticky news
-    grid columnconfigure $w 0 -weight 1
-    grid columnconfigure $w 1 -weight 1
-    grid rowconfigure $w 0 -weight 2
-
-    # The explanation displayed when running this demo
-    $w.zinc add text 1 -position {10 10} -text "These windows are simply rectangles holed by 4 smaller\nrectangles. The text appears behind the window glasses.\nYou can drag text or windows" -font 10x20
-
-
-    # Text in background
-    variable backtext [$w.zinc add text 1 -position {50 200} \
-			   -text "This text appears\nthrough holes of curves" \
-			   -font "-adobe-helvetica-bold-o-normal--34-240-100-100-p-182-iso8859-1"]
-
-    variable window [$w.zinc add curve 1 {100 100 300 100 300 400 100 400} -closed 1 \
-			 -visible 1 -filled 1 -fillcolor grey66]
-
-
-    variable aGlass [$w.zinc add rectangle 1 {120 120 190 240}]
-    $w.zinc contour $window add +1 $aGlass
-
-    $w.zinc translate $aGlass 90 0
-    $w.zinc contour $window add +1 $aGlass
-
-    $w.zinc translate $aGlass 0 140
-    $w.zinc contour $window add +1 $aGlass
-
-    $w.zinc translate $aGlass -90 0
-    $w.zinc contour $window add +1 $aGlass
-
-
-    # deleting $aGlass which is no more usefull
-    $w.zinc remove $aGlass
-
-    # cloning $window
-    variable window2 [$w.zinc clone $window]
-
-    # changing its background moving it and scaling it!
-    $w.zinc itemconfigure $window2 -fillcolor grey50
-    $w.zinc translate $window2 30 50
-    $w.zinc scale $window 0.8 0.8
-
-
-    # adding drag and drop callback to the two windows and backtext
-    foreach item "$window $window2 $backtext" {
-	# Some bindings for dragging the items
-	$w.zinc bind $item <1> "::windowContours::itemStartDrag $item %x %y" 
-	$w.zinc bind $item <B1-Motion> "::windowContours::itemDrag $item %x %y"
-    }
-
-    # callback for starting a drag
-    variable xOrig ""
-    variable yOrig ""
-
-    proc itemStartDrag {item x y} {
-	variable xOrig
-	variable yOrig
-	set xOrig $x
-	set yOrig $y
-    }
-
-    # Callback for moving an item
-    proc itemDrag {item x y} {
-	variable xOrig
-	variable yOrig
-	variable w
-	$w.zinc translate $item [expr $x-$xOrig] [expr $y-$yOrig];
-	set xOrig $x;
-	set yOrig $y;
-    }
-}
-- 
cgit v1.1