--- 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'!