equal
deleted
inserted
replaced
67 |application| |
67 |application| |
68 |
68 |
69 application := self new. |
69 application := self new. |
70 application objectList:aListHolder. |
70 application objectList:aListHolder. |
71 ^ application open |
71 ^ application open |
|
72 ! |
|
73 |
|
74 openOnClass:aClass andSelector:aSelector |
|
75 ^ self new openOnClass:aClass andSelector:aSelector |
|
76 |
|
77 "Created: 1.7.1997 / 19:16:59 / cg" |
72 ! |
78 ! |
73 |
79 |
74 painter:aBuilderView |
80 painter:aBuilderView |
75 |application| |
81 |application| |
76 |
82 |
1315 "/ painter |
1321 "/ painter |
1316 "/ className:aClass name |
1322 "/ className:aClass name |
1317 "/ superclassName:aClass superclass name |
1323 "/ superclassName:aClass superclass name |
1318 "/ selector:aSelector. |
1324 "/ selector:aSelector. |
1319 |
1325 |
1320 painter setupFromSpec:(aClass perform:aSelector). |
1326 (aClass respondsTo:aSelector) ifTrue:[ |
|
1327 painter setupFromSpec:(aClass perform:aSelector). |
|
1328 ] |
1321 ] |
1329 ] |
1322 |
1330 |
1323 "Modified: 24.6.1997 / 19:07:05 / cg" |
1331 "Modified: 1.7.1997 / 19:18:54 / cg" |
1324 ! ! |
1332 ! ! |
1325 |
1333 |
1326 !UIPainter methodsFor:'user interaction - dialog'! |
1334 !UIPainter methodsFor:'user interaction - dialog'! |
1327 |
1335 |
1328 checkClassAndSelector |
1336 checkClassAndSelector |