# HG changeset patch # User mawalch # Date 1519831945 -3600 # Node ID b3e0ca68999136de9895f5ee156113448df1e296 # Parent 5d127d65ea3ed22fa8e6e20910d4cf0309ab9c5b #UI_ENHANCEMENT by mawalch class: MenuEditor class changed: #windowSpec Fix bad position of buttons. diff -r 5d127d65ea3e -r b3e0ca689991 MenuEditor.st --- a/MenuEditor.st Tue Feb 27 12:01:16 2018 +0100 +++ b/MenuEditor.st Wed Feb 28 16:32:25 2018 +0100 @@ -479,109 +479,118 @@ - ^ - #(FullSpec - name: windowSpec - window: - (WindowSpec - label: 'Menu Editor' - name: 'Menu Editor' - min: (Point 550 385) - bounds: (Rectangle 0 0 574 473) - menu: menu - icon: defaultIcon - returnIsOKInDialog: false - escapeIsCancelInDialog: false - ) - component: - (SpecCollection - collection: ( - (MenuPanelSpec - name: 'toolbar' - layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0) - tabable: true - menu: toolbar - showSeparatingLines: true - ) - (VariableHorizontalPanelSpec - name: 'mainPanel' - layout: (LayoutFrame 0 0.0 34 0.0 0 1.0 -26 1.0) - component: - (SpecCollection - collection: ( - (HierarchicalListViewSpec - name: 'ListOfItemsView' - model: selectionHolder - menu: editMenu - hasHorizontalScrollBar: true - hasVerticalScrollBar: true - miniScrollerHorizontal: true - miniScrollerVertical: true - listModel: listOfItems - multipleSelectOk: true - useIndex: false - highlightMode: label - doubleClickSelector: indicatorClickedAt: - selectConditionSelector: canSelect: - showLeftIndicators: false - indicatorSelector: indicatorClickedAt: - properties: - (PropertyListDictionary - dropSelector: doDrop: - dragArgument: nil - dropObjectSelector: dropObjects - overSelector: dropOver: - dropArgument: nil - leaveSelector: dropLeave: - canDropSelector: canDrop: - enterSelector: dropEnter: - ) - postBuildCallback: postBuildListOfItemsView: - ) - (ViewSpec - name: 'Box' - level: -1 - component: - (SpecCollection - collection: ( - (NoteBookViewSpec - name: 'NoteBook' - layout: (LayoutFrame 1 0.0 0 0.0 1 1.0 -30 1.0) - enableChannel: hasSingleSelectionChannel - tabable: true - model: tabHolder - menu: listOfTabs - fitLastRow: false - translateLabel: true - canvas: wizardHolder - keepCanvasAlive: true - postBuildCallback: postBuildNoteBook: - ) - (UISubSpecification - name: 'SubSpecification' - layout: (LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1.0) - majorKey: ToolApplicationModel - minorKey: windowSpecForCommit - ) - ) - - ) - ) - ) - - ) - handles: (Any 0.300493 1.0) - ) - (UISubSpecification - name: 'infoBarSubSpec' - layout: (LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0) - majorKey: ToolApplicationModel - minorKey: windowSpecForInfoBar - ) - ) - - ) - ) + ^ + #(FullSpec + name: windowSpec + uuid: '7d4bc1c6-2067-11b2-b33d-3065ec8abe8a' + window: + (WindowSpec + label: 'Menu Editor' + name: 'Menu Editor' + uuid: '7d4bc6f8-2067-11b2-b33d-3065ec8abe8a' + min: (Point 550 385) + bounds: (Rectangle 0 0 574 473) + menu: menu + icon: defaultIcon + returnIsOKInDialog: false + escapeIsCancelInDialog: false + ) + component: + (SpecCollection + collection: ( + (MenuPanelSpec + name: 'toolbar' + layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0) + uuid: '7d4bcc98-2067-11b2-b33d-3065ec8abe8a' + tabable: true + menu: toolbar + showSeparatingLines: true + ) + (VariableHorizontalPanelSpec + name: 'mainPanel' + layout: (LayoutFrame 0 0.0 34 0.0 0 1.0 -26 1.0) + uuid: '7d4bd2ba-2067-11b2-b33d-3065ec8abe8a' + component: + (SpecCollection + collection: ( + (HierarchicalListViewSpec + name: 'ListOfItemsView' + uuid: '7d4bd7ba-2067-11b2-b33d-3065ec8abe8a' + model: selectionHolder + menu: editMenu + hasHorizontalScrollBar: true + hasVerticalScrollBar: true + miniScrollerHorizontal: true + miniScrollerVertical: true + listModel: listOfItems + multipleSelectOk: true + useIndex: false + highlightMode: label + doubleClickSelector: indicatorClickedAt: + selectConditionSelector: canSelect: + showLeftIndicators: false + indicatorSelector: indicatorClickedAt: + postBuildCallback: postBuildListOfItemsView: + properties: + (PropertyListDictionary + dropSelector: doDrop: + dragArgument: nil + overSelector: dropOver: + canDropSelector: canDrop: + dropObjectSelector: dropObjects + enterSelector: dropEnter: + dropArgument: nil + leaveSelector: dropLeave: + ) + ) + (ViewSpec + name: 'Box' + uuid: '7d4be156-2067-11b2-b33d-3065ec8abe8a' + level: -1 + component: + (SpecCollection + collection: ( + (NoteBookViewSpec + name: 'NoteBook' + layout: (LayoutFrame 1 0.0 0 0.0 1 1.0 -39 1.0) + uuid: '7d4be430-2067-11b2-b33d-3065ec8abe8a' + enableChannel: hasSingleSelectionChannel + tabable: true + model: tabHolder + menu: listOfTabs + fitLastRow: false + translateLabel: true + canvas: wizardHolder + keepCanvasAlive: true + postBuildCallback: postBuildNoteBook: + ) + (UISubSpecification + name: 'SubSpecification' + layout: (LayoutFrame 2 0.0 -35 1.0 -2 1.0 -2 1.0) + uuid: '7d4beab6-2067-11b2-b33d-3065ec8abe8a' + majorKey: ToolApplicationModel + minorKey: windowSpecForCommit + ) + ) + + ) + ) + ) + + ) + handles: (Any 0.29999999999999999 1.0) + ) + (UISubSpecification + name: 'infoBarSubSpec' + layout: (LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0) + uuid: '7d4bee30-2067-11b2-b33d-3065ec8abe8a' + majorKey: ToolApplicationModel + minorKey: windowSpecForInfoBar + ) + ) + + ) + ) ! ! !MenuEditor class methodsFor:'menu specs'!