equal
deleted
inserted
replaced
2413 box := EnterBox new. |
2413 box := EnterBox new. |
2414 box title:'Name of superclass:'. |
2414 box title:'Name of superclass:'. |
2415 box okText:'OK'. |
2415 box okText:'OK'. |
2416 box abortText:'Cancel'. |
2416 box abortText:'Cancel'. |
2417 box initialText: 'ApplicationModel'. |
2417 box initialText: 'ApplicationModel'. |
|
2418 box entryCompletionBlock:[:contents | |
|
2419 |s what m| |
|
2420 |
|
2421 s := contents withoutSpaces. |
|
2422 what := Smalltalk classnameCompletion:s. |
|
2423 box contents:what first. |
|
2424 (what at:2) size ~~ 1 ifTrue:[ |
|
2425 self beep |
|
2426 ] |
|
2427 ]. |
2418 box showAtPointer. |
2428 box showAtPointer. |
2419 box accepted |
2429 box accepted |
2420 ifTrue: |
2430 ifTrue:[ |
2421 [ |
|
2422 self loadFromInClassesOf: box contents asSymbol |
2431 self loadFromInClassesOf: box contents asSymbol |
2423 ] |
2432 ] |
2424 |
2433 |
|
2434 "Modified: / 27.1.1998 / 09:30:27 / stefan" |
2425 ! |
2435 ! |
2426 |
2436 |
2427 loadFromInClassesOf: aSuperclassOrSymbol |
2437 loadFromInClassesOf: aSuperclassOrSymbol |
2428 |
2438 |
2429 self loadFromMessage: |
2439 self loadFromMessage: |