equal
deleted
inserted
replaced
5803 ! |
5803 ! |
5804 |
5804 |
5805 doDefineClassAndSelector |
5805 doDefineClassAndSelector |
5806 "launches a dialog for defining class, superclass, and selector of the application" |
5806 "launches a dialog for defining class, superclass, and selector of the application" |
5807 |
5807 |
5808 |again readFromModelKeyed| |
5808 | again readFromModelKeyed | |
5809 |
5809 |
5810 readFromModelKeyed := [:aKey| |ret| |
5810 readFromModelKeyed := [:aKey| |ret| |
5811 ret := (self aspectValueFor:aKey). |
5811 ret := (self aspectValueFor:aKey). |
5812 ret isEmptyOrNil ifTrue:[ |
5812 ret isEmptyOrNil ifTrue:[ |
5813 ret := nil |
5813 ret := nil |
5856 ] doWhile:[again]. |
5856 ] doWhile:[again]. |
5857 |
5857 |
5858 specClassName := specClassName isBehavior |
5858 specClassName := specClassName isBehavior |
5859 ifTrue:[specClassName name] |
5859 ifTrue:[specClassName name] |
5860 ifFalse:[specClassName]. |
5860 ifFalse:[specClassName]. |
|
5861 specClass := self resolveName: specClassName. |
5861 |
5862 |
5862 self clearModifiedFlag. |
5863 self clearModifiedFlag. |
5863 self helpTool buildAndMergeFromClass:specClassName. |
5864 self helpTool buildAndMergeFromClass:specClass. |
5864 self updateInfoLabel |
5865 self updateInfoLabel |
5865 |
5866 |
5866 "Modified: / 16.7.1998 / 18:26:33 / cg" |
5867 "Modified: / 16-07-1998 / 18:26:33 / cg" |
|
5868 "Modified: / 18-01-2017 / 23:38:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5867 ! |
5869 ! |
5868 |
5870 |
5869 doDefineGrid |
5871 doDefineGrid |
5870 "opens a dialog for the grid parameters" |
5872 "opens a dialog for the grid parameters" |
5871 |
5873 |
7559 ^ '$Header$' |
7561 ^ '$Header$' |
7560 ! |
7562 ! |
7561 |
7563 |
7562 version_CVS |
7564 version_CVS |
7563 ^ '$Header$' |
7565 ^ '$Header$' |
|
7566 ! |
|
7567 |
|
7568 version_HG |
|
7569 |
|
7570 ^ '$Changeset: <not expanded> $' |
7564 ! ! |
7571 ! ! |
7565 |
7572 |
7566 |
7573 |
7567 UIPainter initialize! |
7574 UIPainter initialize! |