--- a/UIPainterView.st Sat Jul 26 10:55:54 1997 +0200
+++ b/UIPainterView.st Sat Jul 26 18:42:37 1997 +0200
@@ -11,7 +11,7 @@
"
UIObjectView subclass:#UIPainterView
- instanceVariableNames:'claus listHolder superclassName className methodName categoryName'
+ instanceVariableNames:'treeView listHolder superclassName className methodName categoryName'
classVariableNames:'HandCursor'
poolDictionaries:''
category:'Interface-UIPainter'
@@ -99,8 +99,6 @@
findInputViewIn:aSuperView
"returns index of input view into superview or nil
"
- |subviews|
-
aSuperView == self ifTrue:[
^ self subViews findFirst:[:v| v == inputView ]
].
@@ -153,7 +151,7 @@
!UIPainterView methodsFor:'change & update'!
layoutChanged
- claus layoutChanged
+ treeView layoutChanged
! !
!UIPainterView methodsFor:'copy & cut & paste'!
@@ -183,7 +181,7 @@
coll := self minSetOfSuperViews:(self selection).
coll notNil ifTrue:[
- claus cvsEventsDisabledDo:[
+ treeView cvsEventsDisabledDo:[
self select:nil.
specs := coll collect:[:aView| self fullSpecFor:aView ].
@@ -220,7 +218,7 @@
^ nil
].
- claus cvsSetupListDo:[
+ treeView cvsSetupListDo:[
aSpecificationOrList isCollection ifTrue:[
paste := aSpecificationOrList
] ifFalse:[
@@ -398,7 +396,7 @@
].
cls := Smalltalk classNamed:className.
- claus propertiesDo:[:aProp |
+ treeView propertiesDo:[:aProp |
|modelSelector menuSelector protoSpec thisCode|
protoSpec := aProp spec.
@@ -468,7 +466,7 @@
!
generateWindowSpecMethodSource
- |t s spec specArray str code category cls mthd|
+ |spec specArray str code category cls mthd|
specArray := OrderedCollection new.
@@ -493,9 +491,9 @@
]
].
- code := Character excla asString
+ code := '!!'
, className , ' class methodsFor:' , category storeString
- , Character excla asString , '\\'
+ , '!!' , '\\'
, methodName , '\'
, ' "this window spec was automatically generated by the ST/X UIPainter"\\'
@@ -515,9 +513,7 @@
, ' ^\'
, ' ', str contents
, '\'
- , Character excla asString
- , ' '
- , Character excla asString
+ , '!! !!'
, '\\'.
^ code withCRs
@@ -544,7 +540,7 @@
setupFromSpec:specOrSpecArray
|spec builder|
- claus cvsSetupListDo:[
+ treeView cvsSetupListDo:[
self removeAll.
spec := UISpecification from:specOrSpecArray.
builder := UIBuilder new.
@@ -556,7 +552,7 @@
!
treeView:aTreeView
- claus := aTreeView
+ treeView := aTreeView
! !
!UIPainterView methodsFor:'menus'!
@@ -588,16 +584,16 @@
"remove anObject from the contents do redraw
"
anObject notNil ifTrue:[
- claus removeView:anObject.
+ treeView removeView:anObject.
]
!
removeAll
"remove all objects and properties
"
- claus cvsEventsDisabledDo:[
+ treeView cvsEventsDisabledDo:[
self select:nil.
- claus removeAll.
+ treeView removeAll.
self removeUndoHistory.
]
! !
@@ -654,7 +650,7 @@
"returns property assigned to unique identifier
"
anId notNil ifTrue:[
- ^ claus propertyDetect:[:p| p identifier == anId ]
+ ^ treeView propertyDetect:[:p| p identifier == anId ]
].
^ nil
!
@@ -666,7 +662,7 @@
aString isNil ifFalse:[
name := aString string withoutSeparators.
- ^ claus propertyDetect:[:p| p name = name ].
+ ^ treeView propertyDetect:[:p| p name = name ].
].
^ nil
!
@@ -675,7 +671,7 @@
"returns property assigned to view
"
(aView isNil or:[aView == self]) ifFalse:[
- ^ claus propertyDetect:[:p| p view == aView ]
+ ^ treeView propertyDetect:[:p| p view == aView ]
].
^ nil
!
@@ -697,7 +693,7 @@
size := name size + 1.
next := 0.
- claus propertiesDo:[:p|
+ treeView propertiesDo:[:p|
|n|
n := p name.
@@ -742,7 +738,7 @@
selection add:anObject
].
self showSelected:anObject.
- claus cvsSelectionAdd:anObject.
+ treeView cvsSelectionAdd:anObject.
]
@@ -760,7 +756,7 @@
] ifFalse:[
selection := nil
].
- claus cvsSelectionRemove:anObject.
+ treeView cvsSelectionRemove:anObject.
]
!
@@ -770,7 +766,7 @@
"
(self enabled and:[something ~= self selection]) ifTrue:[
self setSelection:something withRedraw:true.
- claus cvsSelection:something
+ treeView cvsSelection:something
]
!
@@ -822,7 +818,7 @@
(n isNil or:[(self propertyOfName:n) notNil]) ifTrue:[
s name:(self uniqueNameFor:s)
].
- claus addProperty:p.
+ treeView addProperty:p.
].
^ aSpecification buildViewWithLayoutFor:aBuilder in:aFrame.
@@ -920,7 +916,7 @@
self elementChangedSize:aView.
].
props spec:(aSpec copy).
- claus propertyChanged:props.
+ treeView propertyChanged:props.
]
]
]
@@ -1082,7 +1078,7 @@
spec setAttributesIn:view with:builder.
self elementChangedSize:view.
].
- claus propertyChanged:props.
+ treeView propertyChanged:props.
]
! !