# HG changeset patch
# User ca
# Date 1043222753 -3600
# Node ID 3f488e7cbbae88159f9d67c0b85bd5a9001d9ea2
# Parent  9e7465c575095ae33032c824f9983d55371ec4ff
use configurable tabLabelInset for the NoteBook

diff -r 9e7465c57509 -r 3f488e7cbbae MenuEditor.st
--- 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
     "