--- a/UIPainterView.st Thu Jan 09 09:21:55 2003 +0100
+++ b/UIPainterView.st Fri Jan 17 15:50:44 2003 +0100
@@ -149,19 +149,6 @@
!
-findInputViewIn:aSuperView
- "returns index of input view into superview or nil
- "
- aSuperView == self ifTrue:[
- ^ self subViews findFirst:[:v| v == inputView ]
- ].
- ^ 0
-!
-
-inputView
- ^ inputView
-!
-
methodName
^ methodName
!
@@ -453,7 +440,6 @@
self realizeAllSubViews.
newSel do:[:v| v raise].
- inputView raise.
self elementChangedSize:frame.
newSel size == 1 ifTrue:[newSel := newSel at:1].
@@ -1337,19 +1323,17 @@
self subViews do:[:aView|
|vSpec|
- aView ~~ inputView ifTrue:[
- "/ care for wrapped views ...
- vSpec := self fullSpecFor:aView.
- vSpec isNil ifTrue:[
- aView subViews size == 1 ifTrue:[
- vSpec := self fullSpecFor:(aView subViews first).
- ]
- ].
- vSpec isNil ifTrue:[
- self warn:'Oops - could not create spec for some view'
- ].
- spec add:vSpec
- ]
+ "/ care for wrapped views ...
+ vSpec := self fullSpecFor:aView.
+ vSpec isNil ifTrue:[
+ aView subViews size == 1 ifTrue:[
+ vSpec := self fullSpecFor:(aView subViews first).
+ ]
+ ].
+ vSpec isNil ifTrue:[
+ self warn:'Oops - could not create spec for some view'
+ ].
+ spec add:vSpec
].
spec := treeView generateFullSpecForComponents:spec named:methodName.
@@ -1486,12 +1470,10 @@
self addSpec:(spec component) builder:builder in:self.
].
self realizeAllSubViews.
- inputView raise.
spec notNil ifTrue:[
treeView setAttributesFromWindowSpec:(spec window)
- ]
- ]
-
+ ].
+ ].
!
treeView:aTreeView
@@ -1860,7 +1842,6 @@
].
treeView addProperty:p.
].
-
^ aSpecification buildViewWithLayoutFor:aBuilder in:aFrame.
"Modified: 4.7.1997 / 23:48:55 / cg"
@@ -1936,7 +1917,6 @@
aView destroy.
device flush "sync" .
aView becomeSameAs:v.
- inputView raise.
] ifFalse:[
aSpec setAttributesIn:aView with:builder.
self elementChangedSize:aView.
@@ -2182,11 +2162,9 @@
].
view := self addSpec:(args at:1) builder:(UIBuilder new isEditing:true) in:frame.
view realize.
- inputView raise.
prop := self propertyOfView:view.
prop identifier:(args at:2).
-
!
undoSpecModify:args