equal
deleted
inserted
replaced
226 isMenuSlice |
226 isMenuSlice |
227 ) |
227 ) |
228 ! ! |
228 ! ! |
229 |
229 |
230 !MenuEditor class methodsFor:'defaults'! |
230 !MenuEditor class methodsFor:'defaults'! |
231 |
|
232 aboutImage |
|
233 "the image to be displayed in my about-box; |
|
234 If nil is returned, the ST/X default image is used. |
|
235 " |
|
236 ^ self defaultIcon |
|
237 ! |
|
238 |
231 |
239 resourceType |
232 resourceType |
240 "get the type of the resource of the method generated by the MenuEditor |
233 "get the type of the resource of the method generated by the MenuEditor |
241 " |
234 " |
242 ^ #menu |
235 ^ #menu |
2055 self enableMovingOutHolder value:(selectedItem canMoveOut). |
2048 self enableMovingOutHolder value:(selectedItem canMoveOut). |
2056 self enableMovingInHolder value:(selectedItem canMoveInNext). |
2049 self enableMovingInHolder value:(selectedItem canMoveInNext). |
2057 self enableMovingInAboveHolder value:(selectedItem canMoveInAbove). |
2050 self enableMovingInAboveHolder value:(selectedItem canMoveInAbove). |
2058 self canCreateDelayedMenuChannel value:(selectedItem canAddDelayedMenu). |
2051 self canCreateDelayedMenuChannel value:(selectedItem canAddDelayedMenu). |
2059 ]. |
2052 ]. |
2060 ! ! |
|
2061 |
|
2062 !MenuEditor methodsFor:'defaults'! |
|
2063 |
|
2064 aboutImage |
|
2065 "the image to be displayed in my about-box; |
|
2066 If nil is returned, the ST/X default image is used. |
|
2067 " |
|
2068 ^ self class aboutImage |
|
2069 ! ! |
2053 ! ! |
2070 |
2054 |
2071 !MenuEditor methodsFor:'drag & drop'! |
2055 !MenuEditor methodsFor:'drag & drop'! |
2072 |
2056 |
2073 canDrop:aDropContext |
2057 canDrop:aDropContext |