2 COPYRIGHT (c) 1995 by Claus Gittinger / eXept Software AG |
2 COPYRIGHT (c) 1995 by Claus Gittinger / eXept Software AG |
3 All Rights Reserved |
3 All Rights Reserved |
4 |
4 |
5 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
6 only in accordance with the terms of that license and with the |
6 only in accordance with the terms of that license and with the |
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 UIObjectView subclass:#UIPainterView |
13 UIObjectView subclass:#UIPainterView |
14 instanceVariableNames:'treeView listHolder superclassName className methodName |
14 instanceVariableNames:'treeView listHolder superclassName className methodName |
15 categoryName' |
15 categoryName' |
16 classVariableNames:'HandCursor RedefineMethods' |
16 classVariableNames:'HandCursor RedefineAspectMethods' |
17 poolDictionaries:'' |
17 poolDictionaries:'' |
18 category:'Interface-UIPainter' |
18 category:'Interface-UIPainter' |
19 ! |
19 ! |
20 |
20 |
21 Object subclass:#ViewProperty |
21 Object subclass:#ViewProperty |
32 COPYRIGHT (c) 1995 by Claus Gittinger / eXept Software AG |
32 COPYRIGHT (c) 1995 by Claus Gittinger / eXept Software AG |
33 All Rights Reserved |
33 All Rights Reserved |
34 |
34 |
35 This software is furnished under a license and may be used |
35 This software is furnished under a license and may be used |
36 only in accordance with the terms of that license and with the |
36 only in accordance with the terms of that license and with the |
37 inclusion of the above copyright notice. This software may not |
37 inclusion of the above copyright notice. This software may not |
38 be provided or otherwise made available to, or used by, any |
38 be provided or otherwise made available to, or used by, any |
39 other person. No title to or ownership of the software is |
39 other person. No title to or ownership of the software is |
40 hereby transferred. |
40 hereby transferred. |
41 " |
41 " |
42 ! |
42 ! |
56 " |
56 " |
57 ! ! |
57 ! ! |
58 |
58 |
59 !UIPainterView class methodsFor:'code generation mode'! |
59 !UIPainterView class methodsFor:'code generation mode'! |
60 |
60 |
61 redefineMethods |
61 redefineAspectMethods |
62 "redefine methods yes or no. If a method is defined in super class |
62 "redefine methods yes or no. If a method is defined in super class |
63 should the message be reinstalled ? |
63 should the message be reinstalled ? |
64 " |
64 " |
65 ^ RedefineMethods ? false |
65 ^ RedefineAspectMethods ? false |
66 |
66 |
67 ! |
67 ! |
68 |
68 |
69 redefineMethods:aBool |
69 redefineAspectMethods:aBoolean |
70 "redefine methods yes or no. If a method is defined in super class |
70 "redefine methods yes or no. If a method is defined in super class |
71 should the message be reinstalled ? |
71 should the message be reinstalled ? |
72 " |
72 " |
73 RedefineMethods := aBool |
73 RedefineAspectMethods := aBoolean |
74 |
74 |
75 |
75 |
76 ! ! |
76 ! ! |
77 |
77 |
78 !UIPainterView class methodsFor:'defaults'! |
78 !UIPainterView class methodsFor:'defaults'! |
863 code := '!!' |
863 code := '!!' |
864 , className , ' class methodsFor:' , category storeString |
864 , className , ' class methodsFor:' , category storeString |
865 , '!!' , '\\' |
865 , '!!' , '\\' |
866 |
866 |
867 , methodName , '\' |
867 , methodName , '\' |
868 , ' "this window spec was automatically generated by the ST/X UIPainter"\\' |
868 , ((ResourceSpecEditor codeGenerationCommentForClass: UIPainter) replChar:$!! withString:'!!!!') |
869 , ' "do not manually edit this - the painter/builder may not be able to\' |
869 , '\\ "\' |
870 , ' handle the specification if its corrupted."\\' |
|
871 , ' "\' |
|
872 , (' UIPainter new openOnClass:' , className , ' andSelector:#' , methodName , '\') |
870 , (' UIPainter new openOnClass:' , className , ' andSelector:#' , methodName , '\') |
873 , (' ' , className , ' new openInterface:#' , methodName , '\') |
871 , (' ' , className , ' new openInterface:#' , methodName , '\') |
|
872 ,(methodName = 'windowSpec' |
|
873 ifTrue:[' ' , className , ' open\'] ifFalse: ['']) |
874 , ' "\'. |
874 , ' "\'. |
875 |
875 |
876 methodName = 'windowSpec' ifTrue:[ |
|
877 code := code , ' "' , className , ' open"\' |
|
878 ]. |
|
879 code := code |
876 code := code |
880 , '\' |
877 , '\' |
881 , ' <resource: #canvas>\\' |
878 , ' <resource: #canvas>\\' |
882 , ' ^\' |
879 , ' ^\' |
883 , ' ', specCode |
880 , ' ', specCode |