--- a/UIGalleryView.st	Mon Nov 19 19:30:36 2007 +0100
+++ b/UIGalleryView.st	Wed Nov 28 13:14:41 2007 +0100
@@ -20,7 +20,7 @@
 
 View subclass:#Canvas
 	instanceVariableNames:'clientSpecHolder selection specification lastClickPoint
-		menuSelector uiBuilder hiddenCounter'
+		menuSelector uiBuilder hiddenCounter showBorders'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:UIGalleryView
@@ -156,6 +156,21 @@
     "
     minorKeys := aListOfSelectors.
     self selection:nil.
+!
+
+showBorders:aBoolean
+    "show borders around dragable objects"
+
+    canvas showBorders:aBoolean.
+! !
+
+!UIGalleryView methodsFor:'accessing-colors'!
+
+viewBackground:aColor
+    canvas notNil ifTrue:[
+        canvas viewBackground:aColor.
+    ].
+    ^ super viewBackground:aColor
 ! !
 
 !UIGalleryView methodsFor:'accessing-holders'!
@@ -320,6 +335,10 @@
     menuSelector := something.
 !
 
+showBorders:aBoolean
+    showBorders := aBoolean.
+!
+
 specification
     "get current specification
     "
@@ -350,10 +369,12 @@
     specification buildViewFor:builder in:self.
 
     subViews size ~~ 0 ifTrue:[
-        subViews do:[:v|
-            (self findSpecFor:v) notNil ifTrue:[
-                v borderWidth:1
-            ]
+        showBorders ifTrue:[
+            subViews do:[:v|
+                (self findSpecFor:v) notNil ifTrue:[
+                    v borderWidth:1
+                ].
+            ].
         ].
         realized ifTrue:[ self realizeAllSubViews ].
     ].
@@ -492,15 +513,31 @@
 
 !UIGalleryView::Canvas methodsFor:'initialization'!
 
+destroy
+    |winGrp|
+
+    winGrp := self windowGroup.
+    winGrp notNil ifTrue:[
+        winGrp removePreEventHook:self.
+    ].
+    super destroy.
+!
+
 initialize
     super initialize.
     clientSpecHolder := nil asValue.
     hiddenCounter := 0.
+    showBorders := true.
 !
 
 realize
+    |winGrp|
+
     super realize.
-    self windowGroup addPreEventHook:self.
+    winGrp := self windowGroup.
+    winGrp notNil ifTrue:[
+        winGrp addPreEventHook:self.
+   ].
 ! !
 
 !UIGalleryView::Canvas methodsFor:'searching'!