--- a/MenuEditor.st Tue Jan 21 08:22:36 2003 +0100
+++ b/MenuEditor.st Wed Jan 22 09:05:53 2003 +0100
@@ -482,7 +482,7 @@
#name: 'Menu Editor'
#min: #(#Point 550 385)
#max: #(#Point 1152 900)
- #bounds: #(#Rectangle 19 413 595 888)
+ #bounds: #(#Rectangle 12 22 588 497)
#menu: #menu
#returnIsOKInDialog: false
#escapeIsCancelInDialog: false
@@ -521,14 +521,14 @@
#indicatorSelector: #indicatorClickedAt:
#properties:
#(#PropertyListDictionary
- #enterSelector: #dropEnter:
+ #dropSelector: #doDrop:
#dragArgument: nil
#dropObjectSelector: #dropObjects
#dropArgument: nil
#canDropSelector: #canDrop:
#leaveSelector: #dropLeave:
+ #enterSelector: #dropEnter:
#overSelector: #dropOver:
- #dropSelector: #doDrop:
)
#postBuildCallback: #postBuildListOfItemsView:
)
@@ -548,6 +548,7 @@
#fitLastRow: false
#canvas: #wizardHolder
#keepCanvasAlive: true
+ #postBuildCallback: #postBuildNoteBook:
)
#(#UISubSpecification
#name: 'SubSpecification'
@@ -1667,7 +1668,7 @@
selection size == 1 ifTrue:[
selectedSuperItems := selection.
- newTabList := selection first slices collect:[:el| ' ', el first, ' ' ].
+ newTabList := selection first slices collect:[:el| el first ].
newTabList = listOfTabs ifFalse:[
listOfTabs contents:newTabList.
].
@@ -1692,11 +1693,10 @@
tab := tabHolder value.
- tab ifNotNil:[
- tab := tab withoutSeparators.
+ tab notNil ifTrue:[
tab := item slices detect:[:el| el first = tab ] ifNone:nil.
].
- tab ifNil:[
+ tab isNil ifTrue:[
^ tabHolder value:( listOfTabs at:1 ifAbsent:nil )
].
selector := tab last.
@@ -2089,6 +2089,10 @@
listOfItemsView := aSrollableView scrolledView.
!
+postBuildNoteBook:aNoteBook
+ aNoteBook tabLabelInset:16@4.
+!
+
postOpenWith:aBuilder
"reset keyboardProcessor for menuBar
"