15 classVariableNames:'HandCursor' |
15 classVariableNames:'HandCursor' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Interface-UIPainter' |
17 category:'Interface-UIPainter' |
18 ! |
18 ! |
19 |
19 |
|
20 Object subclass:#ViewProperty |
|
21 instanceVariableNames:'view spec identifier' |
|
22 classVariableNames:'Identifier' |
|
23 poolDictionaries:'' |
|
24 privateIn:UIPainterView |
|
25 ! |
|
26 |
20 MultiSelectionInList subclass:#ListHolder |
27 MultiSelectionInList subclass:#ListHolder |
21 instanceVariableNames:'painter propertyList masterElement disabledChanged' |
28 instanceVariableNames:'painter propertyList masterElement disabledChanged' |
22 classVariableNames:'' |
29 classVariableNames:'' |
23 poolDictionaries:'' |
|
24 privateIn:UIPainterView |
|
25 ! |
|
26 |
|
27 Object subclass:#ViewProperty |
|
28 instanceVariableNames:'view spec identifier' |
|
29 classVariableNames:'Identifier' |
|
30 poolDictionaries:'' |
30 poolDictionaries:'' |
31 privateIn:UIPainterView |
31 privateIn:UIPainterView |
32 ! |
32 ! |
33 |
33 |
34 !UIPainterView class methodsFor:'documentation'! |
34 !UIPainterView class methodsFor:'documentation'! |
636 specArray := spec literalArrayEncoding. |
636 specArray := spec literalArrayEncoding. |
637 |
637 |
638 str := WriteStream on:String new. |
638 str := WriteStream on:String new. |
639 UISpecification prettyPrintSpecArray:specArray on:str indent:5. |
639 UISpecification prettyPrintSpecArray:specArray on:str indent:5. |
640 |
640 |
|
641 "/ if that method already exists, do not overwrite the category |
|
642 |
|
643 category := 'interface specs'. |
|
644 (cls := Smalltalk classNamed:className) notNil ifTrue:[ |
|
645 (mthd := cls class compiledMethodAt:methodName asSymbol) notNil ifTrue:[ |
|
646 category := mthd category. |
|
647 ] |
|
648 ]. |
|
649 |
641 code := Character excla asString |
650 code := Character excla asString |
642 , className , ' class methodsFor:''interface specs''' |
651 , className , ' class methodsFor:' , category storeString |
643 , Character excla asString , '\\' |
652 , Character excla asString , '\\' |
644 |
653 |
645 , methodName , '\' |
654 , methodName , '\' |
646 , ' "this window spec was automatically generated by the ST/X UIPainter"\\' |
655 , ' "this window spec was automatically generated by the ST/X UIPainter"\\' |
647 , ' "do not manually edit this - the painter/builder may not be able to\' |
656 , ' "do not manually edit this - the painter/builder may not be able to\' |
1161 listHolder propertyChanged:props. |
1171 listHolder propertyChanged:props. |
1162 ] |
1172 ] |
1163 |
1173 |
1164 ! ! |
1174 ! ! |
1165 |
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 |
1166 !UIPainterView::ListHolder class methodsFor:'instance creation'! |
1275 !UIPainterView::ListHolder class methodsFor:'instance creation'! |
1167 |
1276 |
1168 for:aPainter |
1277 for:aPainter |
1169 ^ self new for:aPainter |
1278 ^ self new for:aPainter |
1170 ! ! |
1279 ! ! |
1494 |
1603 |
1495 self masterElement:masterIndex. |
1604 self masterElement:masterIndex. |
1496 super selectionIndex:aSel |
1605 super selectionIndex:aSel |
1497 ! ! |
1606 ! ! |
1498 |
1607 |
1499 !UIPainterView::ViewProperty class methodsFor:'documentation'! |
1608 !UIPainterView class methodsFor:'documentation'! |
1500 |
1609 |
1501 version |
1610 version |
1502 ^ '$Header$' |
1611 ^ '$Header$' |
1503 ! ! |
1612 ! ! |
1504 |
|
1505 !UIPainterView::ViewProperty class methodsFor:'instance creation'! |
|
1506 |
|
1507 new |
|
1508 Identifier notNil ifTrue:[Identifier := Identifier + 1] |
|
1509 ifFalse:[Identifier := 1]. |
|
1510 |
|
1511 ^ self basicNew initialize |
|
1512 ! ! |
|
1513 |
|
1514 !UIPainterView::ViewProperty methodsFor:'accessing'! |
|
1515 |
|
1516 identifier |
|
1517 "return the unique identifier assigned to property |
|
1518 " |
|
1519 ^ identifier |
|
1520 ! |
|
1521 |
|
1522 identifier:anIdentifier |
|
1523 "set the unique identifier assigned to property; called after an restore of |
|
1524 a deleted instance |
|
1525 " |
|
1526 identifier := anIdentifier |
|
1527 ! |
|
1528 |
|
1529 spec |
|
1530 "return the value of the instance variable 'spec' (automatically generated)" |
|
1531 |
|
1532 ^ spec! |
|
1533 |
|
1534 spec:something |
|
1535 "set the value of the instance variable 'spec' (automatically generated)" |
|
1536 |
|
1537 spec := something.! |
|
1538 |
|
1539 view |
|
1540 "return the value of the instance variable 'view' (automatically generated)" |
|
1541 |
|
1542 ^ view! |
|
1543 |
|
1544 view:something |
|
1545 "set the value of the instance variable 'view' (automatically generated)" |
|
1546 |
|
1547 view := something.! ! |
|
1548 |
|
1549 !UIPainterView::ViewProperty methodsFor:'initialization'! |
|
1550 |
|
1551 initialize |
|
1552 super initialize. |
|
1553 identifier := Identifier |
|
1554 ! ! |
|
1555 |
|
1556 !UIPainterView::ViewProperty methodsFor:'misc'! |
|
1557 |
|
1558 extractNumberStartingAt:anIndex |
|
1559 "return the number from the name starting at anIndex or 0. |
|
1560 " |
|
1561 |val| |
|
1562 |
|
1563 val := 0. |
|
1564 |
|
1565 self name from:anIndex do:[:c| |
|
1566 c isDigit ifTrue:[val := val * 10 + c digitValue] |
|
1567 ifFalse:[^ 0] |
|
1568 ]. |
|
1569 ^ val |
|
1570 |
|
1571 ! ! |
|
1572 |
|
1573 !UIPainterView::ViewProperty methodsFor:'spec messages'! |
|
1574 |
|
1575 doesNotUnderstand:aMessage |
|
1576 spec notNil ifTrue:[ |
|
1577 (spec respondsTo:(aMessage selector)) ifTrue:[^ aMessage sendTo:spec] |
|
1578 ]. |
|
1579 ^ nil |
|
1580 ! |
|
1581 |
|
1582 layout |
|
1583 spec layout |
|
1584 ! |
|
1585 |
|
1586 layout:aLayout |
|
1587 spec layout:aLayout |
|
1588 ! |
|
1589 |
|
1590 name |
|
1591 ^ spec name |
|
1592 ! |
|
1593 |
|
1594 name:aName |
|
1595 spec name:aName |
|
1596 ! ! |
|
1597 |
|
1598 !UIPainterView class methodsFor:'documentation'! |
|
1599 |
|
1600 version |
|
1601 ^ '$Header$' |
|
1602 ! ! |
|