UIPainterView.st
changeset 154 34d5602e13d7
parent 149 e652608690b1
child 156 b332d7117c40
equal deleted inserted replaced
153:4be1d6d20a35 154:34d5602e13d7
    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'!
   236 ! !
   236 ! !
   237 
   237 
   238 !UIPainterView methodsFor:'accessing'!
   238 !UIPainterView methodsFor:'accessing'!
   239 
   239 
   240 application
   240 application
   241     self halt.
       
   242     ^ nil
   241     ^ nil
   243 
   242 
   244     "Modified: 6.9.1995 / 00:46:44 / claus"
   243     "Modified: 6.9.1995 / 00:46:44 / claus"
   245 !
   244 !
   246 
   245 
  1445         listHolder propertyChanged:props.
  1444         listHolder propertyChanged:props.
  1446     ]
  1445     ]
  1447 
  1446 
  1448 ! !
  1447 ! !
  1449 
  1448 
  1450 !UIPainterView::ViewProperty class methodsFor:'documentation'!
       
  1451 
       
  1452 version
       
  1453     ^ '$Header$'
       
  1454 ! !
       
  1455 
       
  1456 !UIPainterView::ViewProperty class methodsFor:'instance creation'!
       
  1457 
       
  1458 new
       
  1459     Identifier notNil ifTrue:[Identifier := Identifier + 1]
       
  1460                      ifFalse:[Identifier := 1].
       
  1461 
       
  1462   ^ self basicNew initialize
       
  1463 ! !
       
  1464 
       
  1465 !UIPainterView::ViewProperty methodsFor:'accessing'!
       
  1466 
       
  1467 identifier
       
  1468     "return the unique identifier assigned to property
       
  1469     "
       
  1470     ^ identifier
       
  1471 !
       
  1472 
       
  1473 identifier:anIdentifier
       
  1474     "set the unique identifier assigned to property; called after an restore of
       
  1475      a deleted instance
       
  1476     "
       
  1477     identifier := anIdentifier
       
  1478 !
       
  1479 
       
  1480 spec
       
  1481     "return the value of the instance variable 'spec' (automatically generated)"
       
  1482 
       
  1483     ^ spec!
       
  1484 
       
  1485 spec:something
       
  1486     "set the value of the instance variable 'spec' (automatically generated)"
       
  1487 
       
  1488     spec := something.!
       
  1489 
       
  1490 view
       
  1491     "return the value of the instance variable 'view' (automatically generated)"
       
  1492 
       
  1493     ^ view!
       
  1494 
       
  1495 view:something
       
  1496     "set the value of the instance variable 'view' (automatically generated)"
       
  1497 
       
  1498     view := something.! !
       
  1499 
       
  1500 !UIPainterView::ViewProperty methodsFor:'initialization'!
       
  1501 
       
  1502 initialize
       
  1503     super initialize.
       
  1504     identifier := Identifier
       
  1505 ! !
       
  1506 
       
  1507 !UIPainterView::ViewProperty methodsFor:'misc'!
       
  1508 
       
  1509 extractNumberStartingAt:anIndex
       
  1510     "return the number from the name starting at anIndex or 0.
       
  1511     "
       
  1512     |val|
       
  1513 
       
  1514     val := 0.
       
  1515 
       
  1516     self name from:anIndex do:[:c|
       
  1517         c isDigit ifTrue:[val := val * 10 + c digitValue]
       
  1518                  ifFalse:[^ 0]
       
  1519     ].
       
  1520     ^ val
       
  1521         
       
  1522 ! !
       
  1523 
       
  1524 !UIPainterView::ViewProperty methodsFor:'spec messages'!
       
  1525 
       
  1526 doesNotUnderstand:aMessage
       
  1527     spec notNil ifTrue:[
       
  1528         (spec respondsTo:(aMessage selector)) ifTrue:[^ aMessage sendTo:spec]
       
  1529     ].
       
  1530     ^ nil
       
  1531 !
       
  1532 
       
  1533 layout
       
  1534     spec layout
       
  1535 !
       
  1536 
       
  1537 layout:aLayout
       
  1538     spec layout:aLayout
       
  1539 !
       
  1540 
       
  1541 name
       
  1542     ^ spec name
       
  1543 !
       
  1544 
       
  1545 name:aName
       
  1546     spec name:aName
       
  1547 ! !
       
  1548 
       
  1549 !UIPainterView::ListHolder class methodsFor:'instance creation'!
  1449 !UIPainterView::ListHolder class methodsFor:'instance creation'!
  1550 
  1450 
  1551 for:aPainter
  1451 for:aPainter
  1552     ^ self new for:aPainter
  1452     ^ self new for:aPainter
  1553 ! !
  1453 ! !
  1877 
  1777 
  1878     self masterElement:masterIndex.
  1778     self masterElement:masterIndex.
  1879     super selectionIndex:aSel
  1779     super selectionIndex:aSel
  1880 ! !
  1780 ! !
  1881 
  1781 
  1882 !UIPainterView class methodsFor:'documentation'!
  1782 !UIPainterView::ViewProperty class methodsFor:'documentation'!
  1883 
  1783 
  1884 version
  1784 version
  1885     ^ '$Header$'
  1785     ^ '$Header$'
  1886 ! !
  1786 ! !
       
  1787 
       
  1788 !UIPainterView::ViewProperty class methodsFor:'instance creation'!
       
  1789 
       
  1790 new
       
  1791     Identifier notNil ifTrue:[Identifier := Identifier + 1]
       
  1792                      ifFalse:[Identifier := 1].
       
  1793 
       
  1794   ^ self basicNew initialize
       
  1795 ! !
       
  1796 
       
  1797 !UIPainterView::ViewProperty methodsFor:'accessing'!
       
  1798 
       
  1799 identifier
       
  1800     "return the unique identifier assigned to property
       
  1801     "
       
  1802     ^ identifier
       
  1803 !
       
  1804 
       
  1805 identifier:anIdentifier
       
  1806     "set the unique identifier assigned to property; called after an restore of
       
  1807      a deleted instance
       
  1808     "
       
  1809     identifier := anIdentifier
       
  1810 !
       
  1811 
       
  1812 spec
       
  1813     "return the value of the instance variable 'spec' (automatically generated)"
       
  1814 
       
  1815     ^ spec!
       
  1816 
       
  1817 spec:something
       
  1818     "set the value of the instance variable 'spec' (automatically generated)"
       
  1819 
       
  1820     spec := something.!
       
  1821 
       
  1822 view
       
  1823     "return the value of the instance variable 'view' (automatically generated)"
       
  1824 
       
  1825     ^ view!
       
  1826 
       
  1827 view:something
       
  1828     "set the value of the instance variable 'view' (automatically generated)"
       
  1829 
       
  1830     view := something.! !
       
  1831 
       
  1832 !UIPainterView::ViewProperty methodsFor:'initialization'!
       
  1833 
       
  1834 initialize
       
  1835     super initialize.
       
  1836     identifier := Identifier
       
  1837 ! !
       
  1838 
       
  1839 !UIPainterView::ViewProperty methodsFor:'misc'!
       
  1840 
       
  1841 extractNumberStartingAt:anIndex
       
  1842     "return the number from the name starting at anIndex or 0.
       
  1843     "
       
  1844     |val|
       
  1845 
       
  1846     val := 0.
       
  1847 
       
  1848     self name from:anIndex do:[:c|
       
  1849         c isDigit ifTrue:[val := val * 10 + c digitValue]
       
  1850                  ifFalse:[^ 0]
       
  1851     ].
       
  1852     ^ val
       
  1853         
       
  1854 ! !
       
  1855 
       
  1856 !UIPainterView::ViewProperty methodsFor:'spec messages'!
       
  1857 
       
  1858 doesNotUnderstand:aMessage
       
  1859     spec notNil ifTrue:[
       
  1860         (spec respondsTo:(aMessage selector)) ifTrue:[^ aMessage sendTo:spec]
       
  1861     ].
       
  1862     ^ nil
       
  1863 !
       
  1864 
       
  1865 layout
       
  1866     spec layout
       
  1867 !
       
  1868 
       
  1869 layout:aLayout
       
  1870     spec layout:aLayout
       
  1871 !
       
  1872 
       
  1873 name
       
  1874     ^ spec name
       
  1875 !
       
  1876 
       
  1877 name:aName
       
  1878     spec name:aName
       
  1879 ! !
       
  1880 
       
  1881 !UIPainterView class methodsFor:'documentation'!
       
  1882 
       
  1883 version
       
  1884     ^ '$Header$'
       
  1885 ! !