equal
deleted
inserted
replaced
291 ) |
291 ) |
292 #(#MenuItem |
292 #(#MenuItem |
293 #'label:' '-' |
293 #'label:' '-' |
294 ) |
294 ) |
295 #(#MenuItem |
295 #(#MenuItem |
296 #'label:' 'Load From Class...' |
296 #'label:' 'Load...' |
297 #'translateLabel:' true |
297 #'translateLabel:' true |
298 #'value:' #doFromClass |
298 #'value:' #doFromClass |
299 #'enabled:' #isStandAlone |
299 #'enabled:' #isStandAlone |
300 ) |
|
301 #(#MenuItem |
|
302 #'label:' 'Load From Class With Superclass...' |
|
303 #'translateLabel:' true |
|
304 #'value:' #loadFromClassWithSuperclass |
|
305 ) |
300 ) |
306 #(#MenuItem |
301 #(#MenuItem |
307 #'label:' '-' |
302 #'label:' '-' |
308 ) |
303 ) |
309 #(#MenuItem |
304 #(#MenuItem |
317 #'label:' 'Pick A Menu' |
312 #'label:' 'Pick A Menu' |
318 #'value:' #doPickAMenu |
313 #'value:' #doPickAMenu |
319 #'enabled:' #isStandAlone |
314 #'enabled:' #isStandAlone |
320 ) |
315 ) |
321 #(#MenuItem |
316 #(#MenuItem |
322 #'label:' 'Define Class...' |
317 #'label:' 'Define Menu Class...' |
323 #'value:' #doDefineClass |
318 #'value:' #doDefineClass |
324 #'enabled:' #isStandAlone |
319 #'enabled:' #isStandAlone |
325 ) |
320 ) |
326 #(#MenuItem |
321 #(#MenuItem |
327 #'label:' 'Browse Class' |
322 #'label:' 'Browse Menu Class' |
328 #'value:' #doBrowseAppClass |
323 #'value:' #doBrowseAppClass |
329 ) |
324 ) |
330 #(#MenuItem |
325 #(#MenuItem |
331 #'label:' '-' |
326 #'label:' '-' |
332 ) |
327 ) |
2078 |
2073 |
2079 self treeView selectedNodeChangeSequenceOrder:-1. |
2074 self treeView selectedNodeChangeSequenceOrder:-1. |
2080 isModified := true. |
2075 isModified := true. |
2081 ! |
2076 ! |
2082 |
2077 |
2083 loadFromClassWithSuperclass |
|
2084 |
|
2085 |box| |
|
2086 box := EnterBox new. |
|
2087 box title:'Name of superclass:'. |
|
2088 box okText:'OK'. |
|
2089 box abortText:'Cancel'. |
|
2090 box initialText: 'ApplicationModel'. |
|
2091 box entryCompletionBlock:[:contents | |
|
2092 |s what m| |
|
2093 |
|
2094 s := contents withoutSpaces. |
|
2095 what := Smalltalk classnameCompletion:s. |
|
2096 box contents:what first. |
|
2097 (what at:2) size ~~ 1 ifTrue:[ |
|
2098 self beep |
|
2099 ] |
|
2100 ]. |
|
2101 box showAtPointer. |
|
2102 box accepted |
|
2103 ifTrue: |
|
2104 [ |
|
2105 self loadFromInClassesOf: box contents asSymbol |
|
2106 ] |
|
2107 |
|
2108 "Modified: / 26.1.1998 / 22:20:41 / stefan" |
|
2109 ! |
|
2110 |
|
2111 loadFromInClassesOf: aSuperclassOrSymbol |
2078 loadFromInClassesOf: aSuperclassOrSymbol |
2112 |
2079 |
2113 self loadFromMessage: |
2080 self loadFromMessage: |
2114 (ResourceSelectionBrowser |
2081 (ResourceSelectionBrowser |
2115 request: 'Load Menu From Class' |
2082 request: 'Load Menu From Class' |