DataSetBuilder.st
changeset 2816 1832d595db94
parent 2789 4f5e12eb7525
child 2840 3fc46b951a0f
equal deleted inserted replaced
2815:053d07b21ae0 2816:1832d595db94
    99         minWidth
    99         minWidth
   100         usePreferredWidth
   100         usePreferredWidth
   101         isResizeable
   101         isResizeable
   102         height
   102         height
   103         menu
   103         menu
       
   104         menuFromApplication
   104         foregroundSelector
   105         foregroundSelector
   105         backgroundSelector
   106         backgroundSelector
   106         selectedForegroundSelector
   107         selectedForegroundSelector
   107         selectedBackgroundSelector
   108         selectedBackgroundSelector
   108         doubleClickedSelector
   109         doubleClickedSelector
   134         isSortable
   135         isSortable
   135         sortSelector
   136         sortSelector
   136         sortBlockSelector
   137         sortBlockSelector
   137      )
   138      )
   138 
   139 
   139     "Modified: / 16-06-2010 / 15:58:54 / cg"
   140     "Modified: / 25-10-2010 / 10:31:51 / cg"
   140 ! !
   141 ! !
   141 
   142 
   142 !DataSetBuilder class methodsFor:'help specs'!
   143 !DataSetBuilder class methodsFor:'help specs'!
   143 
   144 
   144 flyByHelpSpec
   145 flyByHelpSpec
   361 'Compute width from first 10 row items.'
   362 'Compute width from first 10 row items.'
   362 
   363 
   363 #valuesChoicesSelector
   364 #valuesChoicesSelector
   364 'Selector to get a collection of choices for a cell having a ComboBox or a ComboList widget.'
   365 'Selector to get a collection of choices for a cell having a ComboBox or a ComboList widget.'
   365 
   366 
       
   367 #valuesMenuFromApplication
       
   368 'Fetch the menu from the application (instead of the row)'
       
   369 
   366 #valuesMenuSelector
   370 #valuesMenuSelector
   367 'Selector to retrive the middle button menu.'
   371 'Selector to retrieve the middle button menu.'
   368 
   372 
   369 #valuesPrintSelector
   373 #valuesPrintSelector
   370 'Selector used to register images on a DSVColumnView (the arg). For more detailed info see #register... methods in DSVColumnView.'
   374 'Selector used to register images on a DSVColumnView (the arg). For more detailed info see #register... methods in DSVColumnView.'
   371 
   375 
   372 #valuesReadSelector
   376 #valuesReadSelector
   380 
   384 
   381 #valuesXChoicesSelector
   385 #valuesXChoicesSelector
   382 'Selector to get a collection of translated choices for a cell having a ComboBox or a ComboList widget.'
   386 'Selector to get a collection of translated choices for a cell having a ComboBox or a ComboList widget.'
   383 
   387 
   384 )
   388 )
   385 
       
   386     "Modified: / 16-06-2010 / 16:04:22 / cg"
       
   387 ! !
   389 ! !
   388 
   390 
   389 !DataSetBuilder class methodsFor:'image specs'!
   391 !DataSetBuilder class methodsFor:'image specs'!
   390 
   392 
   391 newColumnIcon
   393 newColumnIcon
  1474                     name: 'selectorLabel'
  1476                     name: 'selectorLabel'
  1475                     layout: (AlignmentOrigin 95 0 37 0 1 0.5)
  1477                     layout: (AlignmentOrigin 95 0 37 0 1 0.5)
  1476                     resizeForLabel: true
  1478                     resizeForLabel: true
  1477                     adjust: right
  1479                     adjust: right
  1478                     translateLabel: true
  1480                     translateLabel: true
       
  1481                     activeHelpKey: selectionCellClickSelector
  1479                   )
  1482                   )
  1480                  (InputFieldSpec
  1483                  (InputFieldSpec
  1481                     name: 'selectSelector'
  1484                     name: 'selectSelector'
  1482                     layout: (LayoutFrame 98 0 26 0 3 1.0 48 0)
  1485                     layout: (LayoutFrame 98 0 26 0 3 1.0 48 0)
  1483                     activeHelpKey: selectionCellClickSelector
  1486                     activeHelpKey: selectionCellClickSelector
  1517                     name: 'doubleLabel'
  1520                     name: 'doubleLabel'
  1518                     layout: (AlignmentOrigin 95 0 19 0 1 0.5)
  1521                     layout: (AlignmentOrigin 95 0 19 0 1 0.5)
  1519                     resizeForLabel: true
  1522                     resizeForLabel: true
  1520                     adjust: right
  1523                     adjust: right
  1521                     translateLabel: true
  1524                     translateLabel: true
       
  1525                     activeHelpKey: selectionCellDoubleClickSelector
  1522                   )
  1526                   )
  1523                  (InputFieldSpec
  1527                  (InputFieldSpec
  1524                     name: 'doubleClicked'
  1528                     name: 'doubleClicked'
  1525                     layout: (LayoutFrame 98 0 8 0 3 1.0 30 0)
  1529                     layout: (LayoutFrame 98 0 8 0 3 1.0 30 0)
  1526                     activeHelpKey: selectionCellDoubleClickSelector
  1530                     activeHelpKey: selectionCellDoubleClickSelector
  1539             )
  1543             )
  1540            )
  1544            )
  1541          
  1545          
  1542         )
  1546         )
  1543       )
  1547       )
       
  1548 
       
  1549     "Modified: / 25-10-2010 / 10:29:42 / cg"
  1544 !
  1550 !
  1545 
  1551 
  1546 slices
  1552 slices
  1547     ^#(
  1553     ^#(
  1548         (Basics         basicsEditSpec)
  1554         (Basics         basicsEditSpec)
  1694         window: 
  1700         window: 
  1695        (WindowSpec
  1701        (WindowSpec
  1696           label: 'DataSet Basic'
  1702           label: 'DataSet Basic'
  1697           name: 'DataSet Basic'
  1703           name: 'DataSet Basic'
  1698           min: (Point 10 10)
  1704           min: (Point 10 10)
  1699           bounds: (Rectangle 0 0 436 387)
  1705           bounds: (Rectangle 0 0 471 417)
  1700         )
  1706         )
  1701         component: 
  1707         component: 
  1702        (SpecCollection
  1708        (SpecCollection
  1703           collection: (
  1709           collection: (
  1704            (FramedBoxSpec
  1710            (VerticalPanelViewSpec
  1705               label: 'Value Selectors:'
  1711               name: 'VerticalPanel1'
  1706               name: 'valuesBox'
  1712               layout: (LayoutFrame 0 0 0 0 0 1 0 1)
  1707               layout: (LayoutFrame 0 0.0 3 0 0 1.0 163 0)
  1713               horizontalLayout: fit
  1708               labelPosition: topLeft
  1714               verticalLayout: top
  1709               translateLabel: true
  1715               horizontalSpace: 3
       
  1716               verticalSpace: 3
  1710               component: 
  1717               component: 
  1711              (SpecCollection
  1718              (SpecCollection
  1712                 collection: (
  1719                 collection: (
  1713                  (LabelSpec
  1720                  (FramedBoxSpec
  1714                     label: 'Read:'
  1721                     label: 'Value Selectors:'
  1715                     name: 'readLabel'
  1722                     name: 'valuesBox'
  1716                     layout: (AlignmentOrigin 94 0 15 0 1 0.5)
  1723                     labelPosition: topLeft
  1717                     translateLabel: true
  1724                     translateLabel: true
  1718                     resizeForLabel: true
  1725                     component: 
  1719                     adjust: right
  1726                    (SpecCollection
  1720                   )
  1727                       collection: (
  1721                  (InputFieldSpec
  1728                        (LabelSpec
  1722                     name: 'readSelector'
  1729                           label: 'Read:'
  1723                     layout: (LayoutFrame 97 0 4 0 2 1.0 26 0)
  1730                           name: 'readLabel'
  1724                     activeHelpKey: valuesReadSelector
  1731                           layout: (AlignmentOrigin 94 0 15 0 1 0.5)
  1725                     tabable: true
  1732                           activeHelpKey: valuesReadSelector
  1726                     model: readSelector
  1733                           translateLabel: true
  1727                     group: inputGroup
  1734                           resizeForLabel: true
  1728                     type: symbolOrNil
  1735                           adjust: right
  1729                     acceptOnLostFocus: false
  1736                         )
  1730                     acceptChannel: acceptChannel
  1737                        (InputFieldSpec
  1731                     modifiedChannel: modifiedChannel
  1738                           name: 'readSelector'
  1732                     acceptOnPointerLeave: false
  1739                           layout: (LayoutFrame 97 0 4 0 2 1.0 26 0)
  1733                   )
  1740                           activeHelpKey: valuesReadSelector
  1734                  (LabelSpec
  1741                           tabable: true
  1735                     label: 'Write:'
  1742                           model: readSelector
  1736                     name: 'writeLabel'
  1743                           group: inputGroup
  1737                     layout: (AlignmentOrigin 94 0 40 0 1 0.5)
  1744                           type: symbolOrNil
       
  1745                           acceptOnLostFocus: false
       
  1746                           acceptChannel: acceptChannel
       
  1747                           modifiedChannel: modifiedChannel
       
  1748                           acceptOnPointerLeave: false
       
  1749                         )
       
  1750                        (LabelSpec
       
  1751                           label: 'Write:'
       
  1752                           name: 'writeLabel'
       
  1753                           layout: (AlignmentOrigin 94 0 40 0 1 0.5)
       
  1754                           activeHelpKey: valuesWriteSelector
       
  1755                           translateLabel: true
       
  1756                           resizeForLabel: true
       
  1757                           adjust: right
       
  1758                         )
       
  1759                        (InputFieldSpec
       
  1760                           name: 'writeSelector'
       
  1761                           layout: (LayoutFrame 97 0 29 0 2 1.0 51 0)
       
  1762                           activeHelpKey: valuesWriteSelector
       
  1763                           tabable: true
       
  1764                           model: writeSelector
       
  1765                           group: inputGroup
       
  1766                           type: symbolOrNil
       
  1767                           acceptOnLostFocus: false
       
  1768                           acceptChannel: acceptChannel
       
  1769                           modifiedChannel: modifiedChannel
       
  1770                           acceptOnPointerLeave: false
       
  1771                         )
       
  1772                        (LabelSpec
       
  1773                           label: 'Converter:'
       
  1774                           name: 'converterLabel'
       
  1775                           layout: (AlignmentOrigin 94 0 65 0 1 0.5)
       
  1776                           activeHelpKey: converterSelector
       
  1777                           translateLabel: true
       
  1778                           resizeForLabel: true
       
  1779                           adjust: right
       
  1780                         )
       
  1781                        (InputFieldSpec
       
  1782                           name: 'converterField'
       
  1783                           layout: (LayoutFrame 97 0 54 0 2 1.0 76 0)
       
  1784                           activeHelpKey: converterSelector
       
  1785                           tabable: true
       
  1786                           model: converterSelector
       
  1787                           group: inputGroup
       
  1788                           type: symbolOrNil
       
  1789                           acceptOnLostFocus: false
       
  1790                           acceptChannel: acceptChannel
       
  1791                           modifiedChannel: modifiedChannel
       
  1792                           acceptOnPointerLeave: false
       
  1793                         )
       
  1794                        (LabelSpec
       
  1795                           label: 'Print:'
       
  1796                           name: 'printLabel'
       
  1797                           layout: (AlignmentOrigin 94 0 90 0 1 0.5)
       
  1798                           activeHelpKey: valuesPrintSelector
       
  1799                           translateLabel: true
       
  1800                           resizeForLabel: true
       
  1801                           adjust: right
       
  1802                         )
       
  1803                        (InputFieldSpec
       
  1804                           name: 'printSelector'
       
  1805                           layout: (LayoutFrame 97 0 79 0 2 1.0 101 0)
       
  1806                           activeHelpKey: valuesPrintSelector
       
  1807                           tabable: true
       
  1808                           model: printSelector
       
  1809                           group: inputGroup
       
  1810                           type: symbolOrNil
       
  1811                           acceptOnLostFocus: false
       
  1812                           acceptChannel: acceptChannel
       
  1813                           modifiedChannel: modifiedChannel
       
  1814                           acceptOnPointerLeave: false
       
  1815                         )
       
  1816                        (LabelSpec
       
  1817                           label: 'Visibility:'
       
  1818                           name: 'visibilityLabel'
       
  1819                           layout: (AlignmentOrigin 94 0 115 0 1 0.5)
       
  1820                           activeHelpKey: valuesVisibilitySelector
       
  1821                           translateLabel: true
       
  1822                           resizeForLabel: true
       
  1823                           adjust: right
       
  1824                         )
       
  1825                        (InputFieldSpec
       
  1826                           name: 'visibilitySelector'
       
  1827                           layout: (LayoutFrame 97 0 104 0 2 1.0 126 0)
       
  1828                           activeHelpKey: valuesVisibilitySelector
       
  1829                           tabable: true
       
  1830                           model: visibilitySelector
       
  1831                           group: inputGroup
       
  1832                           type: symbolOrNil
       
  1833                           acceptOnLostFocus: false
       
  1834                           acceptChannel: acceptChannel
       
  1835                           modifiedChannel: modifiedChannel
       
  1836                           acceptOnPointerLeave: false
       
  1837                         )
       
  1838                        )
       
  1839                      
       
  1840                     )
       
  1841                     extent: (Point 471 160)
       
  1842                   )
       
  1843                  (FramedBoxSpec
       
  1844                     label: 'Range:'
       
  1845                     name: 'rangeBox'
       
  1846                     labelPosition: topLeft
  1738                     translateLabel: true
  1847                     translateLabel: true
  1739                     resizeForLabel: true
  1848                     component: 
  1740                     adjust: right
  1849                    (SpecCollection
  1741                   )
  1850                       collection: (
  1742                  (InputFieldSpec
  1851                        (LabelSpec
  1743                     name: 'writeSelector'
  1852                           label: 'Min:'
  1744                     layout: (LayoutFrame 97 0 29 0 2 1.0 51 0)
  1853                           name: 'Label1'
  1745                     activeHelpKey: valuesWriteSelector
  1854                           layout: (LayoutFrame 11 0 3 0 94 0 20 0)
  1746                     tabable: true
  1855                           activeHelpKey: minValue
  1747                     model: writeSelector
  1856                           translateLabel: true
  1748                     group: inputGroup
  1857                           resizeForLabel: true
  1749                     type: symbolOrNil
  1858                           adjust: right
  1750                     acceptOnLostFocus: false
  1859                         )
  1751                     acceptChannel: acceptChannel
  1860                        (InputFieldSpec
  1752                     modifiedChannel: modifiedChannel
  1861                           name: 'EntryField1'
  1753                     acceptOnPointerLeave: false
  1862                           layout: (LayoutFrame 97 0 1 0 20 0.5 23 0)
  1754                   )
  1863                           activeHelpKey: minValue
  1755                  (LabelSpec
  1864                           tabable: true
  1756                     label: 'Converter:'
  1865                           model: minValue
  1757                     name: 'converterLabel'
  1866                           group: inputGroup
  1758                     layout: (AlignmentOrigin 94 0 65 0 1 0.5)
  1867                           type: numberOrNil
       
  1868                           acceptOnLeave: true
       
  1869                           acceptOnLostFocus: true
       
  1870                           acceptChannel: acceptChannel
       
  1871                           modifiedChannel: modifiedChannel
       
  1872                           acceptOnPointerLeave: true
       
  1873                         )
       
  1874                        (LabelSpec
       
  1875                           label: 'Max:'
       
  1876                           name: 'Label2'
       
  1877                           layout: (LayoutFrame 21 0.5 3 0 70 0.5 20 0)
       
  1878                           activeHelpKey: maxValue
       
  1879                           translateLabel: true
       
  1880                           resizeForLabel: true
       
  1881                           adjust: right
       
  1882                         )
       
  1883                        (InputFieldSpec
       
  1884                           name: 'EntryField2'
       
  1885                           layout: (LayoutFrame 70 0.5 1 0 -2 1.0 23 0)
       
  1886                           activeHelpKey: maxValue
       
  1887                           tabable: true
       
  1888                           model: maxValue
       
  1889                           group: inputGroup
       
  1890                           type: numberOrNil
       
  1891                           acceptOnLeave: true
       
  1892                           acceptOnLostFocus: true
       
  1893                           acceptChannel: acceptChannel
       
  1894                           modifiedChannel: modifiedChannel
       
  1895                           acceptOnPointerLeave: true
       
  1896                         )
       
  1897                        )
       
  1898                      
       
  1899                     )
       
  1900                     extent: (Point 471 56)
       
  1901                   )
       
  1902                  (FramedBoxSpec
       
  1903                     label: 'Popup Menu:'
       
  1904                     name: 'menusBox'
       
  1905                     labelPosition: topLeft
  1759                     translateLabel: true
  1906                     translateLabel: true
  1760                     resizeForLabel: true
  1907                     component: 
  1761                     adjust: right
  1908                    (SpecCollection
  1762                   )
  1909                       collection: (
  1763                  (InputFieldSpec
  1910                        (LabelSpec
  1764                     name: 'converterField'
  1911                           label: 'Selector:'
  1765                     layout: (LayoutFrame 97 0 54 0 2 1.0 76 0)
  1912                           name: 'menuLabel'
  1766                     activeHelpKey: converterSelector
  1913                           layout: (AlignmentOrigin 94 0 12 0 1 0.5)
  1767                     tabable: true
  1914                           activeHelpKey: valuesMenuSelector
  1768                     model: converterSelector
  1915                           translateLabel: true
  1769                     group: inputGroup
  1916                           resizeForLabel: true
  1770                     type: symbolOrNil
  1917                           adjust: right
  1771                     acceptOnLostFocus: false
  1918                         )
  1772                     acceptChannel: acceptChannel
  1919                        (InputFieldSpec
  1773                     modifiedChannel: modifiedChannel
  1920                           name: 'menuSelector'
  1774                     acceptOnPointerLeave: false
  1921                           layout: (LayoutFrame 97 0 1 0 2 1.0 23 0)
  1775                   )
  1922                           activeHelpKey: valuesMenuSelector
  1776                  (LabelSpec
  1923                           tabable: true
  1777                     label: 'Print:'
  1924                           model: menu
  1778                     name: 'printLabel'
  1925                           group: inputGroup
  1779                     layout: (AlignmentOrigin 94 0 90 0 1 0.5)
  1926                           type: symbolOrNil
       
  1927                           acceptOnLostFocus: false
       
  1928                           acceptChannel: acceptChannel
       
  1929                           modifiedChannel: modifiedChannel
       
  1930                           acceptOnPointerLeave: false
       
  1931                         )
       
  1932                        (CheckBoxSpec
       
  1933                           label: 'Fetch Menu from Application'
       
  1934                           name: 'CheckBox1'
       
  1935                           layout: (LayoutFrame 93 0 28 0 375 0 50 0)
       
  1936                           activeHelpKey: valuesMenuFromApplication
       
  1937                           model: menuFromApplication
       
  1938                           translateLabel: true
       
  1939                           valueChangeSelector: setModified
       
  1940                         )
       
  1941                        )
       
  1942                      
       
  1943                     )
       
  1944                     extent: (Point 471 80)
       
  1945                   )
       
  1946                  (FramedBoxSpec
       
  1947                     label: 'Combo List/Box Selectors:'
       
  1948                     name: 'comboSelectorsBox'
       
  1949                     labelPosition: topLeft
  1780                     translateLabel: true
  1950                     translateLabel: true
  1781                     resizeForLabel: true
  1951                     component: 
  1782                     adjust: right
  1952                    (SpecCollection
  1783                   )
  1953                       collection: (
  1784                  (InputFieldSpec
  1954                        (LabelSpec
  1785                     name: 'printSelector'
  1955                           label: 'Choices:'
  1786                     layout: (LayoutFrame 97 0 79 0 2 1.0 101 0)
  1956                           name: 'ChoicesLabel'
  1787                     activeHelpKey: valuesPrintSelector
  1957                           layout: (AlignmentOrigin 94 0 15 0 1 0.5)
  1788                     tabable: true
  1958                           activeHelpKey: valuesChoicesSelector
  1789                     model: printSelector
  1959                           translateLabel: true
  1790                     group: inputGroup
  1960                           resizeForLabel: true
  1791                     type: symbolOrNil
  1961                           adjust: right
  1792                     acceptOnLostFocus: false
  1962                         )
  1793                     acceptChannel: acceptChannel
  1963                        (InputFieldSpec
  1794                     modifiedChannel: modifiedChannel
  1964                           name: 'ChoicesField'
  1795                     acceptOnPointerLeave: false
  1965                           layout: (LayoutFrame 97 0 4 0 2 1.0 26 0)
  1796                   )
  1966                           activeHelpKey: valuesChoicesSelector
  1797                  (LabelSpec
  1967                           tabable: true
  1798                     label: 'Visibility:'
  1968                           model: choices
  1799                     name: 'visibilityLabel'
  1969                           group: inputGroup
  1800                     layout: (AlignmentOrigin 94 0 115 0 1 0.5)
  1970                           type: symbolOrNil
  1801                     translateLabel: true
  1971                           acceptOnLeave: false
  1802                     resizeForLabel: true
  1972                           acceptOnLostFocus: false
  1803                     adjust: right
  1973                           acceptChannel: acceptChannel
  1804                   )
  1974                           modifiedChannel: modifiedChannel
  1805                  (InputFieldSpec
  1975                           acceptOnPointerLeave: false
  1806                     name: 'visibilitySelector'
  1976                         )
  1807                     layout: (LayoutFrame 97 0 104 0 2 1.0 126 0)
  1977                        (LabelSpec
  1808                     activeHelpKey: valuesVisibilitySelector
  1978                           label: 'Xlated Choices:'
  1809                     tabable: true
  1979                           name: 'XChoicesLabel'
  1810                     model: visibilitySelector
  1980                           layout: (AlignmentOrigin 94 0 40 0 1 0.5)
  1811                     group: inputGroup
  1981                           activeHelpKey: valuesXChoicesSelector
  1812                     type: symbolOrNil
  1982                           translateLabel: true
  1813                     acceptOnLostFocus: false
  1983                           resizeForLabel: true
  1814                     acceptChannel: acceptChannel
  1984                           adjust: right
  1815                     modifiedChannel: modifiedChannel
  1985                         )
  1816                     acceptOnPointerLeave: false
  1986                        (InputFieldSpec
  1817                   )
  1987                           name: 'XChoicesField'
  1818                  )
  1988                           layout: (LayoutFrame 97 0 29 0 2 1.0 51 0)
  1819                
  1989                           activeHelpKey: valuesXChoicesSelector
  1820               )
  1990                           tabable: true
  1821             )
  1991                           model: translatedChoices
  1822            (FramedBoxSpec
  1992                           group: inputGroup
  1823               label: 'Range:'
  1993                           type: symbolOrNil
  1824               name: 'rangeBox'
  1994                           acceptOnLeave: false
  1825               layout: (LayoutFrame 0 0.0 162 0 0 1.0 218 0)
  1995                           acceptOnLostFocus: false
  1826               labelPosition: topLeft
  1996                           acceptChannel: acceptChannel
  1827               translateLabel: true
  1997                           modifiedChannel: modifiedChannel
  1828               component: 
  1998                           acceptOnPointerLeave: false
  1829              (SpecCollection
  1999                         )
  1830                 collection: (
  2000                        (LabelSpec
  1831                  (LabelSpec
  2001                           label: 'Editable:'
  1832                     label: 'Min:'
  2002                           name: 'EditableLabel'
  1833                     name: 'Label1'
  2003                           layout: (AlignmentOrigin 94 0 65 0 1 0.5)
  1834                     layout: (LayoutFrame 11 0 3 0 94 0 20 0)
  2004                           activeHelpKey: showComboFieldSelector
  1835                     translateLabel: true
  2005                           translateLabel: true
  1836                     resizeForLabel: true
  2006                           resizeForLabel: true
  1837                     adjust: right
  2007                           adjust: right
  1838                   )
  2008                         )
  1839                  (InputFieldSpec
  2009                        (InputFieldSpec
  1840                     name: 'EntryField1'
  2010                           name: 'EditableField'
  1841                     layout: (LayoutFrame 97 0 1 0 20 0.5 23 0)
  2011                           layout: (LayoutFrame 97 0 54 0 2 1.0 76 0)
  1842                     activeHelpKey: valuesMenuSelector
  2012                           activeHelpKey: showComboFieldSelector
  1843                     tabable: true
  2013                           tabable: true
  1844                     model: minValue
  2014                           model: showComboFieldSelector
  1845                     group: inputGroup
  2015                           group: inputGroup
  1846                     type: numberOrNil
  2016                           type: symbolOrNil
  1847                     acceptOnLeave: true
  2017                           acceptOnLeave: false
  1848                     acceptOnLostFocus: true
  2018                           acceptOnLostFocus: false
  1849                     acceptChannel: acceptChannel
  2019                           acceptChannel: acceptChannel
  1850                     modifiedChannel: modifiedChannel
  2020                           modifiedChannel: modifiedChannel
  1851                     acceptOnPointerLeave: true
  2021                           acceptOnPointerLeave: false
  1852                   )
  2022                         )
  1853                  (LabelSpec
  2023                        )
  1854                     label: 'Max:'
  2024                      
  1855                     name: 'Label2'
  2025                     )
  1856                     layout: (LayoutFrame 21 0.5 3 0 70 0.5 20 0)
  2026                     extent: (Point 471 107)
  1857                     translateLabel: true
       
  1858                     resizeForLabel: true
       
  1859                     adjust: right
       
  1860                   )
       
  1861                  (InputFieldSpec
       
  1862                     name: 'EntryField2'
       
  1863                     layout: (LayoutFrame 70 0.5 1 0 -2 1.0 23 0)
       
  1864                     activeHelpKey: valuesMenuSelector
       
  1865                     tabable: true
       
  1866                     model: maxValue
       
  1867                     group: inputGroup
       
  1868                     type: numberOrNil
       
  1869                     acceptOnLeave: true
       
  1870                     acceptOnLostFocus: true
       
  1871                     acceptChannel: acceptChannel
       
  1872                     modifiedChannel: modifiedChannel
       
  1873                     acceptOnPointerLeave: true
       
  1874                   )
       
  1875                  )
       
  1876                
       
  1877               )
       
  1878             )
       
  1879            (FramedBoxSpec
       
  1880               label: 'Menu Selector:'
       
  1881               name: 'menusBox'
       
  1882               layout: (LayoutFrame 0 0.0 216 0 0 1.0 272 0)
       
  1883               labelPosition: topLeft
       
  1884               translateLabel: true
       
  1885               component: 
       
  1886              (SpecCollection
       
  1887                 collection: (
       
  1888                  (LabelSpec
       
  1889                     label: 'Selector:'
       
  1890                     name: 'menuLabel'
       
  1891                     layout: (AlignmentOrigin 94 0 12 0 1 0.5)
       
  1892                     translateLabel: true
       
  1893                     resizeForLabel: true
       
  1894                     adjust: right
       
  1895                   )
       
  1896                  (InputFieldSpec
       
  1897                     name: 'menuSelector'
       
  1898                     layout: (LayoutFrame 97 0 1 0 2 1.0 23 0)
       
  1899                     activeHelpKey: valuesMenuSelector
       
  1900                     tabable: true
       
  1901                     model: menu
       
  1902                     group: inputGroup
       
  1903                     type: symbolOrNil
       
  1904                     acceptOnLostFocus: false
       
  1905                     acceptChannel: acceptChannel
       
  1906                     modifiedChannel: modifiedChannel
       
  1907                     acceptOnPointerLeave: false
       
  1908                   )
       
  1909                  )
       
  1910                
       
  1911               )
       
  1912             )
       
  1913            (FramedBoxSpec
       
  1914               label: 'Combo List/Box Selectors:'
       
  1915               name: 'comboSelectorsBox'
       
  1916               layout: (LayoutFrame 1 0.0 271 0 1 1.0 378 0)
       
  1917               labelPosition: topLeft
       
  1918               translateLabel: true
       
  1919               component: 
       
  1920              (SpecCollection
       
  1921                 collection: (
       
  1922                  (LabelSpec
       
  1923                     label: 'Choices:'
       
  1924                     name: 'ChoicesLabel'
       
  1925                     layout: (AlignmentOrigin 94 0 15 0 1 0.5)
       
  1926                     activeHelpKey: valuesChoicesSelector
       
  1927                     translateLabel: true
       
  1928                     resizeForLabel: true
       
  1929                     adjust: right
       
  1930                   )
       
  1931                  (InputFieldSpec
       
  1932                     name: 'ChoicesField'
       
  1933                     layout: (LayoutFrame 97 0 4 0 2 1.0 26 0)
       
  1934                     activeHelpKey: valuesChoicesSelector
       
  1935                     tabable: true
       
  1936                     model: choices
       
  1937                     group: inputGroup
       
  1938                     type: symbolOrNil
       
  1939                     acceptOnLeave: false
       
  1940                     acceptOnLostFocus: false
       
  1941                     acceptChannel: acceptChannel
       
  1942                     modifiedChannel: modifiedChannel
       
  1943                     acceptOnPointerLeave: false
       
  1944                   )
       
  1945                  (LabelSpec
       
  1946                     label: 'Translated Choices:'
       
  1947                     name: 'XChoicesLabel'
       
  1948                     layout: (AlignmentOrigin 94 0 40 0 1 0.5)
       
  1949                     activeHelpKey: valuesXChoicesSelector
       
  1950                     translateLabel: true
       
  1951                     resizeForLabel: true
       
  1952                     adjust: right
       
  1953                   )
       
  1954                  (InputFieldSpec
       
  1955                     name: 'XChoicesField'
       
  1956                     layout: (LayoutFrame 97 0 29 0 2 1.0 51 0)
       
  1957                     activeHelpKey: valuesXChoicesSelector
       
  1958                     tabable: true
       
  1959                     model: translatedChoices
       
  1960                     group: inputGroup
       
  1961                     type: symbolOrNil
       
  1962                     acceptOnLeave: false
       
  1963                     acceptOnLostFocus: false
       
  1964                     acceptChannel: acceptChannel
       
  1965                     modifiedChannel: modifiedChannel
       
  1966                     acceptOnPointerLeave: false
       
  1967                   )
       
  1968                  (LabelSpec
       
  1969                     label: 'Editable:'
       
  1970                     name: 'EditableLabel'
       
  1971                     layout: (AlignmentOrigin 94 0 65 0 1 0.5)
       
  1972                     activeHelpKey: showComboFieldSelector
       
  1973                     translateLabel: true
       
  1974                     resizeForLabel: true
       
  1975                     adjust: right
       
  1976                   )
       
  1977                  (InputFieldSpec
       
  1978                     name: 'EditableField'
       
  1979                     layout: (LayoutFrame 97 0 54 0 2 1.0 76 0)
       
  1980                     activeHelpKey: showComboFieldSelector
       
  1981                     tabable: true
       
  1982                     model: showComboFieldSelector
       
  1983                     group: inputGroup
       
  1984                     type: symbolOrNil
       
  1985                     acceptOnLeave: false
       
  1986                     acceptOnLostFocus: false
       
  1987                     acceptChannel: acceptChannel
       
  1988                     modifiedChannel: modifiedChannel
       
  1989                     acceptOnPointerLeave: false
       
  1990                   )
  2027                   )
  1991                  )
  2028                  )
  1992                
  2029                
  1993               )
  2030               )
  1994             )
  2031             )
  3921 
  3958 
  3922     type == #rowSelector ifTrue:[
  3959     type == #rowSelector ifTrue:[
  3923         #(label 
  3960         #(label 
  3924           width minWidth usePreferredWidth editorType choices translatedChoices
  3961           width minWidth usePreferredWidth editorType choices translatedChoices
  3925           readSelector writeSelector printSelector visibilitySelector
  3962           readSelector writeSelector printSelector visibilitySelector
  3926           formatString formatSelector type converterSelector size height canSelect selectSelector showComboFieldSelector
  3963           formatString formatSelector type converterSelector size height 
       
  3964           canSelect selectSelector showComboFieldSelector
  3927           minValue maxValue
  3965           minValue maxValue
  3928          ) do:[:aKey|
  3966          ) do:[:aKey|
  3929             (aspects at:aKey) value:nil
  3967             (aspects at:aKey) value:nil
  3930         ]
  3968         ]
  3931     ].
  3969     ].
  3934     ].
  3972     ].
  3935     self seqList at:self singleSelectedColumnIndex put:(self labelFromColumn:column).
  3973     self seqList at:self singleSelectedColumnIndex put:(self labelFromColumn:column).
  3936     self updateColumnView.
  3974     self updateColumnView.
  3937     self cancel.
  3975     self cancel.
  3938     self clearModified.
  3976     self clearModified.
       
  3977 
       
  3978     "Modified: / 25-10-2010 / 10:41:55 / cg"
  3939 !
  3979 !
  3940 
  3980 
  3941 cancel
  3981 cancel
  3942     "remove all changes and reload selected column values"
  3982     "remove all changes and reload selected column values"
  3943 
  3983