hg/stx-libtool2: comparison UIPainterView.st

equal deleted inserted replaced

-:8bd36b004180
+:882be7e03af4
 other person.  No title to or ownership of the software is
 hereby transferred.
 "
 UIObjectView subclass:#UIPainterView
-	instanceVariableNames:'claus listHolder superclassName className methodName categoryName'
+	instanceVariableNames:'treeView listHolder superclassName className methodName categoryName'
 	classVariableNames:'HandCursor'
 	poolDictionaries:''
 	category:'Interface-UIPainter'
 !
 !
 findInputViewIn:aSuperView
 "returns index of input view into superview or nil
 "
-|subviews|
 aSuperView == self ifTrue:[
 ^ self subViews findFirst:[:v| v == inputView ]
 ].
 ^ 0
 !
 ! !
 !UIPainterView methodsFor:'change & update'!
 layoutChanged
-claus layoutChanged
+treeView layoutChanged
 ! !
 !UIPainterView methodsFor:'copy & cut & paste'!
 copySelection
 |specs coll|
 coll := self minSetOfSuperViews:(self selection).
 coll notNil ifTrue:[
-claus cvsEventsDisabledDo:[
+treeView cvsEventsDisabledDo:[
 self select:nil.
 specs := coll collect:[:aView| self fullSpecFor:aView ].
 self withinTransaction:#cut objects:coll do:[
 coll reverseDo:[:aView|
 (self canPaste:aSpecificationOrList) ifFalse:[
 ^ nil
 ].
-claus cvsSetupListDo:[
+treeView cvsSetupListDo:[
 aSpecificationOrList isCollection ifTrue:[
 paste := aSpecificationOrList
 ] ifFalse:[
 paste := Array with:aSpecificationOrList
 ].
 self warn:'set the class first'.
 ^ code
 ].
 cls := Smalltalk classNamed:className.
-claus propertiesDo:[:aProp |
+treeView propertiesDo:[:aProp |
 |modelSelector menuSelector protoSpec thisCode|
 protoSpec := aProp spec.
 (modelSelector := aProp model) notNil ifTrue:[
 !
 generateWindowSpecMethodSource
-|t s spec specArray str code category cls mthd|
+|spec specArray str code category cls mthd|
 specArray := OrderedCollection new.
 self subViews do:[:aView|
 aView ~~ inputView ifTrue:[
 (mthd := cls class compiledMethodAt:methodName asSymbol) notNil ifTrue:[
 category := mthd category.
 ]
 ].
-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"\\'
 , '    "do not manually edit this - the painter/builder may not be able to\'
 , '     handle the specification if its corrupted."\\'
 , '\'
 , '    <resource: #canvas>\\'
 , '    ^\'
 , '     ', str contents
 , '\'
-, Character excla asString
+, '!! !!'
-, ' '
-, Character excla asString
 , '\\'.
 ^ code withCRs
 "Modified: 5.9.1995 / 21:01:35 / claus"
 !
 setupFromSpec:specOrSpecArray
 |spec builder|
-claus cvsSetupListDo:[
+treeView cvsSetupListDo:[
 self removeAll.
 spec    := UISpecification from:specOrSpecArray.
 builder := UIBuilder new.
 spec window setupView:self topView for:builder.
 self addSpec:(spec component) builder:builder in:self.
 inputView raise.
 ]
 !
 treeView:aTreeView
-claus := aTreeView
+treeView := aTreeView
 ! !
 !UIPainterView methodsFor:'menus'!
 showMiddleButtonMenu
 remove:anObject
 "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.
 ]
 ! !
 !UIPainterView methodsFor:'searching'!
 propertyOfIdentifier:anId
 "returns property assigned to unique identifier
 "
 anId notNil ifTrue:[
-^ claus propertyDetect:[:p| p identifier == anId ]
+^ treeView propertyDetect:[:p| p identifier == anId ]
 ].
 ^ nil
 !
 propertyOfName:aString
 "
 |name|
 aString isNil ifFalse:[
 name := aString string withoutSeparators.
-^ claus propertyDetect:[:p| p name = name ].
+^ treeView propertyDetect:[:p| p name = name ].
 ].
 ^ nil
 !
 propertyOfView:aView
 "returns property assigned to view
 "
 (aView isNil or:[aView == self]) ifFalse:[
-^ claus propertyDetect:[:p| p view == aView ]
+^ treeView propertyDetect:[:p| p view == aView ]
 ].
 ^ nil
 !
 uniqueNameFor:aSpecOrString
 ].
 name at:1 put:(name at:1) asLowercase.
 size  := name size + 1.
 next  := 0.
-claus propertiesDo:[:p|
+treeView propertiesDo:[:p|
 |n|
 n := p name.
 (n size >= size and:[n startsWith:name]) ifTrue:[
 next := next max:(p extractNumberStartingAt:size)
 ]
 ] ifTrue:[
 selection add:anObject
 ].
 self showSelected:anObject.
-claus cvsSelectionAdd:anObject.
+treeView cvsSelectionAdd:anObject.
 ]
 !
 selection remove:anObject ifAbsent:nil.
 self showSelection.
 ] ifFalse:[
 selection := nil
 ].
-claus cvsSelectionRemove:anObject.
+treeView cvsSelectionRemove:anObject.
 ]
 !
 select:something
 "change selection to something
 "
 (self enabled and:[something ~= self selection]) ifTrue:[
 self setSelection:something withRedraw:true.
-claus cvsSelection:something
+treeView cvsSelection:something
 ]
 !
 updateSelectionFromModel:aSel
 n := s name.
 (n isNil or:[(self propertyOfName:n) notNil]) ifTrue:[
 s name:(self uniqueNameFor:s)
 ].
-claus addProperty:p.
+treeView addProperty:p.
 ].
 ^ aSpecification buildViewWithLayoutFor:aBuilder in:aFrame.
 "Modified: 4.7.1997 / 23:48:55 / cg"
 ] ifFalse:[
 aSpec setAttributesIn:aView with:builder.
 self elementChangedSize:aView.
 ].
 props spec:(aSpec copy).
-claus propertyChanged:props.
+treeView propertyChanged:props.
 ]
 ]
 ]
 "Modified: 4.7.1997 / 23:49:44 / cg"
 view become:v
 ] ifFalse:[
 spec setAttributesIn:view with:builder.
 self elementChangedSize:view.
 ].
-claus propertyChanged:props.
+treeView propertyChanged:props.
 ]
 ! !
 !UIPainterView::ViewProperty class methodsFor:'instance creation'!

changeset 238	882be7e03af4
parent 231	75de472d579f
child 278	5b7dfe33b497