equal
deleted
inserted
replaced
1623 box := EnterBox new. |
1623 box := EnterBox new. |
1624 box title:'Name of superclass:'. |
1624 box title:'Name of superclass:'. |
1625 box okText:'OK'. |
1625 box okText:'OK'. |
1626 box abortText:'Cancel'. |
1626 box abortText:'Cancel'. |
1627 box initialText: 'ApplicationModel'. |
1627 box initialText: 'ApplicationModel'. |
|
1628 box entryCompletionBlock:[:contents | |
|
1629 |s what m| |
|
1630 |
|
1631 s := contents withoutSpaces. |
|
1632 what := Smalltalk classnameCompletion:s. |
|
1633 box contents:what first. |
|
1634 (what at:2) size ~~ 1 ifTrue:[ |
|
1635 self beep |
|
1636 ] |
|
1637 ]. |
1628 box showAtPointer. |
1638 box showAtPointer. |
1629 box accepted |
1639 box accepted |
1630 ifTrue: |
1640 ifTrue: |
1631 [ |
1641 [ |
1632 self loadFromInClassesOf: box contents asSymbol |
1642 self loadFromInClassesOf: box contents asSymbol |
1633 ] |
1643 ] |
1634 |
1644 |
|
1645 "Modified: / 28.1.1998 / 13:14:00 / stefan" |
1635 ! |
1646 ! |
1636 |
1647 |
1637 loadFromFile |
1648 loadFromFile |
1638 |
1649 |
1639 self loadFromFile: |
1650 self loadFromFile: |