DataSetBuilder.st
changeset 881 9054767c0080
parent 857 eabfba82d601
child 894 dc16c3472d99
equal deleted inserted replaced
880:a344e9ef09dc 881:9054767c0080
   251 
   251 
   252 )
   252 )
   253 
   253 
   254     "Modified: / 19.5.1998 / 23:20:51 / cg"
   254     "Modified: / 19.5.1998 / 23:20:51 / cg"
   255 ! !
   255 ! !
       
   256 
       
   257 !DataSetBuilder class methodsFor:'image specs'!
       
   258 
       
   259 newColumnIcon
       
   260     "This resource specification was automatically generated
       
   261      by the ImageEditor of ST/X."
       
   262 
       
   263     "Do not manually edit this!! If it is corrupted,
       
   264      the ImageEditor may not be able to read the specification."
       
   265 
       
   266     "
       
   267      self newColumnIcon inspect
       
   268      ImageEditor openOnClass:self andSelector:#newColumnIcon
       
   269     "
       
   270 
       
   271     <resource: #image>
       
   272 
       
   273     ^Icon
       
   274         constantNamed:#'DataSetBuilder newColumnIcon'
       
   275         ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UT@@@@UPUTUUUXUPUTZ**,UPUTZB",UPUTX*H,UYUTX*H,UPUTZB",UPQTZ**,UPUTX*H,UPUTX*H,UPUTX*H,UPUTXB@,UPUTZ**,UPUTZ**,UPUTX"H,UYUTXB@,UPUTX"@,UPUTX"H,UPUTZ**,UPUTZ**,UPUT/??<UPUT@@@@UP') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A??@A??@A??@A??@A??@A??@A??@A??@A??CA??@A??@A??@A??@A??CA??AA??@A??CA??@A??CA??@A??@A??A') ; yourself); yourself]! !
   256 
   276 
   257 !DataSetBuilder class methodsFor:'interface specs'!
   277 !DataSetBuilder class methodsFor:'interface specs'!
   258 
   278 
   259 basicsEditSpec
   279 basicsEditSpec
   260     "This resource specification was automatically generated
   280     "This resource specification was automatically generated
  1543        #(#Menu
  1563        #(#Menu
  1544           
  1564           
  1545            #(
  1565            #(
  1546              #(#MenuItem
  1566              #(#MenuItem
  1547                 #label: 'Cut'
  1567                 #label: 'Cut'
       
  1568                 #translateLabel: true
  1548                 #value: #doCut
  1569                 #value: #doCut
  1549                 #translateLabel: true
       
  1550                 #activeHelpKey: #editCut
  1570                 #activeHelpKey: #editCut
  1551                 #enabled: #isColumnSelected
  1571                 #enabled: #isColumnSelected
  1552             )
  1572             )
  1553              #(#MenuItem
  1573              #(#MenuItem
  1554                 #label: 'Copy'
  1574                 #label: 'Copy'
       
  1575                 #translateLabel: true
  1555                 #value: #doCopy
  1576                 #value: #doCopy
  1556                 #translateLabel: true
       
  1557                 #activeHelpKey: #editCopy
  1577                 #activeHelpKey: #editCopy
  1558                 #enabled: #isColumnSelected
  1578                 #enabled: #isColumnSelected
  1559             )
  1579             )
  1560              #(#MenuItem
  1580              #(#MenuItem
  1561                 #label: 'Paste'
  1581                 #label: 'Paste'
       
  1582                 #translateLabel: true
  1562                 #value: #doPaste
  1583                 #value: #doPaste
  1563                 #translateLabel: true
       
  1564                 #activeHelpKey: #editPaste
  1584                 #activeHelpKey: #editPaste
  1565                 #enabled: #valueOfHavingClipboard
  1585                 #enabled: #valueOfHavingClipboard
  1566             )
  1586             )
  1567              #(#MenuItem
  1587              #(#MenuItem
  1568                 #label: 'Delete'
  1588                 #label: 'Delete'
       
  1589                 #translateLabel: true
  1569                 #value: #doDelete
  1590                 #value: #doDelete
  1570                 #translateLabel: true
       
  1571                 #activeHelpKey: #editDelete
  1591                 #activeHelpKey: #editDelete
  1572                 #enabled: #valueOfHavingClipboard
  1592                 #enabled: #valueOfHavingClipboard
  1573             )
  1593             )
  1574              #(#MenuItem
  1594              #(#MenuItem
  1575                 #label: '-'
  1595                 #label: '-'
  1576             )
  1596             )
  1577              #(#MenuItem
  1597              #(#MenuItem
  1578                 #label: 'Move Up'
  1598                 #label: 'Move Up'
       
  1599                 #translateLabel: true
  1579                 #value: #doMoveColumn:
  1600                 #value: #doMoveColumn:
  1580                 #activeHelpKey: #editMoveUp
  1601                 #activeHelpKey: #editMoveUp
  1581                 #translateLabel: true
       
  1582                 #enabled: #isColumnSelected
  1602                 #enabled: #isColumnSelected
  1583                 #argument: #up
  1603                 #argument: #up
  1584                 #labelImage: #(#ResourceRetriever #DataSetBuilder #upIcon 'Move Up')
  1604                 #labelImage: #(#ResourceRetriever #Icon #upIcon 'Move Up')
  1585             )
  1605             )
  1586              #(#MenuItem
  1606              #(#MenuItem
  1587                 #label: 'Move Down'
  1607                 #label: 'Move Down'
       
  1608                 #translateLabel: true
  1588                 #value: #doMoveColumn:
  1609                 #value: #doMoveColumn:
  1589                 #translateLabel: true
       
  1590                 #activeHelpKey: #editMoveDown
  1610                 #activeHelpKey: #editMoveDown
  1591                 #enabled: #isColumnSelected
  1611                 #enabled: #isColumnSelected
  1592                 #argument: #down
  1612                 #argument: #down
  1593                 #labelImage: #(#ResourceRetriever #DataSetBuilder #downIcon 'Move Down')
  1613                 #labelImage: #(#ResourceRetriever #Icon #downIcon 'Move Down')
  1594             )
  1614             )
  1595           ) nil
  1615           ) nil
  1596           nil
  1616           nil
  1597       )
  1617       )
  1598 
       
  1599     "Modified: / 19.5.1998 / 23:10:19 / cg"
       
  1600 !
  1618 !
  1601 
  1619 
  1602 menuToolbar
  1620 menuToolbar
  1603     "This resource specification was automatically generated
  1621     "This resource specification was automatically generated
  1604      by the MenuEditor of ST/X."
  1622      by the MenuEditor of ST/X."
  1621              #(#MenuItem
  1639              #(#MenuItem
  1622                 #label: 'New'
  1640                 #label: 'New'
  1623                 #isButton: true
  1641                 #isButton: true
  1624                 #value: #doNew
  1642                 #value: #doNew
  1625                 #activeHelpKey: #fileNew
  1643                 #activeHelpKey: #fileNew
  1626                 #labelImage: #(#ResourceRetriever nil #newIcon)
  1644                 #labelImage: #(#ResourceRetriever #Icon #newIcon)
  1627             )
  1645             )
  1628              #(#MenuItem
  1646              #(#MenuItem
  1629                 #label: 'Load'
  1647                 #label: 'Load'
  1630                 #isButton: true
  1648                 #isButton: true
  1631                 #value: #doLoad
  1649                 #value: #doLoad
  1632                 #activeHelpKey: #fileLoad
  1650                 #activeHelpKey: #fileLoad
  1633                 #labelImage: #(#ResourceRetriever nil #loadIcon)
  1651                 #labelImage: #(#ResourceRetriever #Icon #loadIcon)
  1634             )
  1652             )
  1635              #(#MenuItem
  1653              #(#MenuItem
  1636                 #label: 'Save'
  1654                 #label: 'Save'
  1637                 #isButton: true
  1655                 #isButton: true
  1638                 #value: #doSave
  1656                 #value: #doSave
  1639                 #activeHelpKey: #fileSave
  1657                 #activeHelpKey: #fileSave
  1640                 #labelImage: #(#ResourceRetriever nil #saveIcon)
  1658                 #labelImage: #(#ResourceRetriever #Icon #saveIcon)
  1641             )
  1659             )
  1642              #(#MenuItem
  1660              #(#MenuItem
  1643                 #label: ''
  1661                 #label: ''
  1644             )
  1662             )
  1645              #(#MenuItem
  1663              #(#MenuItem
  1646                 #label: 'Cut'
  1664                 #label: 'Cut'
  1647                 #isButton: true
  1665                 #isButton: true
  1648                 #value: #doCut
  1666                 #value: #doCut
  1649                 #activeHelpKey: #editCut
  1667                 #activeHelpKey: #editCut
  1650                 #enabled: #isColumnSelected
  1668                 #enabled: #isColumnSelected
  1651                 #labelImage: #(#ResourceRetriever nil #cutIcon)
  1669                 #labelImage: #(#ResourceRetriever #Icon #cutIcon)
  1652             )
  1670             )
  1653              #(#MenuItem
  1671              #(#MenuItem
  1654                 #label: 'Copy'
  1672                 #label: 'Copy'
  1655                 #isButton: true
  1673                 #isButton: true
  1656                 #value: #doCopy
  1674                 #value: #doCopy
  1657                 #activeHelpKey: #editCopy
  1675                 #activeHelpKey: #editCopy
  1658                 #enabled: #isColumnSelected
  1676                 #enabled: #isColumnSelected
  1659                 #labelImage: #(#ResourceRetriever nil #copyIcon)
  1677                 #labelImage: #(#ResourceRetriever #Icon #copyIcon)
  1660             )
  1678             )
  1661              #(#MenuItem
  1679              #(#MenuItem
  1662                 #label: 'Paste'
  1680                 #label: 'Paste'
  1663                 #isButton: true
  1681                 #isButton: true
  1664                 #value: #doPaste
  1682                 #value: #doPaste
  1665                 #activeHelpKey: #editPaste
  1683                 #activeHelpKey: #editPaste
  1666                 #enabled: #valueOfCanPaste
  1684                 #enabled: #valueOfCanPaste
  1667                 #labelImage: #(#ResourceRetriever nil #pasteIcon)
  1685                 #labelImage: #(#ResourceRetriever #Icon #pasteIcon)
  1668             )
  1686             )
  1669              #(#MenuItem
  1687              #(#MenuItem
  1670                 #label: 'Delete'
  1688                 #label: 'Delete'
  1671                 #isButton: true
  1689                 #isButton: true
  1672                 #value: #doDelete
  1690                 #value: #doDelete
  1673                 #activeHelpKey: #editDelete
  1691                 #activeHelpKey: #editDelete
  1674                 #enabled: #isColumnSelected
  1692                 #enabled: #isColumnSelected
  1675                 #labelImage: #(#ResourceRetriever nil #deleteIcon)
  1693                 #labelImage: #(#ResourceRetriever #Icon #deleteIcon)
  1676             )
  1694             )
  1677              #(#MenuItem
  1695              #(#MenuItem
  1678                 #label: ''
  1696                 #label: ''
  1679             )
  1697             )
  1680              #(#MenuItem
  1698              #(#MenuItem
  1693                 #isButton: true
  1711                 #isButton: true
  1694                 #value: #doMoveColumn:
  1712                 #value: #doMoveColumn:
  1695                 #activeHelpKey: #editMoveUp
  1713                 #activeHelpKey: #editMoveUp
  1696                 #enabled: #isColumnSelected
  1714                 #enabled: #isColumnSelected
  1697                 #argument: #up
  1715                 #argument: #up
  1698                 #labelImage: #(#ResourceRetriever nil #upIcon)
  1716                 #labelImage: #(#ResourceRetriever #Icon #upIcon)
  1699             )
  1717             )
  1700              #(#MenuItem
  1718              #(#MenuItem
  1701                 #label: 'Move Down'
  1719                 #label: 'Move Down'
  1702                 #isButton: true
  1720                 #isButton: true
  1703                 #value: #doMoveColumn:
  1721                 #value: #doMoveColumn:
  1704                 #activeHelpKey: #editMoveDown
  1722                 #activeHelpKey: #editMoveDown
  1705                 #enabled: #isColumnSelected
  1723                 #enabled: #isColumnSelected
  1706                 #argument: #down
  1724                 #argument: #down
  1707                 #labelImage: #(#ResourceRetriever nil #downIcon)
  1725                 #labelImage: #(#ResourceRetriever #Icon #downIcon)
  1708             )
  1726             )
  1709           ) nil
  1727           ) nil
  1710           nil
  1728           nil
  1711       )
  1729       )
  1712 ! !
  1730 ! !
  1713 
       
  1714 !DataSetBuilder class methodsFor:'resources'!
       
  1715 
       
  1716 newColumnIcon
       
  1717     "This resource specification was automatically generated
       
  1718      by the ImageEditor of ST/X."
       
  1719 
       
  1720     "Do not manually edit this!! If it is corrupted,
       
  1721      the ImageEditor may not be able to read the specification."
       
  1722 
       
  1723     "
       
  1724      self newColumnIcon inspect
       
  1725      ImageEditor openOnClass:self andSelector:#newColumnIcon
       
  1726     "
       
  1727 
       
  1728     <resource: #image>
       
  1729 
       
  1730     ^Icon
       
  1731         constantNamed:#'DataSetBuilder newColumnIcon'
       
  1732         ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UT@@@@UPUTUUUXUPUTZ**,UPUTZB",UPUTX*H,UYUTX*H,UPUTZB",UPQTZ**,UPUTX*H,UPUTX*H,UPUTX*H,UPUTXB@,UPUTZ**,UPUTZ**,UPUTX"H,UYUTXB@,UPUTX"@,UPUTX"H,UPUTZ**,UPUTZ**,UPUT/??<UPUT@@@@UP') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A??@A??@A??@A??@A??@A??@A??@A??@A??CA??@A??@A??@A??@A??CA??AA??@A??CA??@A??CA??@A??@A??A') ; yourself); yourself]! !
       
  1733 
  1731 
  1734 !DataSetBuilder methodsFor:'accessing'!
  1732 !DataSetBuilder methodsFor:'accessing'!
  1735 
  1733 
  1736 columns
  1734 columns
  1737     "returns list of columns"
  1735     "returns list of columns"