hg/stx-libtool2: comparison UIGalleryView.st

equal deleted inserted replaced

-:556bb6c9e36c
+:230fe13c4e51
 "
 COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG
-All Rights Reserved
+	      All Rights Reserved
 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 !UIGalleryView class methodsFor:'documentation'!
 copyright
 "
 COPYRIGHT (c) 1997 by Claus Gittinger / eXept Software AG
-All Rights Reserved
+	      All Rights Reserved
 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 into other components by drag & drop or copy @ paste. The objects
 which are draged/droped must be kind of UISpecification's.
 The UISelectionPanel used by the UIPainter is implemented in this way.
 [author:]
-Claus Gittinger
+	Claus Gittinger
-Claus Atzkern
+	Claus Atzkern
 [see also:]
-UIPainter
+	UIPainter
-UISelectionPanel
+	UISelectionPanel
 "
 !
 examples
 "
 opens a gallery
-[exBegin]
+									[exBegin]
 |top sel|
 top := StandardSystemView new label:'gallery'; extent:500@300.
 sel := UIGalleryView origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:top.
 sel labels:#(    'Buttons'
-'Panels'
+		     'Panels'
-'Text'
+		     'Text'
-).
+		   ).
 sel minorKeys:#( #standardButtonToggle
-#standardPanels
+		     #standardPanels
-#standardText
+		     #standardText
-).
+		   ).
 sel majorKey:UISelectionPanel.
 top open.
