818 'set the background color of the column if the color-checkBox is turned on. Otherwise, the column uses its default background color (which is specified in the styleSheet).'

   818 'Sets the background color of the column if the color-checkBox is turned on. Otherwise, the column uses its default background color (which is specified in the styleSheet).'

   821 'selector which returns the background color for a cell (optional). If the selector is nil or returns nil, the default background color is set.'

   821 'Selector which returns the background color for a cell (optional). If the selector is nil or returns nil, the default background color is set.'

   824 'if true, each cell in the column can be selected. In case of having a menu, the menu can be opened by selecting the cell and pressing down the right or middle button of the mouse. if false, the whole line is selected. The menu opened derives from the DataSetView, which is specified in the window specification (Basics).'

   824 'If true, each cell in the column can be selected. In case of having a menu, the menu can be opened by selecting the cell and pressing down the right or middle button of the mouse. if false, the whole line is selected. The menu opened derives from the DataSetView, which is specified in the window specification (Basics).'

   827 'selector to get the collection of choices for a column which is selectable and its editor is kind of a ComboBox or ComboList. If a cell in the column is selected, the visual editor is opened and in case of having choices, the choices are assigned to the widget.'

   827 'Selector to get the collection of choices for a column which is selectable and its editor is kind of a ComboBox or ComboList. If a cell in the column is selected, the visual editor is opened and in case of having choices, the choices are assigned to the widget.'

   828 

   829 #doubleClickedSelector

   830 'Selector evaluated without arguments on selected column.'

   830 'type of visual editor (using default editors) or a selector, which will return an visual editor. If the cell is selected, a visual editor is opened in in the cell. In case of an unsupported selector (user defined editor), the row object is asked for the visual editor by performing the selector on the row. A widget instance must be returned which is opened in the cell.'

   833 'Type of visual editor (using default editors) or a selector, which will return an visual editor. If the cell is selected, a visual editor is opened in in the cell. In case of an unsupported selector (user defined editor), the row object is asked for the visual editor by performing the selector on the row. A widget instance must be returned which is opened in the cell.'

   831 

   832 #doubleClickedSelector

   833 'selector evaluated without arguments on selected column'

   836 'set the foreground color of the column  if the color-checkBox is turned on. Otherwise, the column uses its default foreground color (which is specified in the styleSheet).'

   836 'Sets the foreground color of the column  if the color-checkBox is turned on. Otherwise, the column uses its default foreground color (which is specified in the styleSheet).'

   839 'selector which returns the foreground color for a cell (optional). If the selector is nil or returns nil, the default foreground color is set.'

   839 'Selector which returns the foreground color for a cell (optional). If the selector is nil or returns nil, the default foreground color is set.'

   842 'format string, which specifies the output format of a text in a cell. \ At the moment only numbers are supported. \ \ for example: 0.0000'

   842 'Format string, which specifies the output format of a text in a cell. At the moment  only numbers are supported  (for example: 0.0000).'

   845 'preferred height (optional)'

   845 'Preferred height (optional).'

   848 'the label of the column. If ''label is image'' is off, this is the label string. Otherwise, it specifies the applications selector, which returns the label - either a string or a bitmap image.'

   848 'The label of the column. If ''label is image'' is off, this is the label string. Otherwise, it specifies the applications selector, which returns the label - either a string or a bitmap image.'

   851 'if ''label is image'' is off (the default), the columns label is the string as entered in the label aspect. Otherwise, its the name of the message sent to the application - this should return a string or bitmap image, which is used as logo in the column.'

   851 'If ''label is image'' is off (the default), the columns label is the string as entered in the label aspect. Otherwise, its the name of the message sent to the application - this should return a string or bitmap image, which is used as logo in the column.'

   854 'a selector to access the middleButton menu or nil. If a cell is selected. The menu will be opened by selecting the cell and pressing down the right or middle button of the mouse.'

   854 'A selector to access the middleButton menu or nil. If a cell is selected. The menu will be opened by selecting the cell and pressing down the right or middle button of the mouse.'

   857 'makes sense if the width is set to 0 or nil. This is the minimum size required; no computation dependent on the contents. When resizing the view the column may grow or shrink to the minimum width.'

   857 'Makes sense if the width is set to 0 or nil. This is the minimum size required; no computation dependent on the contents. When resizing the view the column may grow or shrink to the minimum width.'

   860 'a selector with one argument, the DataSetView. Used to access a drawable display object. In case of nil, the value derived from the readSelector is shown in the unselected cell.\ \ Using bitmaps, the DataSetView offers three important methods:\ \ #registerImage:anImage key:aSymbol\ register an image with an unique symbol. This symbol can be used by the row object to access the image, using #registeredImageAt:. The image will be associated to the device.\ \ #registeredImageAt:aSymbol\ returns an image assigned to the symbol or nil. The image returned is associated to the device.\ \ #releaseAllRegisteredImages\ relaese all registered images'

   860 'A selector with one argument, the DataSetView. Used to access a drawable display object. In case of nil, the value derived from the readSelector is shown in the unselected cell.\ \ Using bitmaps, the DataSetView offers three important methods:\ \ #registerImage:anImage key:aSymbol\ register an image with an unique symbol. This symbol can be used by the row object to access the image, using #registeredImageAt:. The image will be associated to the device.\ \ #registeredImageAt:aSymbol\ returns an image assigned to the symbol or nil. The image returned is associated to the device.\ \ #releaseAllRegisteredImages\ relaese all registered images.'

   863 'a selector, which is used to get or set (if the write selector is undefined) the value of a cell. The value returned by the method can be a string object or a bitmap. The set operation only is performed if the column is selectable.'

   863 'A selector, which is used to get or set (if the write selector is undefined) the value of a cell. The value returned by the method can be a string object or a bitmap. The set operation only is performed if the column is selectable.'

   869 'an optional selector, which is used to test whether the cell in the column is selectable; the ''Is Selectable'' flag must be enabled.'

   869 'An optional selector, which is used to test whether the cell in the column is selectable; the ''Is Selectable'' flag must be enabled.'

   872 'show or hide the column separator (right vertical separator).'

   872 'Shows or hide the column separator (right vertical separator).'

   875 'show or hide the row separator (bottom horizontal separator)'

   875 'Shows or hide the row separator (bottom horizontal separator).'

   878 'max size of an InputField, ComboBox or ComboList. 0 or nil means unlimited.'

   878 'Max size of an InputField, ComboBox or ComboList. 0 or nil means unlimited.'

   881 'a type converter symbol used by the input field'

   881 'A type converter symbol used by the input field.'

   884 'the width of a fixed column; in case of nil or 0 the column width will be computed dependent on the contents.'

   884 'The width of a fixed column; in case of nil or 0 the column width will be computed dependent on the contents.'

   887 'a selector, which is used to set the value of a cell. If the selector is not defined, the selector derives from the printSelector.'

   887 'A selector, which is used to set the value of a cell. If the selector is not defined, the selector derives from the printSelector.'

  1022               #'layout:' #(#LayoutFrame 277 0 356 0 763 0 715 0)

  1022               #'layout:' #(#LayoutFrame 246 0 169 0 732 0 528 0)

  1026               #'bounds:' #(#Rectangle 277 356 764 716)

  1026               #'bounds:' #(#Rectangle 246 169 733 529)

  1036                     #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 34 0)

  1036                     #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 32 0)

  1041                     #'layout:' #(#LayoutFrame 0 0.0 36 0.0 0 1.0 -22 1.0)

  1041                     #'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -22 1.0)

  1324     ^(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(#[17 17 16 0 0 0 0 0 0 17 17 17 17 16 17 17 17 17 17 32 17 17 17 17 16 18 34 34 34 34 48 17 17 17 17 16 18 32 2 32 34 48 17 17 17 17 16 18 2 34 2 2 48 17 17 17 17 16 18 2 34 2 2 48 17 17 17 17 16 18 32 2 32 34 48 17 17 16 17 16 18 34 34 34 34 48 17 17 17 17 16 18 2 34 2 2 48 17 17 17 17 16 18 2 34 2 2 48 17 17 17 17 16 18 2 34 2 2 48 17 17 17 17 16 18 0 2 0 2 48 17 17 17 17 16 18 34 34 34 34 48 17 17 17 17 16 18 34 34 34 34 48 17 17 17 17 16 18 2 2 2 2 48 17 17 17 17 16 18 0 2 0 2 48 17 17 17 17 16 18 2 2 0 2 48 17 17 17 17 16 18 2 2 2 2 48 17 17 17 17 16 18 34 34 34 34 48 17 17 17 17 16 18 34 34 34 34 48 17 17 17 17 16 35 51 51 51 51 48 17 17 17 17 16 0 0 0 0 0 0 17 17]) ; colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color grey:66.9978); add:(Color grey:49.9962); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9992 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9992 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9992); add:(Color red:0.0 green:49.9992 blue:49.9992); add:(Color red:49.9992 green:49.9992 blue:0.0); add:(Color red:49.9992 green:0.0 blue:49.9992); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[7 255 192 7 255 192 7 255 192 7 255 192 7 255 192 7 255 192 7 255 192 7 255 192 7 255 195 7 255 192 7 255 192 7 255 192 7 255 192 7 255 195 7 255 193 7 255 192 7 255 195 7 255 192 7 255 195 7 255 192 7 255 192 7 255 193]) ; yourself); yourself! !

  1326     ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[85 64 0 0 5 80 85 69 85 85 133 80 85 70 170 170 197 80 85 70 130 138 197 80 85 70 42 34 197 89 85 70 42 34 197 80 85 70 130 138 197 80 69 70 170 170 197 80 85 70 42 34 197 80 85 70 42 34 197 80 85 70 42 34 197 80 85 70 2 2 197 80 85 70 170 170 197 80 85 70 170 170 197 80 85 70 34 34 197 89 85 70 2 2 197 80 85 70 34 2 197 80 85 70 34 34 197 80 85 70 170 170 197 80 85 70 170 170 197 80 85 75 255 255 197 80 85 64 0 0 5 80]) ; colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:66.9978)); at:4 put:((Color grey:49.9962)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[7 255 192 7 255 192 7 255 192 7 255 192 7 255 192 7 255 192 7 255 192 7 255 192 7 255 195 7 255 192 7 255 192 7 255 192 7 255 192 7 255 195 7 255 193 7 255 192 7 255 195 7 255 192 7 255 195 7 255 192 7 255 192 7 255 193]) ; yourself); yourself! !

  1329     "returns list of columns

  1331     "returns list of columns"

  1330     "

  1332 

  1331     ^ columns

  1333     ^columns

  1335     "setup columns from a column view

  1337     "setup columns from a column view"

  1336     "

  1338 

  1346     aListOfColumns size ~~ 0 ifTrue:[

  1348     aListOfColumns size ~~ 0 

  1347         aListOfColumns do:[:aCol|

  1349     ifTrue:

  1348             columns add:(aCol copy).

  1350     [

  1349             aCol rendererType == #rowSelector ifFalse:[list add:(aCol label)]

  1351         aListOfColumns do:

  1350                                                ifTrue:[list add:'Row Selector'].

  1352         [:aColumn|

  1351         ]

  1353             columns add: aColumn copy.

  1352     ].

  1354             aColumn rendererType == #rowSelector 

  1353 !

  1355                 ifFalse:[list add: aColumn label]

  1354 

  1356                 ifTrue: [list add:'Row Selector']

  1355 rowClassName

  1356     ^ (Smalltalk resolveName:className inClass:self class) notNil ifTrue:[className] ifFalse:[nil]

  1357 !

  1358 

  1359 rowClassName:aClassName

  1360     |cls|

  1361 

  1362     superclassName := nil.

  1363 

  1364     (className := aClassName) notNil ifTrue:[

  1365         (cls := self resolveClassNamed) notNil ifTrue:[

  1366             superclassName := cls superclass name asString.

  1367         ] ifFalse:[

  1368             superclassName := 'Object'

  1374 !DataSetBuilder methodsFor:'accessing menu'!

  1382 !DataSetBuilder methodsFor:'aspects'!

  1375 

  1383 

  1376 columnMenu

  1384 aspectFor:aKey

  1377     "this window spec was automatically generated by the UI Builder"

  1385     "returns aspect for a key or nil"

  1378 

  1386 

  1379     ^ self class columnMenu

  1387     ^aspects at:aKey ifAbsent:[super aspectFor:aKey]

  1380 

  1388 

  1381 

  1389 

  1382 !

  1390 !

  1383 

  1391 

  1384 doBrowseClass

  1392 columnIsNotEditing

  1385     |cls|

  1393     "returns a boolean value holder which is set to true if column is not editing"

  1386 

  1394 

  1387     (cls := self resolveClassNamed) notNil ifTrue:[

  1395     ^builder valueAspectFor:#columnIsNotEditing initialValue: true

  1388         SystemBrowser openInClass:cls

  1396 

  1389     ] ifFalse:[

  1397 

  1390         self information:'No class defined!!'

  1398 

  1391     ]

  1399 !

  1392 

  1400 

  1393 

  1401 editorTypeList

  1394 

  1402     "generate list of supported editor types"

  1395 !

  1403 

  1396 

  1404     |list|

  1397 doCopyColumn

  1405 

  1398     "copy selected column to the clipboard"

  1406     (list := builder bindingAt:#editorTypeList) isNil 

  1399 

  1407     ifTrue:

  1400     |idx|

  1408     [

  1401 

  1409         list := OrderedCollection new.

  1402     (idx := selectedColumnIndex) ~~ 0 ifTrue:[

  1410         DataSetColumnSpec slices do:

  1403         self clipboard: (columns at: idx) deepCopy.

  1411         [:aSlice||type|

  1412             type := aSlice at:1.

  1413             (list includes:type) ifFalse:[list add:type]

  1414         ].

  1415         builder aspectAt:#editorTypeList put:list

  1405 !

  1417     ^list

  1406 

  1407 doCreateColumn

  1408     "create a new column after selected column or at left (nothing selected)

  1409     "

  1410     |label list|

  1411 

  1412     list := self seqList.

  1413     label := 'Column ', list size printString.

  1414     columns add:(DataSetColumnSpec label:label selector:nil) afterIndex:selectedColumnIndex.

  1415     self seqList add:label afterIndex:selectedColumnIndex.

  1416     hasChanged := true.

  1417 

  1418     self modified ifFalse:[

  1419         self selectedColumnModel value:(selectedColumnIndex + 1)

  1420     ].

  1421     self updateColumnView.

  1422 

  1423 !

  1424 

  1425 doCutColumn

  1426     "remove selected column and put it to the clipboard"

  1427 

  1428     |idx|

  1429 

  1430     (idx := selectedColumnIndex) ~~ 0 ifTrue:[

  1431         self selectedColumnModel value:0.

  1432         self clipboard: (columns at: idx).

  1433         columns removeIndex:idx.

  1434         self seqList removeIndex:idx.

  1435         self updateColumnView.

  1436         columns isEmpty ifTrue: [self isColumnSelected value: false].

  1437         hasChanged := true

  1438     ].

  1439 !

  1440 

  1441 doDefineClass

  1442     "launch a dialog to define class and superclass

  1443     "

  1444     |aspects cls oldClass oldSuper|

  1445 

  1446     aspects  := IdentityDictionary new.

  1447     oldClass := className.

  1448     oldSuper := superclassName.

  1449 

  1450     [true] whileTrue:[

  1451         className notNil ifTrue:[

  1452             (cls := self resolveClassNamed) notNil ifTrue:[

  1453                 superclassName := cls superclass name asString.

  1454             ].

  1455             aspects at:#classNameChannel put:className asValue

  1456         ] ifFalse:[

  1457             aspects at:#classNameChannel put:'DSVRow' asValue

  1458         ].

  1459 

  1460         superclassName notNil ifTrue:[

  1461             aspects at:#superclassNameChannel put:superclassName asValue

  1462         ] ifFalse:[

  1463             aspects at:#superclassNameChannel put:'Object' asValue

  1464         ].

  1465 

  1466         (self openDialogInterface:#defineClassNameSpec withBindings:aspects) ifFalse:[

  1467             className := oldClass.

  1468             superclassName := oldSuper.

  1469           ^ self

  1470         ].

  1471         className      := ((aspects at:#classNameChannel) value)      withoutSeparators.

  1472         superclassName := ((aspects at:#superclassNameChannel) value) withoutSeparators.

  1473 

  1474         className size == 0 ifTrue:[

  1475             className := nil.

  1476             self information:'no valid className'.

  1477         ] ifFalse:[

  1478             cls := self resolveClassNamed.

  1479 

  1480             cls notNil ifTrue:[

  1481                 cls := cls superclass name asString

  1482             ].

  1483 

  1484             superclassName size == 0 ifTrue:[        

  1485                 cls notNil ifTrue:[

  1486                     superclassName := cls

  1487                 ] ifFalse:[

  1488                     superclassName := 'Object'

  1489                 ].

  1490                 self information:( 'set superclassName' ).

  1491             ] ifFalse:[

  1492                 (cls isNil or:[superclassName = cls]) ifTrue:[

  1493                     hasChanged := true.

  1494                     ^ self

  1495                 ].

  1496                 self information:('a global named ' , className , ' exists,\' ,

  1497                                   'but is not a subclass of ' , superclassName, '.\\' ,

  1498                                   'Check and try again if that is not what you want.') withCRs.

  1499 

  1500                 superclassName := cls.

  1501             ]

  1502         ]

  1503     ]

  1504 !

  1505 

  1506 doGenerateCode

  1507     |cls superclass|

  1508 

  1509     className isNil ifTrue:[

  1510         ^ self information:'No class defined!!'

  1511     ].

  1512     cls := self resolveClassNamed.

  1513 

  1514     cls isNil ifTrue:[

  1515         superclass := Smalltalk resolveName:superclassName inClass:self class.

  1516 

  1517         superclass isNil ifTrue:[

  1518             ^ self information:'no superclass defined'

  1519         ].

  1520         (self confirm:'create ' , className , ' ?') ifFalse:[

  1521             ^ self

  1522         ].

  1523         cls := superclass subclass:(className asSymbol)

  1524                      instanceVariableNames:''

  1525                      classVariableNames:''

  1526                      poolDictionaries:''

  1527                      category:'Applications'.

  1528     ].

  1529 

  1530     self generateChoicesIn:cls.

  1531     self generateMenuIn:cls.

  1532     self generatePrintSelectorIn:cls.

  1533     self generateReadSelectorIn:cls.

  1534     self generateBackgroundSelectorIn:cls.

  1535     self generateForegroundSelectorIn:cls.

  1536     self generateSelectSelectorIn:cls.

  1537     self generateWriteSelectorIn:cls.

  1538     self generateDoubleClickSelectorIn:cls.

  1539 !

  1540 

  1541 doMoveColumn:upOrDown

  1542     "move selected column up or down

  1543     "

  1544     |idx list label col size|

  1545 

  1546     (idx := selectedColumnIndex) == 0 ifTrue:[

  1547         ^ self

  1548     ].

  1549     list := self seqList.

  1550     size := list size.

  1551 

  1552     size == 1 ifTrue:[

  1553         ^ self

  1554     ].

  1555     hasChanged := true.

  1556     selectedColumnIndex := 0.

  1557     label := list at:idx.

  1558     col   := columns at:idx.

  1559     list    removeIndex:idx.

  1560     columns removeIndex:idx.

  1561 

  1562     upOrDown == #up ifTrue:[

  1563         idx == 1 ifTrue:[idx := size]

  1564                 ifFalse:[idx := idx - 1]

  1565     ] ifFalse:[

  1566         idx == size ifTrue:[idx := 1]

  1567                    ifFalse:[idx := idx + 1]

  1568     ].

  1569     columns add:col   beforeIndex:idx.

  1570     list    add:label beforeIndex:idx.

  1571     self selectedColumnModel value:idx.

  1572     self updateColumnView.

  1573 !

  1574 

  1575 doPasteColumn

  1576     "paste clipboard copy column after selected column or at left (nothing selected)

  1577     "

  1578     |label list|

  1579 

  1580     list := self seqList.

  1581     label := self class clipboard label.

  1582     columns add: self class clipboard deepCopy afterIndex:selectedColumnIndex.

  1583     self seqList add: label afterIndex:selectedColumnIndex.

  1584     hasChanged := true.

  1585 

  1586     self modified ifFalse:[

  1587         self selectedColumnModel value:(selectedColumnIndex + 1)

  1588     ].

  1589     self updateColumnView.

  1590 

  1591 !

  1592 

  1593 mainMenu

  1594     "this window spec was automatically generated by the UI Builder"

  1595 

  1596     ^ self class mainMenu

  1597 

  1598 

  1599 !

  1600 

  1601 menu

  1602     "this window spec was automatically generated by the UI Builder"

  1603 

  1604     ^ self class menu

  1605 

  1606 

  1607 !

  1608 

  1609 menuEdit

  1610     "this window spec was automatically generated by the UI Builder"

  1611 

  1612     ^ self class menuEdit

  1613 

  1614 

  1615 !

  1616 

  1617 menuToolbar

  1618     "this window spec was automatically generated by the UI Builder"

  1619 

  1620     ^ self class menuToolbar

  1621 

  1622 

  1623 !

  1624 

  1625 subMenu

  1626     "this window spec was automatically generated by the UI Builder"

  1627 

  1628     ^ self class subMenu

  1629 

  1630 

  1631 ! !

  1632 

  1633 !DataSetBuilder methodsFor:'actions'!

  1634 

  1635 accept

  1636     "accept changes made

  1637     "

  1638     |column type|

  1639 

  1640     self modifiedChannel value == false ifTrue:[

  1641         ^ self

  1642     ].

  1643     isModified := true.

  1644 

  1645     (column := self selectedColumn) isNil ifTrue:[

  1646         ^ self cancel

  1647     ].

  1648 

  1649     type := (aspects at:#rendererType) value.

  1650 

  1651     type == #rowSelector ifTrue:[

  1652         #( label width minWidth editorType choices readSelector writeSelector printSelector

  1653            formatString type size height canSelect selectSelector

  1654          ) do:[:aKey| (aspects at:aKey) value:nil ].

  1655     ].

  1656         

  1657     aspects keysAndValuesDo:[:aKey :aModel|

  1658         column perform:(aKey , ':') asSymbol with:(aModel value).

  1659     ].

  1660     self seqList at:selectedColumnIndex put:((aspects at:#label) value).

  1661     self updateColumnView.

  1662     self cancel

  1663 !

  1664 

  1665 cancel

  1666     "remove all changes and reload selected column

  1667     "

  1668     |column|

  1669 

  1670     isModified := true.

  1671     (column := self selectedColumn) isNil ifTrue:[

  1672         self tabModel value:0.

  1673     ] ifFalse:[

  1674         aspects keysAndValuesDo:[:aKey :aModel|

  1675             aModel value:(column perform:aKey)

  1676         ].

  1677         tabSelectionIndex == 0 ifTrue:[self tabModel value:1].

  1678     ].

  1679     self modifiedChannel value:false.

  1680     isModified := false.

  1681 ! !

  1682 

  1683 !DataSetBuilder methodsFor:'aspects'!

  1684 

  1685 aspectFor:aKey

  1686     "returns aspect for a key or nil

  1687     "

  1688   ^ aspects at:aKey ifAbsent:[ super aspectFor:aKey ]

  1689 

  1690 

  1691 !

  1692 

  1693 editorTypeList

  1694     "generate list of supported editor types

  1695     "

  1696     |list|

  1697 

  1698     (list := builder bindingAt:#editorTypeList) isNil ifTrue:[

  1699         list := OrderedCollection new.

  1700         DataSetColumnSpec slices do:[:aSlice||type|

  1701             type := aSlice at:1.

  1702             (list includes:type) ifFalse:[list add:type].

  1703         ].

  1704         builder aspectAt:#editorTypeList put:list.

  1705 

  1706     ].

  1707     ^ list

  1712      and not accepted

  1422      and not accepted"

  1713     "

  1423 

  1714     ^ builder valueAspectFor:#isColumnSelected initialValue: false

  1424     ^builder valueAspectFor:#isColumnSelected initialValue: false

  1722      and not accepted

  1432      and not accepted"

  1723     "

  1433 

  1724     ^ builder booleanValueAspectFor:#modifiedChannel

  1434     ^builder booleanValueAspectFor:#modifiedChannel

  1731     "generate list of supported renderer types

  1441     "generate list of supported renderer types"

  1732     "

  1442 

  1735     (list := builder bindingAt:#rendererTypeList) isNil ifTrue:[

  1445     (list := builder bindingAt:#rendererTypeList) isNil 

  1446     ifTrue:

  1447     [

  1737         DataSetColumnSpec slices do:[:aSlice||type|

  1449         DataSetColumnSpec slices do:

  1450         [:aSlice||type|

  1739             (list includes:type) ifFalse:[list add:type].

  1452             (list includes:type) ifFalse:[list add:type]

  1741         builder aspectAt:#rendererTypeList put:list.

  1454         builder aspectAt:#rendererTypeList put:list

  1742 

  1744     ^ list

  1456     ^list

  1748     "automatically generated by UIPainter ..."

  1460     "returns a value holder which keeps selected column"

  1782     ^ self aspectFor:#labelFont

  1492 

  1493     ^self aspectFor:#labelFont

  1786     "automatically generated by UIPainter ..."

  1497 

  1787 

  1498     ^self class slices collect:[:aSlice|aSlice first]

  1788     ^ self class slices collect:[:aSlice| aSlice first ]

  1793     "returns a value holder which keeps the index of the current selected tab or 0

  1503     "returns a value holder which keeps the index of the current selected tab or 0"

  1794     "

  1504 

  1807     "one of my aspects has changed; update modified channel

  1517     "one of my aspects has changed; update modified channel"

  1808     " 

  1518 

  1809 

  1519     isModified 

  1810     isModified ifFalse:[

  1520     ifFalse:

  1521     [

  1812         self modifiedChannel value:true.

  1523         self modifiedChannel value: true.

  1813         "self isNotModified   value:false. "

  1524         self columnIsNotEditing value: false

  1820     "compile method for class in a category

  1531     "compile method for class in a category"

  1821     "

  1532 

  1826     "generate code for #backgroundSelector

  1537     "generate code for #backgroundSelector"

  1827     "

  1538 

  1838     columns do:[:aCol|

  1549     columns do:

  1839         ((sel := aCol backgroundSelector) notNil and:[(aClass implements:sel) not]) ifTrue:[

  1550     [:aColumn|

  1840             bCode := sel asString, code, '    ^ nil'.

  1551         ((sel := aColumn backgroundSelector) notNil and:[(aClass implements:sel) not]) 

  1552         ifTrue:

  1553         [

  1554             bCode := sel asString, code, '    ^nil'.

  1849     "generate code for #choices

  1563     "generate code for #choices"

  1850     "

  1564 

  1859             , '    ^ nil'

  1573             , '    ^nil'

  1862     columns do:[:aColumn|

  1576     columns do:

  1863         (     aColumn canSelect

  1577     [:aColumn|

  1864          and:[aColumn rendererType ~~ #rowSelector

  1578         (aColumn canSelect

  1865          and:[(sel := aColumn choices) notNil

  1579         and:[aColumn rendererType ~~ #rowSelector

  1866          and:[(aClass implements:sel) not]]]

  1580         and:[(sel := aColumn choices) notNil

  1867         ) ifTrue:[

  1581         and:[(aClass implements:sel) not]]]) 

  1582         ifTrue:

  1583         [

  1874     "generate code for #foregroundSelector

  1590     "generate code for #foregroundSelector"

  1875     "

  1591 

  1886     columns do:[:aCol|

  1602     columns do:

  1887         ((sel := aCol doubleClickedSelector) notNil and:[(aClass implements:sel) not]) ifTrue:[

  1603     [:aColumn|

  1604         ((sel := aColumn doubleClickedSelector) notNil 

  1605         and:[(aClass implements:sel) not]) 

  1606         ifTrue:

  1607         [

  1909     columns do:[:aCol|

  1629     columns do:

  1910         ((sel := aCol foregroundSelector) notNil and:[(aClass implements:sel) not]) ifTrue:[

  1630     [:aColumn|

  1911             bCode := sel asString, code, '    ^ nil'.

  1631         ((sel := aColumn foregroundSelector) notNil 

  1632         and:[(aClass implements:sel) not]) 

  1633         ifTrue:

  1634         [

  1635             bCode := sel asString, code, '    ^nil'.

  1920     "generate code for #menu

  1644     "generate code for #menu"

  1921     "

  1645 

  1930             , '    ^ nil'

  1654             , '    ^nil'

  1933     columns do:[:aColumn|

  1657     columns do:

  1934         (     aColumn canSelect

  1658     [:aColumn|

  1935          and:[(sel := aColumn menu) notNil

  1659         (aColumn canSelect

  1936          and:[(aClass implements:sel) not]]

  1660         and:[(sel := aColumn menu) notNil

  1937         ) ifTrue:[

  1661         and:[(aClass implements:sel) not]]) 

  1662         ifTrue:

  1663         [

  1944     "generate code for #printSelector

  1670     "generate code for #printSelector"

  1945     "

  1671 

  1954             , '    ^ nil'

  1680             , '    ^nil'

  1957     columns do:[:aColumn|

  1683     columns do:

  1958         (     aColumn rendererType ~~ #rowSelector

  1684     [:aColumn|

  1959          and:[(sel := aColumn printSelector) notNil

  1685         (aColumn rendererType ~~ #rowSelector

  1960          and:[(aClass implements:sel) not]]

  1686         and:[(sel := aColumn printSelector) notNil

  1961         ) ifTrue:[

  1687         and:[(aClass implements:sel) not]]) 

  1688         ifTrue:

  1689         [

  1968     "generate code for #readSelector

  1696     "generate code for #readSelector"

  1969     "

  1697 

  1980     columns do:[:aColumn|

  1708     columns do:

  1981         (     aColumn rendererType ~~ #rowSelector 

  1709     [:aColumn|

  1982          and:[(sel := aColumn readSelector) notNil

  1710         (aColumn rendererType ~~ #rowSelector 

  1983          and:[(aClass implements:sel) not]]

  1711         and:[(sel := aColumn readSelector) notNil

  1984         ) ifTrue:[

  1712         and:[(aClass implements:sel) not]]) 

  1985             (aColumn printSelector isNil or:[aColumn canSelect]) ifTrue:[

  1713         ifTrue:

  1986                 sel numArgs == 0 ifTrue:[

  1714         [

  1987                     bCode := sel asString, code

  1715             (aColumn printSelector isNil or:[aColumn canSelect]) 

  1988                 ] ifFalse:[

  1716             ifTrue:

  1989                     bCode := sel asString, 'anIndex\', code

  1717             [

  1990                 ].

  1718                 sel numArgs == 0 

  1991                 aColumn rendererType == #CheckToggle ifFalse:[

  1719                     ifTrue: [bCode := sel asString, code] 

  1992                     bCode := bCode, '    ^ nil'

  1720                     ifFalse:[bCode := sel asString, 'anIndex\', code].

  1993                 ] ifTrue:[

  1721                 aColumn rendererType == #CheckToggle 

  1994                     bCode := bCode, '    ^ true'

  1722                     ifFalse:[bCode := bCode, '    ^nil'] 

  1995                 ]. 

  1723                     ifTrue: [bCode := bCode, '    ^true']. 

  2015     columns do:[:aColumn|

  1743     columns do:

  2016         (     aColumn rendererType ~~ #rowSelector 

  1744     [:aColumn|

  1745         (aColumn rendererType ~~ #rowSelector 

  2018          and:[(aClass implements:sel) not]]

  1747          and:[(aClass implements:sel) not]]) 

  2019         ) ifTrue:[

  1748          ifTrue:

  2020             aColumn canSelect ifTrue:[

  1749          [

  2021                 bCode := sel asString, code, '    ^ true'.

  1750             aColumn canSelect 

  1751             ifTrue:

  1752             [

  1753                 bCode := sel asString, code, '    ^true'.

  2029     "generate code for #writeSelector

  1761     "generate code for #writeSelector"

  2030     "

  1762 

  2040     columns do:[:aColumn|

  1772     columns do:

  2041         (    (sel := aColumn writeSelector) notNil

  1773     [:aColumn|

  2042          and:[(aColumn canSelect)

  1774         ((sel := aColumn writeSelector) notNil

  2043          and:[(aClass implements:sel) not]]

  1775          and:[aColumn canSelect

  2044         ) ifTrue:[

  1776          and:[(aClass implements:sel) not]]) 

  2045             sel numArgs == 1 ifTrue:[

  1777         ifTrue:

  1778         [

  1779             sel numArgs == 1 

  1780             ifTrue:

  1781             [

  2047             ] ifFalse:[

  1783             ] 

  1784             ifFalse:

  1785             [

  2050                 bCode := bCode, 'anIndex ', (sel copyFrom:(sz + 1)).

  1788                 bCode := bCode, 'anIndex ', (sel copyFrom:sz + 1)

  2060     "setup aspects used by column description specifications

  1798     "setup aspects used by column description specifications"

  2061     "

  1799 

  2105         holder addDependent:self.

  1843         holder addDependent:self

  2106     ].

  1844     ]

  2130     "returns current class or nil

  1868     "returns current class or nil"

  2131     "

  1869 

  2132     ^ Smalltalk resolveName:className inClass:self class.

  1870     ^Smalltalk resolveName:className inClass:self class.

  2137     "update column view from column descriptions

  1875     "update column view from column descriptions"

  2138     "

  1876 

  2139     columnView notNil ifTrue:[

  1877     columnView notNil ifTrue:[columnView columnDescriptors:columns]

  2140         columnView columnDescriptors:columns.

  1878 !

  2141     ].

  1879 

  1880 updateInputFields

  1881     "reload item value into input fields"

  1882 

  1883     |column|

  1884 

  1885     (column := self selectedColumn) isNil 

  1886     ifTrue:

  1887     [

  1888         self tabModel value:0.

  1889     ] 

  1890     ifFalse:

  1891     [

  1892         aspects keysAndValuesDo:[:aKey :aModel|aModel value:(column perform:aKey)].

  1893         tabSelectionIndex == 0 ifTrue:[self tabModel value:1]

  1894     ]

  2147     "returns true if changes are done to the original column description

  1900     "returns true if changes are done to the original column description"

  2148     "

  1901 

  2149     ^ hasChanged

  1902     ^hasChanged

  2150 !

  2151 

  2152 modified

  2153     "returns true if current specification is modified

  2154     "

  2155     ^ self modifiedChannel value

  2161     "returns selected column or nil

  1908     "returns selected column or nil"

  2162     "

  1909 

  2163     ^ selectedColumnIndex == 0 ifFalse:[columns at:selectedColumnIndex]

  1910     ^selectedColumnIndex == 0 

  2164                                 ifTrue:[nil]

  1911         ifFalse:[columns at:selectedColumnIndex]

  1912         ifTrue: [nil]

  2168     "returns selected column index or 0

  1916     "returns selected column index or 0"

  2169     "

  1917 

  2170     ^ selectedColumnIndex

  1918     ^selectedColumnIndex

  2174     "change selected column and update specifications

  1922     "change selected column and update specifications"

  2175     "

  1923 

  2176     something == selectedColumnIndex ifFalse:[

  1924     something == selectedColumnIndex 

  1925     ifFalse:

  1926     [

  2180     ].

  1929     ]

  2185     "returns selected tab index or 0

  1934     "returns selected tab index or 0"

  2186     "

  1935 

  2187     ^ tabSelectionIndex

  1936     ^tabSelectionIndex

  2191     "change selected tab and set corresponding specification

  1940     "change selected tab and set corresponding specification"

  2192     "

  1941 

  2195     something == tabSelectionIndex ifTrue:[

  1944     something == tabSelectionIndex ifTrue:[^self].

  2196         ^ self

  1945     self selectedColumn isNil 

  2197     ].

  1946     ifTrue:

  2198     self selectedColumn isNil ifTrue:[

  1947     [

  2199         tabSelectionIndex == 0 ifTrue:[^ self ].

  1948         tabSelectionIndex == 0 ifTrue:[^self].

  2201     ] ifFalse:[

  1950     ] 

  2202         (tabSelectionIndex := something) ~~ 0 ifTrue:[

  1951     ifFalse:

  2203             specSelector := (self class slices at:tabSelectionIndex) last.

  1952     [

  2204         ]

  1953         (tabSelectionIndex := something) ~~ 0 

  1954             ifTrue: [specSelector := (self class slices at:tabSelectionIndex) last]

  2214     "close request

  1964     "close request"

  2215     "

  1965