--- a/UIPainter.st Sat Mar 06 13:48:59 1999 +0100
+++ b/UIPainter.st Sat Mar 06 18:12:24 1999 +0100
@@ -2792,26 +2792,28 @@
aspects := IdentityDictionary new.
aspects at:#classNameChannel put:(
- (specClass notNil ifTrue:[specClass]
- ifFalse:['NewApplication']) asValue
+ (specClass notNil ifTrue:[specClass]
+ ifFalse:['NewApplication']) asValue
).
specSuperclass isNil ifTrue:[
- specClass notNil ifTrue:[
- (cls := self resolveName:specClass) notNil ifTrue:[
- specSuperclass := cls superclass name.
- ]
- ]
+ specClass notNil ifTrue:[
+ (cls := self resolveName:specClass) notNil ifTrue:[
+ specSuperclass := cls superclass name.
+ ]
+ ]
].
aspects at:#superclassNameChannel put:(
- (specSuperclass notNil ifTrue:[specSuperclass]
- ifFalse:['ApplicationModel']) asValue
+ (specSuperclass notNil ifTrue:[specSuperclass]
+ ifFalse:['ApplicationModel']) asValue
).
aspects at:#superclassNameDefaults put:#('ApplicationModel' 'SimpleDialog') asValue.
aspects at:#methodNameChannel put:(
- (specSelector notNil ifTrue:[specSelector asValue]
- ifFalse:[#windowSpec]) asValue
+ (specSelector notNil ifTrue:[specSelector asValue]
+ ifFalse:[#windowSpec]) asValue
).
+ "/ the canvas ...
+
treeView := TreeView new.
painterView := StandardSystemView new.
painterView name: self class defaultNameOfCanvas.
@@ -2827,13 +2829,15 @@
super openInterface:aSymbol.
+
topView := self window.
-
topView label:'GUI Painter'.
painterView openInGroup:(topView windowGroup).
painterView application:self.
+ "/ the selectionPanel ...
+
selectionPanel := UISelectionPanel new.
selectionPanel allButOpenInterface:#windowSpec.
selectionPanel window openInGroup:(topView windowGroup).
@@ -2843,14 +2847,14 @@
topView iconLabel:'GUI Painter'.
topView icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100).
- painterView iconLabel:'GUI Painter'.
+ painterView iconLabel:'GUI Canvas'.
painterView icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100).
topView bePartner.
painterView bePartner.
selectionPanel window bePartner.
- selectionPanel window iconLabel:'GUI Painter'.
+ selectionPanel window iconLabel:'GUI Gallery'.
selectionPanel window icon:(Image fromFile:'bitmaps/UIPainter.xbm' resolution:100).
!