-[exEnd]
+									[exEnd]
 "
 ! !
 !UIGalleryView methodsFor:'accessing'!
 |appl|
 appl := self application.
 appl notNil ifTrue:[
-majorKey := appl resolveName:aKey
+	majorKey := appl resolveName:aKey
 ] ifFalse:[
-majorKey := Smalltalk resolveName:aKey inClass:self class
+	majorKey := Smalltalk resolveName:aKey inClass:self class
 ].
 self selection:nil
 !
 minorKeys
 minorKeysHolder:aValueHolder
 "set the holder keeping the minor keys; the selectors to access
 specifications from a class associated with the majorKey.
 "
 minorKeysHolder notNil ifTrue:[
-minorKeysHolder removeDependent:self.
+	minorKeysHolder removeDependent:self.
 ].
 (minorKeysHolder := aValueHolder) notNil ifTrue:[
-minorKeysHolder addDependent:self.
+	minorKeysHolder addDependent:self.
 ].
 self minorKeys:(minorKeysHolder value)
 ! !
 !UIGalleryView methodsFor:'change & update'!
 |specification selector selection application|
 selection := tabRaw listIndexOf:something.
 minorKeysHolder notNil ifTrue:[
-minorKeys := minorKeysHolder value.
+	minorKeys := minorKeysHolder value.
 ].
 (selection notNil and:[minorKeys size >= selection]) ifTrue:[
-selector := minorKeys at:selection.
+	selector := minorKeys at:selection.
-(majorKey respondsTo:selector) ifTrue:[
+	(majorKey respondsTo:selector) ifTrue:[
-specification := majorKey perform:selector
+	    specification := majorKey perform:selector
-] ifFalse:[
+	] ifFalse:[
-(application := self application) notNil ifTrue:[
+	    (application := self application) notNil ifTrue:[
-Object messageNotUnderstoodSignal handle:[:ex|
+		Object messageNotUnderstoodSignal handle:[:ex|
-(application class respondsTo:selector) ifTrue:[
+		    (application class respondsTo:selector) ifTrue:[
-specification := application class perform:selector
+			specification := application class perform:selector
-]
+		    ]
-] do:[
+		] do:[
-specification := application aspectFor:selector
+		    specification := application aspectFor:selector
-]
+		]
-]
+	    ]
-]
+	]
 ].
 canvas specification:specification.
 !
 update:something with:aParameter from:changedObject
 "one of my models changed its value
 "
 changedObject == minorKeysHolder ifTrue:[
-^ self minorKeys:( minorKeysHolder value)
+	^ self minorKeys:( minorKeysHolder value)
 ].
 super update:something with:aParameter from:changedObject.
 ! !
 !UIGalleryView methodsFor:'initialize / release'!
 destroy
 minorKeysHolder notNil ifTrue:[
-minorKeysHolder removeDependent:self.
+	minorKeysHolder removeDependent:self.
-minorKeysHolder := nil.
+	minorKeysHolder := nil.
 ].
 super destroy.
 !
 initialize
 clientSpecHolder:aHolder
 "set the holder which keeps the current selection or in case of
 no selection the specification under the cursor
 "
 (clientSpecHolder := aHolder) notNil ifTrue:[
-clientSpecHolder value:selection
+	clientSpecHolder value:selection
 ].
 !
 menuSelector
 "return the value of the instance variable 'menuSelector' (automatically generated)"
 |builder|
 self selection:nil.
 self subViews copy do:[:aSubView|
-aSubView ~~ inputView ifTrue:[
+	aSubView ~~ inputView ifTrue:[
-aSubView destroy
+	    aSubView destroy
-]
+	]
 ].
 aSpecOrSpecArray notNil ifTrue:[
-specification := UISpecification from:aSpecOrSpecArray.
+	specification := UISpecification from:aSpecOrSpecArray.
-(specification respondsTo:#buildViewFor:in:) ifFalse:[
+	(specification respondsTo:#buildViewFor:in:) ifFalse:[
-specification := nil.
+	    specification := nil.
-^ self
+	  ^ self
-].
+	].
-(builder := uiBuilder) isNil ifTrue:[
+	(builder := uiBuilder) isNil ifTrue:[
-builder := UIBuilder new isEditing:true.
+	    builder := UIBuilder new isEditing:true.
-builder showDefaults:true.
+	    builder showDefaults:true.
-].
+	].
-specification buildViewFor:builder in:self.
+	specification buildViewFor:builder in:self.
-subViews do:[:v|
+	subViews do:[:v|
-(v ~~ inputView and:[(self findSpecFor:v) notNil]) ifTrue:[
+	    (v ~~ inputView and:[(self findSpecFor:v) notNil]) ifTrue:[
-v borderWidth:1.
+		v borderWidth:1.
-]
+	    ]
-].
+	].
-self shown ifTrue:[
+	self shown ifTrue:[
-self realizeAllSubViews.
+	    self realizeAllSubViews.
-inputView raise
+	    inputView raise
-]
+	]
 ] ifFalse:[
-specification := nil
+	specification := nil
 ]
 ! !
 "build spec out of spec
 "
 |spec comp coll|
 (aSpec notNil and:[aSpec canUIDrag]) ifFalse:[
-^ nil
+	^ nil
 ].
 spec := aSpec copy.
 (aSpec class supportsSubComponents and:[aSpec component notNil]) ifFalse:[
-^ spec
+	^ spec
 ].
 comp := aSpec component.
 spec component:nil.
 comp canUIDrag ifFalse:[
 ^ spec
 ].
 coll := OrderedCollection new.
 comp do:[:anEntry||spc|
-(spc := self buildSpecFrom:anEntry) notNil ifTrue:[
+	(spc := self buildSpecFrom:anEntry) notNil ifTrue:[
-coll add:spc
+	    coll add:spc
-]
+	]
 ].
 coll isEmpty ifTrue:[
 ^ spec
 ].
 comp := comp copy.
 |dragObj spec name|
 spec := self findSpecFor:selection.
 spec notNil ifTrue:[
-spec := self buildSpecFrom:spec.
+	spec := self buildSpecFrom:spec.
-name := spec className asString.
+	name := spec className asString.
-name := name copyFrom:1 to:(name size - ('Spec' size) + 1).
+	name := name copyFrom:1 to:(name size - ('Spec' size) + 1).
-name at:1 put:(name at:1) asLowercase.
+	name at:1 put:(name at:1) asLowercase.
-name at:(name size) put:$1.
+	name at:(name size) put:$1.
-spec name:name.
+	spec name:name.
-self showUnselected.
+	self showUnselected.
-dragObj := DropSpec for:selection specification:spec.
+	dragObj := DropSpec for:selection specification:spec.
-"/ self showSelected.
+	"/ self showSelected.
-DragAndDropManager startDrag:dragObj from:inputView.
+	DragAndDropManager startDrag:dragObj from:inputView.
 ]
 !
 startDragWithOffset:offs
 |dragObj spec o|
 spec := self findSpecFor:selection.
 spec notNil ifTrue:[
-spec := self buildSpecFrom:spec.
+	spec := self buildSpecFrom:spec.
-spec name:(spec copy userFriendlyName, $1).
+	spec name:(spec copy userFriendlyName, $1).
-self showUnselected.
+	self showUnselected.
-dragObj := DropSpec for:selection specification:spec.
+	dragObj := DropSpec for:selection specification:spec.
-"/ self showSelected.
+	"/ self showSelected.
-o := lastClickPoint - selection origin.
+	o := lastClickPoint - selection origin.
-DragAndDropManager
+	DragAndDropManager
-startDrag:dragObj
+	    startDrag:dragObj
-from:inputView
+	    from:inputView
-offset:o.
+	    offset:o.
 ]
 "Created: 11.8.1997 / 00:44:17 / cg"
 "Modified: 11.8.1997 / 00:48:35 / cg"
 ! !
 "start a drag on selection
 "
 |sensor|
 (state ~~ 0 and:[lastClickPoint notNil and:[selection notNil]]) ifTrue:[
-sensor := self sensor.
+	sensor := self sensor.
-sensor anyButtonPressed ifTrue:[
+	sensor anyButtonPressed ifTrue:[
-(lastClickPoint dist:(x@y)) > 10.0 ifTrue:[
+	    (lastClickPoint dist:(x@y)) > 10.0 ifTrue:[
-^ self startDragWithOffset:(x@y) - lastClickPoint
+		^ self startDragWithOffset:(x@y) - lastClickPoint
-]
+	    ]
-]
+	]
 ]
 !
 buttonPress:button x:x y:y
 "change selection
 "
 |application|
 button == 1 ifTrue:[
-lastClickPoint := Point x:x y:y.
+	lastClickPoint := Point x:x y:y.
-self selection:(self findObjectAtX:x y:y).
+	self selection:(self findObjectAtX:x y:y).
 ]  ifFalse:[
-lastClickPoint := nil.
+	lastClickPoint := nil.
-(menuSelector notNil and:[(application := self application) notNil]) ifTrue:[
+	(menuSelector notNil and:[(application := self application) notNil]) ifTrue:[
-Object messageNotUnderstoodSignal handle:[:ex|
+	    Object messageNotUnderstoodSignal handle:[:ex|
-] do:[
+	    ] do:[
-application aspectFor:menuSelector
+		application aspectFor:menuSelector
-]
+	    ]
-]
+	]
 ]
 !
 exposeX:x y:y width:w height:h
 "handle an expose event from device; redraw selection
 "
 super exposeX:x y:y width:w height:h.
 (selection notNil and:[self sensor hasExposeEventFor:selection]) ifFalse:[
-self showSelected.
+	self showSelected.
 ].
 !
 id    := inputView id.
 subViews do:[:v|
 	|pX pY|
-v ~~ inputView ifTrue:[
+	v ~~ inputView ifTrue:[
-p := device translatePoint:point from:id to:(v id).
+	    p := device translatePoint:point from:id to:(v id).
 	    pX := p x.
 	    pY := p y.
-(     pX >= 0 and:[pX <= v width
+	    (     pX >= 0 and:[pX <= v width
-and:[pY >= 0 and:[pY <= v height
+	     and:[pY >= 0 and:[pY <= v height
-and:[(self findSpecFor:v) notNil]]]]
+	     and:[(self findSpecFor:v) notNil]]]]
-) ifTrue:[
+	    ) ifTrue:[
-^ v
+		^ v
-]
+	    ]
-]
+	]
 ].
 ^ nil
 !
 "returns subspec assigned to instance or nil
 "
 |name|
 anObject notNil ifTrue:[
-name := anObject name.
+	name := anObject name.
-specification do:[:aSpec|
+	specification do:[:aSpec|
-aSpec name = name ifTrue:[
+	    aSpec name = name ifTrue:[
-aSpec canUIDrag ifTrue:[^ aSpec]
+		aSpec canUIDrag ifTrue:[^ aSpec]
-ifFalse:[^ nil]
+			       ifFalse:[^ nil]
-]
+	    ]
-]
+	]
 ].
 ^ nil
 ! !
 handlesOf:aComponent do:aOneArgBlock
 "evaluate the block on each handle; the argument to the block
 is a rectangle
 "
 aComponent notNil ifTrue:[
-aOneArgBlock value:(aComponent origin       - (2@2) extent:6@6).
+	aOneArgBlock value:(aComponent origin       - (2@2) extent:6@6).
-aOneArgBlock value:(aComponent corner       - (1@1) extent:6@6).
+	aOneArgBlock value:(aComponent corner       - (1@1) extent:6@6).
-aOneArgBlock value:(aComponent topRight     - (1@2) extent:6@6).
+	aOneArgBlock value:(aComponent topRight     - (1@2) extent:6@6).
-aOneArgBlock value:(aComponent bottomLeft   - (2@1) extent:6@6).
+	aOneArgBlock value:(aComponent bottomLeft   - (2@1) extent:6@6).
-aOneArgBlock value:(aComponent leftCenter   - (2@0) extent:6@6).
+	aOneArgBlock value:(aComponent leftCenter   - (2@0) extent:6@6).
-aOneArgBlock value:(aComponent rightCenter  - (1@0) extent:6@6).
+	aOneArgBlock value:(aComponent rightCenter  - (1@0) extent:6@6).
-aOneArgBlock value:(aComponent topCenter    - (0@2) extent:6@6).
+	aOneArgBlock value:(aComponent topCenter    - (0@2) extent:6@6).
-aOneArgBlock value:(aComponent bottomCenter - (0@1) extent:6@6).
+	aOneArgBlock value:(aComponent bottomCenter - (0@1) extent:6@6).
 ]
 !
 "selection changed
 "
 |spec|
 selection ~~ anObject ifTrue:[
-self showUnselected.
+	self showUnselected.
-spec := self findSpecFor:anObject.
+	spec := self findSpecFor:anObject.
-spec notNil ifTrue:[
+	spec notNil ifTrue:[
-selection := anObject.
+	    selection := anObject.
-self showSelected
+	    self showSelected
-] ifFalse:[
+	] ifFalse:[
-selection := nil
+	    selection := nil
-].
+	].
-clientSpecHolder notNil ifTrue:[
+	clientSpecHolder notNil ifTrue:[
-clientSpecHolder value:spec
+	    clientSpecHolder value:spec
-]
+	]
 ]
 !
 "show selected
 "
 shown ifFalse:[^ self].
 selection notNil ifTrue:[
-self clippedByChildren:false.
+	self clippedByChildren:false.
-self handlesOf:selection do:[:aRectangle|
+	self handlesOf:selection do:[:aRectangle|
-self fillRectangle:aRectangle
+	    self fillRectangle:aRectangle
-].
+	].
-self clippedByChildren:true.
+	self clippedByChildren:true.
 ].
 !
 "show unselected
 "
 |r currSel|
 (currSel := selection) isNil ifTrue:[
-^ self
+	^ self
 ].
 shown ifFalse:[^ self].
 selection := nil.
 self clippedByChildren:false.
 self handlesOf:currSel do:[:aRectangle|
-self clearRectangle:aRectangle
+	self clearRectangle:aRectangle
 ].
 self clippedByChildren:true.
 r := currSel bounds.
 subViews do:[:sv|
-|absOrg absFrame|
+	|absOrg absFrame|
-sv ~~ inputView ifTrue:[
+	sv ~~ inputView ifTrue:[
-(sv bounds intersects:r) ifTrue:[
+	    (sv bounds intersects:r) ifTrue:[
-"/ sv borderColor:(Color gray:5).
+		"/ sv borderColor:(Color gray:5).
-sv borderColor:(Color black).
+		sv borderColor:(Color black).
-sv withAllSubViewsDo:[:v|
+		sv withAllSubViewsDo:[:v|
-v fill:v viewBackground.
+		    v realized ifTrue:[
-v exposeX:0 y:0 width:v width height:v height.
+			v fill:v viewBackground.
-]
+			v exposeX:0 y:0 width:v width height:v height.
-]
+		    ]
-]
+		]
+	    ]
+	]
 ].
 selection := currSel.
 "Modified: / 9.11.1998 / 12:49:57 / cg"
 ! !
 root   := device rootView.
 extent := aView extent.
 point  := device translatePoint:0@0 from:(aView id) to:(root id).
 (point x > 0 and:[point y > 0]) ifTrue:[
-point := point + extent.
+	point := point + extent.
-(point x < root width and:[point y < root height]) ifTrue:[
+	(point x < root width and:[point y < root height]) ifTrue:[
-aView topView raise.
+	    aView topView raise.
-device sync.
+	    device sync.
-aView invalidate.
+	    aView invalidate.
-aView windowGroup processExposeEvents.
+	    aView windowGroup processExposeEvents.
-displayObject := Image fromView:aView grab:false.
+	    displayObject := Image fromView:aView grab:false.
-]
+	]
 ].
 displayObject isNil ifTrue:[
-displayObject := Form extent:extent depth:1.
+	displayObject := Form extent:extent depth:1.
-displayObject colorMap:(Array with:Color white with:Color black).
+	displayObject colorMap:(Array with:Color white with:Color black).
-displayObject fill:(Color colorId:0).
+	displayObject fill:(Color colorId:0).
-displayObject paint:(Color colorId:1).
+	displayObject paint:(Color colorId:1).
-displayObject displayRectangleX:0 y:0 width:aView extent x height:aView extent y.
+	displayObject displayRectangleX:0 y:0 width:aView extent x height:aView extent y.
 ].
 aSpec class == UISubSpecification ifTrue:[
-aSpec layout:(LayoutOrigin fromPoint:0@0)
+	aSpec layout:(LayoutOrigin fromPoint:0@0)
 ].
 inst := self new.
 inst displayObject:displayObject.
 inst theObject:aSpec.

changeset 1120	230fe13c4e51
parent 1113	aec10e7dbe80
child 1127	41253026b070