equal
deleted
inserted
replaced
1379 |
1379 |
1380 !MenuEditor methodsFor:'active help'! |
1380 !MenuEditor methodsFor:'active help'! |
1381 |
1381 |
1382 defaultInfoLabel |
1382 defaultInfoLabel |
1383 |
1383 |
1384 ^(specClass ? 'No class defined') printString, ' << ', self treeView selectorName |
1384 ^(specClass ? 'No class defined') printString, '>>', self treeView selectorName |
|
1385 |
|
1386 "Modified: / 27.1.1998 / 09:18:51 / stefan" |
1385 ! ! |
1387 ! ! |
1386 |
1388 |
1387 !MenuEditor methodsFor:'aspects'! |
1389 !MenuEditor methodsFor:'aspects'! |
1388 |
1390 |
1389 aspectFor:aKey |
1391 aspectFor:aKey |
2072 box := EnterBox new. |
2074 box := EnterBox new. |
2073 box title:'Name of superclass:'. |
2075 box title:'Name of superclass:'. |
2074 box okText:'OK'. |
2076 box okText:'OK'. |
2075 box abortText:'Cancel'. |
2077 box abortText:'Cancel'. |
2076 box initialText: 'ApplicationModel'. |
2078 box initialText: 'ApplicationModel'. |
|
2079 box entryCompletionBlock:[:contents | |
|
2080 |s what m| |
|
2081 |
|
2082 s := contents withoutSpaces. |
|
2083 what := Smalltalk classnameCompletion:s. |
|
2084 box contents:what first. |
|
2085 (what at:2) size ~~ 1 ifTrue:[ |
|
2086 self beep |
|
2087 ] |
|
2088 ]. |
2077 box showAtPointer. |
2089 box showAtPointer. |
2078 box accepted |
2090 box accepted |
2079 ifTrue: |
2091 ifTrue: |
2080 [ |
2092 [ |
2081 self loadFromInClassesOf: box contents asSymbol |
2093 self loadFromInClassesOf: box contents asSymbol |
2082 ] |
2094 ] |
2083 |
2095 |
2084 |
2096 "Modified: / 26.1.1998 / 22:20:41 / stefan" |
2085 |
|
2086 ! |
2097 ! |
2087 |
2098 |
2088 loadFromInClassesOf: aSuperclassOrSymbol |
2099 loadFromInClassesOf: aSuperclassOrSymbol |
2089 |
2100 |
2090 self loadFromMessage: |
2101 self loadFromMessage: |