--- a/UIPainter.st Tue Sep 05 18:44:51 2006 +0200
+++ b/UIPainter.st Tue Sep 05 18:45:02 2006 +0200
@@ -2325,10 +2325,6 @@
^aspects at:aKey ifAbsent:[ super aspectFor:aKey ]
!
-autoAcceptOnSelectionChange
- ^ builder valueAspectFor:#autoAcceptOnSelectionChange initialValue:true
-!
-
canChangeOrderInContainer
"returns a boolean value holder which is true if the widget order can be changed
within their container"
@@ -3282,8 +3278,10 @@
painter
"returns the canvas view"
-^ painter.
- ^ treeView canvas
+ ^ painter.
+"/ ^ treeView canvas
+
+ "Modified: / 05-09-2006 / 18:36:32 / cg"
!
specTool
@@ -3389,17 +3387,6 @@
^ Array with:spec with:view
!
-selectionChangeAllowed:newSelection
- self isModified ifFalse:[^ true].
-
- self autoAcceptOnSelectionChange value ifTrue:[
- self accept
- ] ifFalse:[
- self askForUnsavedModifications ifFalse:[^ false].
- ].
- ^ true
-!
-
tabSelection
"returns the label of the current section in the notebook"
@@ -3892,26 +3879,20 @@
|newSel|
- (newSel := self pasteSpecifications:aSpec keepLayout:false at:0@0) notNil
- ifTrue:
- [
- self select: newSel
- ]
- ifFalse:
- [
+ (newSel := painter pasteSpecifications:aSpec keepLayout:false at:0@0) notNil
+ ifTrue:[
+ painter select: newSel
+ ] ifFalse:[
((treeView selection size = 0) or: [treeView selectedNode isNil])
- ifTrue:
- [
+ ifTrue:[
treeView selection: #(1).
- ]
- ifFalse:
- [
+ ] ifFalse:[
treeView selectNode: (treeView detectNode: [:n| n = treeView selectedNode parent])
].
self addWidgetOfSpec: aSpec
]
- "Modified: / 30.10.2001 / 13:22:25 / cg"
+ "Modified: / 05-09-2006 / 18:37:12 / cg"
!
cancel