equal
deleted
inserted
replaced
48 |
48 |
49 [start with:] |
49 [start with:] |
50 UIPainter open |
50 UIPainter open |
51 |
51 |
52 [author:] |
52 [author:] |
|
53 Claus Gittinger |
53 Claus Atzkern |
54 Claus Atzkern |
54 |
55 |
55 [see also:] |
56 [see also:] |
56 UIBuilder |
57 UIBuilder |
57 ApplicationModel |
58 ApplicationModel |
1064 |
1065 |
1065 objectList removeDependent:self. |
1066 objectList removeDependent:self. |
1066 objectList painter release. |
1067 objectList painter release. |
1067 |
1068 |
1068 selectionPanel notNil ifTrue:[ |
1069 selectionPanel notNil ifTrue:[ |
|
1070 selectionPanel masterApplication:nil. |
1069 selectionPanel closeRequest |
1071 selectionPanel closeRequest |
1070 ]. |
1072 ]. |
1071 selectionPanel := nil. |
1073 selectionPanel := nil. |
1072 layoutTool := nil. |
1074 layoutTool := nil. |
1073 objectList := nil. |
1075 objectList := nil. |
1145 painterView bePartner. |
1147 painterView bePartner. |
1146 painterView application:self. |
1148 painterView application:self. |
1147 painterView open. |
1149 painterView open. |
1148 |
1150 |
1149 painterView application:self. |
1151 painterView application:self. |
1150 selectionPanel := UISelectionPanel newDefault. |
1152 selectionPanel := UISelectionPanel new. |
1151 selectionPanel allButOpenInterface:#windowSpec. |
1153 selectionPanel allButOpenInterface:#windowSpec. |
1152 selectionPanel window openInGroup:(topView windowGroup). |
1154 selectionPanel window openInGroup:(topView windowGroup). |
1153 selectionPanel window bePartner. |
1155 selectionPanel window bePartner. |
1154 selectionPanel openWindow. |
1156 selectionPanel openWindow. |
1155 selectionPanel window application:self. |
1157 selectionPanel masterApplication:self. |
1156 |
|
1157 "Modified: 17.6.1997 / 14:41:15 / cg" |
|
1158 ! |
1158 ! |
1159 |
1159 |
1160 openNewWindowCanvas |
1160 openNewWindowCanvas |
1161 "open new |
1161 "open new |
1162 " |
1162 " |