15 classVariableNames:'HandCursor' |
15 classVariableNames:'HandCursor' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Interface-UIPainter' |
17 category:'Interface-UIPainter' |
18 ! |
18 ! |
19 |
19 |
|
20 MultiSelectionInList subclass:#ListHolder |
|
21 instanceVariableNames:'painter propertyList masterElement disabledChanged' |
|
22 classVariableNames:'' |
|
23 poolDictionaries:'' |
|
24 privateIn:UIPainterView |
|
25 ! |
|
26 |
20 Object subclass:#ViewProperty |
27 Object subclass:#ViewProperty |
21 instanceVariableNames:'view spec identifier' |
28 instanceVariableNames:'view spec identifier' |
22 classVariableNames:'Identifier' |
29 classVariableNames:'Identifier' |
23 poolDictionaries:'' |
|
24 privateIn:UIPainterView |
|
25 ! |
|
26 |
|
27 MultiSelectionInList subclass:#ListHolder |
|
28 instanceVariableNames:'painter propertyList masterElement disabledChanged' |
|
29 classVariableNames:'' |
|
30 poolDictionaries:'' |
30 poolDictionaries:'' |
31 privateIn:UIPainterView |
31 privateIn:UIPainterView |
32 ! |
32 ! |
33 |
33 |
34 !UIPainterView class methodsFor:'documentation'! |
34 !UIPainterView class methodsFor:'documentation'! |
1171 listHolder propertyChanged:props. |
1171 listHolder propertyChanged:props. |
1172 ] |
1172 ] |
1173 |
1173 |
1174 ! ! |
1174 ! ! |
1175 |
1175 |
1176 !UIPainterView::ViewProperty class methodsFor:'documentation'! |
|
1177 |
|
1178 version |
|
1179 ^ '$Header$' |
|
1180 ! ! |
|
1181 |
|
1182 !UIPainterView::ViewProperty class methodsFor:'instance creation'! |
|
1183 |
|
1184 new |
|
1185 Identifier notNil ifTrue:[Identifier := Identifier + 1] |
|
1186 ifFalse:[Identifier := 1]. |
|
1187 |
|
1188 ^ self basicNew initialize |
|
1189 ! ! |
|
1190 |
|
1191 !UIPainterView::ViewProperty methodsFor:'accessing'! |
|
1192 |
|
1193 identifier |
|
1194 "return the unique identifier assigned to property |
|
1195 " |
|
1196 ^ identifier |
|
1197 ! |
|
1198 |
|
1199 identifier:anIdentifier |
|
1200 "set the unique identifier assigned to property; called after an restore of |
|
1201 a deleted instance |
|
1202 " |
|
1203 identifier := anIdentifier |
|
1204 ! |
|
1205 |
|
1206 spec |
|
1207 "return the value of the instance variable 'spec' (automatically generated)" |
|
1208 |
|
1209 ^ spec! |
|
1210 |
|
1211 spec:something |
|
1212 "set the value of the instance variable 'spec' (automatically generated)" |
|
1213 |
|
1214 spec := something.! |
|
1215 |
|
1216 view |
|
1217 "return the value of the instance variable 'view' (automatically generated)" |
|
1218 |
|
1219 ^ view! |
|
1220 |
|
1221 view:something |
|
1222 "set the value of the instance variable 'view' (automatically generated)" |
|
1223 |
|
1224 view := something.! ! |
|
1225 |
|
1226 !UIPainterView::ViewProperty methodsFor:'initialization'! |
|
1227 |
|
1228 initialize |
|
1229 super initialize. |
|
1230 identifier := Identifier |
|
1231 ! ! |
|
1232 |
|
1233 !UIPainterView::ViewProperty methodsFor:'misc'! |
|
1234 |
|
1235 extractNumberStartingAt:anIndex |
|
1236 "return the number from the name starting at anIndex or 0. |
|
1237 " |
|
1238 |val| |
|
1239 |
|
1240 val := 0. |
|
1241 |
|
1242 self name from:anIndex do:[:c| |
|
1243 c isDigit ifTrue:[val := val * 10 + c digitValue] |
|
1244 ifFalse:[^ 0] |
|
1245 ]. |
|
1246 ^ val |
|
1247 |
|
1248 ! ! |
|
1249 |
|
1250 !UIPainterView::ViewProperty methodsFor:'spec messages'! |
|
1251 |
|
1252 doesNotUnderstand:aMessage |
|
1253 spec notNil ifTrue:[ |
|
1254 (spec respondsTo:(aMessage selector)) ifTrue:[^ aMessage sendTo:spec] |
|
1255 ]. |
|
1256 ^ nil |
|
1257 ! |
|
1258 |
|
1259 layout |
|
1260 spec layout |
|
1261 ! |
|
1262 |
|
1263 layout:aLayout |
|
1264 spec layout:aLayout |
|
1265 ! |
|
1266 |
|
1267 name |
|
1268 ^ spec name |
|
1269 ! |
|
1270 |
|
1271 name:aName |
|
1272 spec name:aName |
|
1273 ! ! |
|
1274 |
|
1275 !UIPainterView::ListHolder class methodsFor:'instance creation'! |
1176 !UIPainterView::ListHolder class methodsFor:'instance creation'! |
1276 |
1177 |
1277 for:aPainter |
1178 for:aPainter |
1278 ^ self new for:aPainter |
1179 ^ self new for:aPainter |
1279 ! ! |
1180 ! ! |
1603 |
1504 |
1604 self masterElement:masterIndex. |
1505 self masterElement:masterIndex. |
1605 super selectionIndex:aSel |
1506 super selectionIndex:aSel |
1606 ! ! |
1507 ! ! |
1607 |
1508 |
1608 !UIPainterView class methodsFor:'documentation'! |
1509 !UIPainterView::ViewProperty class methodsFor:'documentation'! |
1609 |
1510 |
1610 version |
1511 version |
1611 ^ '$Header$' |
1512 ^ '$Header$' |
1612 ! ! |
1513 ! ! |
|
1514 |
|
1515 !UIPainterView::ViewProperty class methodsFor:'instance creation'! |
|
1516 |
|
1517 new |
|
1518 Identifier notNil ifTrue:[Identifier := Identifier + 1] |
|
1519 ifFalse:[Identifier := 1]. |
|
1520 |
|
1521 ^ self basicNew initialize |
|
1522 ! ! |
|
1523 |
|
1524 !UIPainterView::ViewProperty methodsFor:'accessing'! |
|
1525 |
|
1526 identifier |
|
1527 "return the unique identifier assigned to property |
|
1528 " |
|
1529 ^ identifier |
|
1530 ! |
|
1531 |
|
1532 identifier:anIdentifier |
|
1533 "set the unique identifier assigned to property; called after an restore of |
|
1534 a deleted instance |
|
1535 " |
|
1536 identifier := anIdentifier |
|
1537 ! |
|
1538 |
|
1539 spec |
|
1540 "return the value of the instance variable 'spec' (automatically generated)" |
|
1541 |
|
1542 ^ spec! |
|
1543 |
|
1544 spec:something |
|
1545 "set the value of the instance variable 'spec' (automatically generated)" |
|
1546 |
|
1547 spec := something.! |
|
1548 |
|
1549 view |
|
1550 "return the value of the instance variable 'view' (automatically generated)" |
|
1551 |
|
1552 ^ view! |
|
1553 |
|
1554 view:something |
|
1555 "set the value of the instance variable 'view' (automatically generated)" |
|
1556 |
|
1557 view := something.! ! |
|
1558 |
|
1559 !UIPainterView::ViewProperty methodsFor:'initialization'! |
|
1560 |
|
1561 initialize |
|
1562 super initialize. |
|
1563 identifier := Identifier |
|
1564 ! ! |
|
1565 |
|
1566 !UIPainterView::ViewProperty methodsFor:'misc'! |
|
1567 |
|
1568 extractNumberStartingAt:anIndex |
|
1569 "return the number from the name starting at anIndex or 0. |
|
1570 " |
|
1571 |val| |
|
1572 |
|
1573 val := 0. |
|
1574 |
|
1575 self name from:anIndex do:[:c| |
|
1576 c isDigit ifTrue:[val := val * 10 + c digitValue] |
|
1577 ifFalse:[^ 0] |
|
1578 ]. |
|
1579 ^ val |
|
1580 |
|
1581 ! ! |
|
1582 |
|
1583 !UIPainterView::ViewProperty methodsFor:'spec messages'! |
|
1584 |
|
1585 doesNotUnderstand:aMessage |
|
1586 spec notNil ifTrue:[ |
|
1587 (spec respondsTo:(aMessage selector)) ifTrue:[^ aMessage sendTo:spec] |
|
1588 ]. |
|
1589 ^ nil |
|
1590 ! |
|
1591 |
|
1592 layout |
|
1593 spec layout |
|
1594 ! |
|
1595 |
|
1596 layout:aLayout |
|
1597 spec layout:aLayout |
|
1598 ! |
|
1599 |
|
1600 name |
|
1601 ^ spec name |
|
1602 ! |
|
1603 |
|
1604 name:aName |
|
1605 spec name:aName |
|
1606 ! ! |
|
1607 |
|
1608 !UIPainterView class methodsFor:'documentation'! |
|
1609 |
|
1610 version |
|
1611 ^ '$Header$' |
|
1612 ! ! |