Mercurial Mercurial > hg > stx-libtool2 / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
MenuEditor.st
changeset 1958 109ef8358a55
parent 1953 3b5022bccca4
child 1971 469f9fd53021
equal deleted inserted replaced
1957:cd30f8cd59f8 1958:109ef8358a55 
  1267           )
 
  1267           )
 
  1268          (MenuItem
 
  1268          (MenuItem
 
  1269             activeHelpKey: editMoveUp
 
  1269             activeHelpKey: editMoveUp
 
  1270             enabled: valueOfEnableMovingUpOrDown
 
  1270             enabled: valueOfEnableMovingUpOrDown
 
  1271             label: 'Move Up'
 
  1271             label: 'Move Up'
 
  1272             itemValue: doMoveUpOrDown:
 
  1272             itemValue: doMoveUp
 
  1273             translateLabel: true
 
  1273             translateLabel: true
 
  1274             isButton: true
 
  1274             isButton: true
 
  1275             startGroup: right
 
  1275             startGroup: right
 
  1276             labelImage: (ResourceRetriever Icon upIcon)
 
  1276             labelImage: (ResourceRetriever Icon upIcon)
 
  1277             argument: up
 
       
  1278           )
 
  1277           )
 
  1279          (MenuItem
 
  1278          (MenuItem
 
  1280             activeHelpKey: editMoveDown
 
  1279             activeHelpKey: editMoveDown
 
  1281             enabled: valueOfEnableMovingUpOrDown
 
  1280             enabled: valueOfEnableMovingUpOrDown
 
  1282             label: 'Move Down'
 
  1281             label: 'Move Down'
 
  1283             itemValue: doMoveUpOrDown:
 
  1282             itemValue: doMoveDown
 
  1284             translateLabel: true
 
  1283             translateLabel: true
 
  1285             isButton: true
 
  1284             isButton: true
 
  1286             labelImage: (ResourceRetriever Icon downIcon)
 
  1285             labelImage: (ResourceRetriever Icon downIcon)
 
  1287             argument: down
 
       
  1288           )
 
  1286           )
 
  1289          (MenuItem
 
  1287          (MenuItem
 
  1290             activeHelpKey: editMoveIn
 
  1288             activeHelpKey: editMoveIn
 
  1291             enabled: valueOfEnableMovingIn
 
  1289             enabled: valueOfEnableMovingIn
 
  1292             label: 'Move In'
 
  1290             label: 'Move Into Next'
 
  1293             itemValue: doMoveIn:
 
  1291             itemValue: doMoveInNext
 
  1294             translateLabel: true
 
  1292             translateLabel: true
 
  1295             isButton: true
 
  1293             isButton: true
 
  1296             labelImage: (ResourceRetriever Icon downRightIcon)
 
  1294             labelImage: (ResourceRetriever Icon downRightIcon)
 
  1297             argument: inNext
 
       
  1298           )
 
  1295           )
 
  1299          (MenuItem
 
  1296          (MenuItem
 
  1300             activeHelpKey: editMoveInAbove
 
  1297             activeHelpKey: editMoveInAbove
 
  1301             enabled: valueOfEnableMovingInAbove
 
  1298             enabled: valueOfEnableMovingInAbove
 
  1302             label: 'Move In Above'
 
  1299             label: 'Move Into Previous'
 
  1303             itemValue: doMoveIn:
 
  1300             itemValue: doMoveInPrevious
 
  1304             translateLabel: true
 
  1301             translateLabel: true
 
  1305             isButton: true
 
  1302             isButton: true
 
  1306             labelImage: (ResourceRetriever Icon upRightIcon)
 
  1303             labelImage: (ResourceRetriever Icon upRightIcon)
 
  1307             argument: inPrev
 
       
  1308           )
 
  1304           )
 
  1309          (MenuItem
 
  1305          (MenuItem
 
  1310             activeHelpKey: editMoveOut
 
  1306             activeHelpKey: editMoveOut
 
  1311             enabled: valueOfEnableMovingOut
 
  1307             enabled: valueOfEnableMovingOut
 
  1312             label: 'Move Out'
 
  1308             label: 'Move Out'
 
  2100     ].
 
  2096     ].
 
  2101 
  2097 
  2102     key == #Copy  ifTrue:[ self doCopy.  ^ true ].
 
  2098     key == #Copy  ifTrue:[ self doCopy.  ^ true ].
 
  2103     key == #Paste ifTrue:[ self doPaste. ^ true ].
 
  2099     key == #Paste ifTrue:[ self doPaste. ^ true ].
 
  2104 
  2100 
  2105     ^ false
 
  2101     (rawKey == #CtrlCursorUp) ifTrue:[ 
       
  2102         self doMoveUp.
 
       
  2103         ^ true.
 
       
  2104     ].
 
       
  2105     (rawKey == #CtrlCursorDown) ifTrue:[ 
       
  2106         self doMoveDown.
 
       
  2107         ^ true.
 
       
  2108     ].
 
       
  2109     (rawKey == #CtrlCursorLeft) ifTrue:[ 
       
  2110         self doMoveOut.
 
       
  2111         ^ true.
 
       
  2112     ].
 
       
  2113     (rawKey == #CtrlCursorRight) ifTrue:[ 
       
  2114         self doMoveInNext.
 
       
  2115         ^ true.
 
       
  2116     ].
 
       
  2117 
       
  2118     ^ false.
 
  2106 ! !
 
  2119 ! !
 
  2107 
  2120 
  2108 !MenuEditor methodsFor:'initialization & release'!
 
  2121 !MenuEditor methodsFor:'initialization & release'!
 
  2109 
  2122 
  2110 closeRequest
 
  2123 closeRequest
 
  2703     ].
 
  2716     ].
 
  2704 ! !
 
  2717 ! !
 
  2705 
  2718 
  2706 !MenuEditor methodsFor:'user actions-hierarchy'!
 
  2719 !MenuEditor methodsFor:'user actions-hierarchy'!
 
  2707 
  2720 
       
  2721 doMoveDown
 
       
  2722     "move selected item down"
 
       
  2723 
       
  2724     self doMoveUpOrDown:#down
 
       
  2725 !
 
       
  2726 
  2708 doMoveIn:aDirection
 
  2727 doMoveIn:aDirection
 
  2709     "move selected item into the next (#inNext) or previous (#inPrev) item
 
  2728     "move selected item into the next (#inNext) or previous (#inPrev) item
 
  2710     "
 
  2729     "
 
  2711     |item idx parent toParent|
 
  2730     |item idx parent toParent|
 
  2712 
  2731 
  2732 			     ifFalse:[ toParent  addLast:item ].
 
  2751 			     ifFalse:[ toParent  addLast:item ].
 
  2733 	item makeVisible.
 
  2752 	item makeVisible.
 
  2734     ].
 
  2753     ].
 
  2735     self selectedItem:item.
 
  2754     self selectedItem:item.
 
  2736     modified := true.
 
  2755     modified := true.
 
       
  2756 !
 
       
  2757 
       
  2758 doMoveInNext
 
       
  2759     "move selected item into the next item"
 
       
  2760 
       
  2761     self doMoveIn:#inNext.
 
       
  2762 !
 
       
  2763 
       
  2764 doMoveInPrevious
 
       
  2765     "move selected item into the previous item"
 
       
  2766 
       
  2767     self doMoveIn:#inPrev.
 
  2737 !
 
  2768 !
 
  2738 
  2769 
  2739 doMoveOut
 
  2770 doMoveOut
 
  2740     "move selected item out of current item
 
  2771     "move selected item out of current item
 
  2741     "
 
  2772     "
 
  2757 	index > grandParent size ifTrue:[ grandParent add:item ]
 
  2788 	index > grandParent size ifTrue:[ grandParent add:item ]
 
  2758 				ifFalse:[ grandParent add:item afterIndex:index ]
 
  2789 				ifFalse:[ grandParent add:item afterIndex:index ]
 
  2759     ].
 
  2790     ].
 
  2760     self selectedItem:item.
 
  2791     self selectedItem:item.
 
  2761     modified := true.
 
  2792     modified := true.
 
       
  2793 !
 
       
  2794 
       
  2795 doMoveUp
 
       
  2796     "move selected item up"
 
       
  2797 
       
  2798     self doMoveUpOrDown:#up
 
  2762 !
 
  2799 !
 
  2763 
  2800 
  2764 doMoveUpOrDown:aDirection
 
  2801 doMoveUpOrDown:aDirection
 
  2765     "move selected item up (#up) or down (#down)
 
  2802     "move selected item up (#up) or down (#down)
 
  2766     "
 
  2803     "
hg/stx-libtool2