From 6e61e370c79d480bb09bc7db09ada9870a50babd Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Wed, 18 Oct 2006 11:58:23 +0000
Subject: Restored the tiling of the background on all platforms.

---
 demos/photoAlpha.tcl | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'demos/photoAlpha.tcl')

diff --git a/demos/photoAlpha.tcl b/demos/photoAlpha.tcl
index e3d41d6..764baca 100644
--- a/demos/photoAlpha.tcl
+++ b/demos/photoAlpha.tcl
@@ -43,13 +43,8 @@ namespace eval photoAlpha {
     ###########################################
     # Zinc
     ##########################################
-    if { $tcl_platform(platform) eq "unix" } {
-	zinc $w.zinc -width 350 -height 250 -render 1 -font $defaultfont \
+    zinc $w.zinc -width 350 -height 250 -render 1 -font $defaultfont \
 	    -borderwidth 3 -relief sunken -tile $texture
-    } else {
-	zinc $w.zinc -width 350 -height 250 -render 1 -font $defaultfont \
-	    -borderwidth 3 -relief sunken -backcolor \#898A8F
-    }
     grid $w.zinc -row 1 -column 0 -columnspan 2 -sticky news
     grid columnconfigure $w 0 -weight 1
     grid columnconfigure $w 1 -weight 1
-- 
cgit v1.1