equal
deleted
inserted
replaced
2859 " |
2859 " |
2860 aClass isNil ifTrue:[ |
2860 aClass isNil ifTrue:[ |
2861 (self confirm:'No class given to the GUI Painter (class was probably renamed?)\\Open anyway (to create a new window spec) ?' withCRs) |
2861 (self confirm:'No class given to the GUI Painter (class was probably renamed?)\\Open anyway (to create a new window spec) ?' withCRs) |
2862 ifFalse:[^ nil]. |
2862 ifFalse:[^ nil]. |
2863 ]. |
2863 ]. |
2864 self openInterface. |
|
2865 |
2864 |
2866 specSelector := aSelector. |
2865 specSelector := aSelector. |
2867 specClass := aClass. |
2866 specClass := aClass. |
2868 |
2867 |
2869 |
2868 self openInterface. |
|
2869 |
|
2870 "/ specSelector := aSelector. |
|
2871 "/ specClass := aClass. |
|
2872 |
|
2873 "Modified: / 21.8.1998 / 20:59:15 / cg" |
2870 ! |
2874 ! |
2871 |
2875 |
2872 postOpenWith: aBuilder |
2876 postOpenWith: aBuilder |
2873 "sets the root of the tree view as first selection; |
2877 "sets the root of the tree view as first selection; |
2874 sets the grid parameters, if defined" |
2878 sets the grid parameters, if defined" |