UIPainter.st
changeset 1827 691d1471cd3e
parent 1820 3d834d5e5bb4
child 1850 410f98d259b7
equal deleted inserted replaced
1826:25ddfdfe0bf9 1827:691d1471cd3e
   272      UIHelpTool openOnClass:UIPainter    
   272      UIHelpTool openOnClass:UIPainter    
   273     "
   273     "
   274 
   274 
   275     <resource: #help>
   275     <resource: #help>
   276 
   276 
   277     ^super helpSpec addPairsFrom:#(
   277     ^ super helpSpec addPairsFrom:#(
   278 
   278 
   279 #align
   279 #align
   280 'Widget alignment functions.'
   280 'Widget alignment functions.'
   281 
   281 
   282 #alignSelectionBottom
   282 #alignSelectionBottom
   319 'Moves the selected widget(s) towards the right.'
   319 'Moves the selected widget(s) towards the right.'
   320 
   320 
   321 #changePositionUp
   321 #changePositionUp
   322 'Moves the selected widget(s) towards the top.'
   322 'Moves the selected widget(s) towards the top.'
   323 
   323 
       
   324 #drawEdit
       
   325 ''
       
   326 
       
   327 #editBrowseViewClass
       
   328 'Opens a browser on the class of the selected widget.'
       
   329 
   324 #editDimensionCopyExtent
   330 #editDimensionCopyExtent
   325 'Copies the extent of the selected widget.'
   331 'Copies the extent of the selected widget.'
   326 
   332 
   327 #editDimensionCopyLayout
   333 #editDimensionCopyLayout
   328 'Copies the layout of the selected widget.'
   334 'Copies the layout of the selected widget.'
   349 'Sets the width of the selected widget(s) to the width of the last copied layout/extent.'
   355 'Sets the width of the selected widget(s) to the width of the last copied layout/extent.'
   350 
   356 
   351 #editInspectSpec
   357 #editInspectSpec
   352 'Opens an inspector on the spec of the selected widget.'
   358 'Opens an inspector on the spec of the selected widget.'
   353 
   359 
   354 #editBrowseViewClass
       
   355 'Opens a browser on the class of the selected widget.'
       
   356 
       
   357 #editInspectView
   360 #editInspectView
   358 'Opens an inspector on the selected widget.'
   361 'Opens an inspector on the selected widget.'
   359 
   362 
   360 #editOpenSpecDocumentation
   363 #editOpenSpecDocumentation
   361 'Opens the documentation of the selected widget.'
   364 'Opens the documentation of the selected widget.'
   362 
   365 
       
   366 #fileBrowseAspectMethods
       
   367 'Opens a System Browser on the applications aspect methods.'
       
   368 
   363 #fileBrowseClass
   369 #fileBrowseClass
   364 'Open a System Browser on the applications class.'
   370 'Open a System Browser on the applications class.'
   365 
   371 
   366 #fileBrowseAspectMethods
       
   367 'Opens a System Browser on the applications aspect methods.'
       
   368 
       
   369 #fileLoad
   372 #fileLoad
   370 'Opens a dialog to load a window specification from a classes spec method.'
   373 'Opens a dialog to load a window specification from a classes spec method.'
   371 
   374 
   372 #fileLoadSubspec
   375 #fileLoadSubspec
   373 'Opens a dialog to load a sub specification from a classes windowSpec method.'
   376 'Opens a dialog to load a sub specification from a classes windowSpec method.'
   427 'Pastes the widgets of the clipboard at the current mouse position.'
   430 'Pastes the widgets of the clipboard at the current mouse position.'
   428 
   431 
   429 #pasteWithLayout
   432 #pasteWithLayout
   430 'Pastes the widgets of the clipboard without a changing of their layouts.'
   433 'Pastes the widgets of the clipboard without a changing of their layouts.'
   431 
   434 
       
   435 #referToCOnfigDatabase
       
   436 ''
       
   437 
       
   438 #settingsAspectsAsInstances
       
   439 'Generate aspects as instance variables (or bindings, if off).'
       
   440 
   432 #settingsCanvas
   441 #settingsCanvas
   433 'Shows or hides the canvas window.'
   442 'Shows or hides the canvas window.'
   434 
   443 
   435 #settingsGallery
   444 #settingsGallery
   436 'Shows or hides the gallery window.'
   445 'Shows or hides the gallery window.'
   439 'Opens a dialog to toggle grid display or to change the grids spacing.'
   448 'Opens a dialog to toggle grid display or to change the grids spacing.'
   440 
   449 
   441 #settingsRedefineAspectMethods
   450 #settingsRedefineAspectMethods
   442 'Toggles the permission to overwrite existing aspect methods.'
   451 'Toggles the permission to overwrite existing aspect methods.'
   443 
   452 
   444 #settingsAspectsAsInstances
       
   445 'Generate aspects as instance variables (or bindings, if off).'
       
   446 
       
   447 #settingsTranscriptHelp
   453 #settingsTranscriptHelp
   448 'Toggles display of help texts (after opening a new GUI Painter).'
   454 'Toggles display of help texts (after opening a new GUI Painter).'
   449 
   455 
   450 #settingsUndoManager
   456 #settingsUndoManager
   451 'Opens a dialog to undo modifications.'
   457 'Opens a dialog to undo modifications.'
   461 
   467 
   462 #testStartApplication
   468 #testStartApplication
   463 'Starts the application with the current window spec.'
   469 'Starts the application with the current window spec.'
   464 
   470 
   465 )
   471 )
   466 
       
   467     "Modified: / 31.7.1998 / 19:29:53 / cg"
       
   468 ! !
   472 ! !
   469 
   473 
   470 !UIPainter class methodsFor:'helpers'!
   474 !UIPainter class methodsFor:'helpers'!
   471 
   475 
   472 convertString:aString maxLineSize:maxCharactersPerLine skipLineFeed:skipLineFeed
   476 convertString:aString maxLineSize:maxCharactersPerLine skipLineFeed:skipLineFeed
  1458      (Menu new fromLiteralArrayEncoding:(UIPainter menuEdit)) startUp
  1462      (Menu new fromLiteralArrayEncoding:(UIPainter menuEdit)) startUp
  1459     "
  1463     "
  1460 
  1464 
  1461     <resource: #menu>
  1465     <resource: #menu>
  1462 
  1466 
  1463     ^
  1467     ^ 
  1464      
  1468      #(Menu
  1465        #(#Menu
  1469         (
  1466           
  1470          (MenuItem
  1467            #(
  1471             activeHelpKey: editUndo
  1468              #(#MenuItem
  1472             enabled: hasUndoHistory
  1469                 #label: 'Undo'
  1473             label: 'Undo'
  1470                 #translateLabel: true
  1474             itemValue: undoLast
  1471                 #nameKey: #undo
  1475             nameKey: undo
  1472                 #value: #undoLast
  1476             translateLabel: true
  1473                 #activeHelpKey: #editUndo
  1477           )
  1474                 #enabled: #hasUndoHistory
  1478          (MenuItem
       
  1479             label: '-'
       
  1480           )
       
  1481          (MenuItem
       
  1482             activeHelpKey: editCut
       
  1483             enabled: valueOfCanCut
       
  1484             label: 'Cut'
       
  1485             itemValue: deleteSelection
       
  1486             translateLabel: true
       
  1487           )
       
  1488          (MenuItem
       
  1489             activeHelpKey: editCopy
       
  1490             enabled: valueOfCanCopy
       
  1491             label: 'Copy'
       
  1492             itemValue: copySelection
       
  1493             translateLabel: true
       
  1494           )
       
  1495          (MenuItem
       
  1496             activeHelpKey: pasteBuffer
       
  1497             enabled: valueOfCanPaste
       
  1498             label: 'Paste'
       
  1499             itemValue: pasteBuffer
       
  1500             translateLabel: true
       
  1501           )
       
  1502          (MenuItem
       
  1503             activeHelpKey: editDelete
       
  1504             enabled: valueOfCanCut
       
  1505             label: 'Delete'
       
  1506             itemValue: deleteTotalSelection
       
  1507             translateLabel: true
       
  1508           )
       
  1509          (MenuItem
       
  1510             label: '-'
       
  1511           )
       
  1512          (MenuItem
       
  1513             activeHelpKey: pasteWithLayout
       
  1514             enabled: valueOfCanPasteWithKeepingLayout
       
  1515             label: 'Paste with Layout'
       
  1516             itemValue: pasteWithLayout
       
  1517             translateLabel: true
       
  1518           )
       
  1519          (MenuItem
       
  1520             activeHelpKey: editPaste
       
  1521             enabled: valueOfCanPasteWithKeepingLayout
       
  1522             label: 'Paste Keeping Absolute Position'
       
  1523             itemValue: pasteKeepingPosition
       
  1524             translateLabel: true
       
  1525           )
       
  1526          (MenuItem
       
  1527             label: '-'
       
  1528           )
       
  1529          (MenuItem
       
  1530             enabled: canMoveSelection
       
  1531             label: 'Move'
       
  1532             translateLabel: true
       
  1533             submenuChannel: menuMove
       
  1534           )
       
  1535          (MenuItem
       
  1536             enabled: hasSelection
       
  1537             label: 'Dimension'
       
  1538             translateLabel: true
       
  1539             submenu: 
       
  1540            (Menu
       
  1541               (
       
  1542                (MenuItem
       
  1543                   activeHelpKey: editDimensionDefaultExtent
       
  1544                   enabled: canMoveOrAlignSelection
       
  1545                   label: 'Default Extent'
       
  1546                   itemValue: setToDefaultExtent
       
  1547                   translateLabel: true
       
  1548                 )
       
  1549                (MenuItem
       
  1550                   activeHelpKey: editDimensionDefaultWidth
       
  1551                   enabled: canMoveOrAlignSelection
       
  1552                   label: 'Default Width'
       
  1553                   itemValue: setToDefaultWidth
       
  1554                   translateLabel: true
       
  1555                 )
       
  1556                (MenuItem
       
  1557                   activeHelpKey: editDimensionDefaultHeight
       
  1558                   enabled: canMoveOrAlignSelection
       
  1559                   label: 'Default Height'
       
  1560                   itemValue: setToDefaultHeight
       
  1561                   translateLabel: true
       
  1562                 )
       
  1563                (MenuItem
       
  1564                   label: '-'
       
  1565                 )
       
  1566                (MenuItem
       
  1567                   activeHelpKey: editDimensionCopyLayout
       
  1568                   enabled: hasSingleSelection
       
  1569                   label: 'Copy Layout'
       
  1570                   itemValue: copyLayout
       
  1571                   translateLabel: true
       
  1572                 )
       
  1573                (MenuItem
       
  1574                   activeHelpKey: editDimensionPasteLayout
       
  1575                   enabled: canMoveOrAlignSelection
       
  1576                   label: 'Paste Layout'
       
  1577                   itemValue: pasteLayout
       
  1578                   translateLabel: true
       
  1579                 )
       
  1580                (MenuItem
       
  1581                   activeHelpKey: editDimensionExchangeLayouts
       
  1582                   enabled: canExchangeSelectionLayouts
       
  1583                   label: 'Exchange Layouts'
       
  1584                   itemValue: exchangeLayouts
       
  1585                   translateLabel: true
       
  1586                 )
       
  1587                (MenuItem
       
  1588                   label: '-'
       
  1589                 )
       
  1590                (MenuItem
       
  1591                   activeHelpKey: editDimensionCopyExtent
       
  1592                   enabled: hasSingleSelection
       
  1593                   label: 'Copy Extent'
       
  1594                   itemValue: copyExtent
       
  1595                   translateLabel: true
       
  1596                 )
       
  1597                (MenuItem
       
  1598                   activeHelpKey: editDimensionPasteExtent
       
  1599                   enabled: canMoveOrAlignSelection
       
  1600                   label: 'Paste Extent'
       
  1601                   itemValue: pasteExtent
       
  1602                   translateLabel: true
       
  1603                 )
       
  1604                (MenuItem
       
  1605                   activeHelpKey: editDimensionPasteWidth
       
  1606                   enabled: canMoveOrAlignSelection
       
  1607                   label: 'Paste Width'
       
  1608                   itemValue: pasteWidth
       
  1609                   translateLabel: true
       
  1610                 )
       
  1611                (MenuItem
       
  1612                   activeHelpKey: editDimensionPasteHeight
       
  1613                   enabled: canMoveOrAlignSelection
       
  1614                   label: 'Paste Height'
       
  1615                   itemValue: pasteHeight
       
  1616                   translateLabel: true
       
  1617                 )
       
  1618                )
       
  1619               nil
       
  1620               nil
  1475             )
  1621             )
  1476              #(#MenuItem
  1622           )
  1477                 #label: '-'
  1623          (MenuItem
  1478             )
  1624             label: '-'
  1479              #(#MenuItem
  1625           )
  1480                 #label: 'Cut'
  1626          (MenuItem
  1481                 #translateLabel: true
  1627             activeHelpKey: editOpenSpecDocumentation
  1482                 #value: #deleteSelection
  1628             label: 'Open Widget Documentation'
  1483                 #activeHelpKey: #editCut
  1629             itemValue: doOpenWidgetDocumentation
  1484                 #enabled: #valueOfCanCut
  1630             translateLabel: true
  1485             )
  1631           )
  1486              #(#MenuItem
  1632          (MenuItem
  1487                 #label: 'Copy'
  1633             activeHelpKey: referToCOnfigDatabase
  1488                 #translateLabel: true
  1634             label: 'Refer to Config Database'
  1489                 #value: #copySelection
  1635             itemValue: configSelection
  1490                 #activeHelpKey: #editCopy
  1636             translateLabel: true
  1491                 #enabled: #valueOfCanCopy
  1637             isVisible: false
  1492             )
  1638           )
  1493              #(#MenuItem
  1639          (MenuItem
  1494                 #label: 'Paste'
  1640             label: '-'
  1495                 #translateLabel: true
  1641             isVisible: false
  1496                 #value: #pasteBuffer
  1642           )
  1497                 #activeHelpKey: #pasteBuffer
  1643          (MenuItem
  1498                 #enabled: #valueOfCanPaste
  1644             activeHelpKey: drawEdit
  1499             )
  1645             label: 'Draw Edit'
  1500              #(#MenuItem
  1646             itemValue: shapeEdit
  1501                 #label: 'Delete'
  1647             translateLabel: true
  1502                 #translateLabel: true
  1648             isVisible: false
  1503                 #value: #deleteTotalSelection
  1649           )
  1504                 #activeHelpKey: #editDelete
  1650          (MenuItem
  1505                 #enabled: #valueOfCanCut
  1651             label: '-'
  1506             )
  1652           )
  1507              #(#MenuItem
  1653          (MenuItem
  1508                 #label: '-'
  1654             activeHelpKey: group
  1509             )
  1655             enabled: enGroup
  1510              #(#MenuItem
  1656             label: 'Group'
  1511                 #label: 'Paste with Layout'
  1657             itemValue: group
  1512                 #translateLabel: true
  1658             translateLabel: true
  1513                 #value: #pasteWithLayout
  1659           )
  1514                 #activeHelpKey: #pasteWithLayout
  1660          (MenuItem
  1515                 #enabled: #valueOfCanPasteWithKeepingLayout
  1661             activeHelpKey: groupWithLayout
  1516             )
  1662             enabled: enGroup
  1517              #(#MenuItem
  1663             label: 'Group with Layout'
  1518                 #label: 'Paste Keeping Absolute Position'
  1664             itemValue: groupWithLayout
  1519                 #translateLabel: true
  1665             translateLabel: true
  1520                 #value: #pasteKeepingPosition
  1666           )
  1521                 #activeHelpKey: #editPaste
  1667          (MenuItem
  1522                 #enabled: #valueOfCanPasteWithKeepingLayout
  1668             activeHelpKey: ungroup
  1523             )
  1669             enabled: enUngroup
  1524              #(#MenuItem
  1670             label: 'Ungroup'
  1525                 #label: '-'
  1671             itemValue: ungroup
  1526             )
  1672             translateLabel: true
  1527              #(#MenuItem
  1673           )
  1528                 #label: 'Move'
  1674          (MenuItem
  1529                 #translateLabel: true
  1675             activeHelpKey: ungroupWithLayout
  1530                 #enabled: #canMoveSelection
  1676             enabled: enUngroup
  1531                 #submenuChannel: #menuMove
  1677             label: 'Ungroup with Layout'
  1532             )
  1678             itemValue: ungroupWithLayout
  1533              #(#MenuItem
  1679             translateLabel: true
  1534                 #label: 'Dimension'
  1680           )
  1535                 #translateLabel: true
  1681          (MenuItem
  1536                 #enabled: #hasSelection
  1682             label: '-'
  1537                 #submenu: 
  1683           )
  1538                  #(#Menu
  1684          (MenuItem
  1539                     
  1685             activeHelpKey: editBrowseViewClass
  1540                      #(
  1686             enabled: hasOneSelectionOtherThanCanvas
  1541                        #(#MenuItem
  1687             label: 'Browse Widget Class'
  1542                           #label: 'Default Extent'
  1688             itemValue: doBrowseViewClass
  1543                           #translateLabel: true
  1689             translateLabel: true
  1544                           #value: #setToDefaultExtent
  1690           )
  1545                           #activeHelpKey: #editDimensionDefaultExtent
  1691          (MenuItem
  1546                           #enabled: #canMoveOrAlignSelection
  1692             activeHelpKey: editInspectView
  1547                       )
  1693             enabled: hasOneSelectionOtherThanCanvas
  1548                        #(#MenuItem
  1694             label: 'Inspect Widget'
  1549                           #label: 'Default Width'
  1695             itemValue: doInspectView
  1550                           #translateLabel: true
  1696             translateLabel: true
  1551                           #value: #setToDefaultWidth
  1697           )
  1552                           #activeHelpKey: #editDimensionDefaultWidth
  1698          (MenuItem
  1553                           #enabled: #canMoveOrAlignSelection
  1699             activeHelpKey: editInspectSpec
  1554                       )
  1700             label: 'Inspect Spec'
  1555                        #(#MenuItem
  1701             itemValue: doInspectSpec
  1556                           #label: 'Default Height'
  1702             translateLabel: true
  1557                           #translateLabel: true
  1703           )
  1558                           #value: #setToDefaultHeight
  1704          )
  1559                           #activeHelpKey: #editDimensionDefaultHeight
  1705         nil
  1560                           #enabled: #canMoveOrAlignSelection
  1706         nil
  1561                       )
       
  1562                        #(#MenuItem
       
  1563                           #label: '-'
       
  1564                       )
       
  1565                        #(#MenuItem
       
  1566                           #label: 'Copy Layout'
       
  1567                           #translateLabel: true
       
  1568                           #value: #copyLayout
       
  1569                           #activeHelpKey: #editDimensionCopyLayout
       
  1570                           #enabled: #hasSingleSelection
       
  1571                       )
       
  1572                        #(#MenuItem
       
  1573                           #label: 'Paste Layout'
       
  1574                           #translateLabel: true
       
  1575                           #value: #pasteLayout
       
  1576                           #activeHelpKey: #editDimensionPasteLayout
       
  1577                           #enabled: #canMoveOrAlignSelection
       
  1578                       )
       
  1579                        #(#MenuItem
       
  1580                           #label: 'Exchange Layouts'
       
  1581                           #translateLabel: true
       
  1582                           #value: #exchangeLayouts
       
  1583                           #activeHelpKey: #editDimensionExchangeLayouts
       
  1584                           #enabled: #canExchangeSelectionLayouts
       
  1585                       )
       
  1586                        #(#MenuItem
       
  1587                           #label: '-'
       
  1588                       )
       
  1589                        #(#MenuItem
       
  1590                           #label: 'Copy Extent'
       
  1591                           #translateLabel: true
       
  1592                           #value: #copyExtent
       
  1593                           #activeHelpKey: #editDimensionCopyExtent
       
  1594                           #enabled: #hasSingleSelection
       
  1595                       )
       
  1596                        #(#MenuItem
       
  1597                           #label: 'Paste Extent'
       
  1598                           #translateLabel: true
       
  1599                           #value: #pasteExtent
       
  1600                           #activeHelpKey: #editDimensionPasteExtent
       
  1601                           #enabled: #canMoveOrAlignSelection
       
  1602                       )
       
  1603                        #(#MenuItem
       
  1604                           #label: 'Paste Width'
       
  1605                           #translateLabel: true
       
  1606                           #value: #pasteWidth
       
  1607                           #activeHelpKey: #editDimensionPasteWidth
       
  1608                           #enabled: #canMoveOrAlignSelection
       
  1609                       )
       
  1610                        #(#MenuItem
       
  1611                           #label: 'Paste Height'
       
  1612                           #translateLabel: true
       
  1613                           #value: #pasteHeight
       
  1614                           #activeHelpKey: #editDimensionPasteHeight
       
  1615                           #enabled: #canMoveOrAlignSelection
       
  1616                       )
       
  1617                     ) nil
       
  1618                     nil
       
  1619                 )
       
  1620             )
       
  1621              #(#MenuItem
       
  1622                 #label: '-'
       
  1623             )
       
  1624              #(#MenuItem
       
  1625                 #label: 'Open Widget Documentation'
       
  1626                 #translateLabel: true
       
  1627                 #value: #doOpenWidgetDocumentation
       
  1628                 #activeHelpKey: #editOpenSpecDocumentation
       
  1629             )
       
  1630              #(#MenuItem
       
  1631                 #label: '-'
       
  1632             )
       
  1633              #(#MenuItem
       
  1634                 #label: 'Browse Widget Class'
       
  1635                 #translateLabel: true
       
  1636                 #value: #doBrowseViewClass
       
  1637                 #activeHelpKey: #editBrowseViewClass
       
  1638                 #enabled: #hasOneSelectionOtherThanCanvas
       
  1639             )
       
  1640              #(#MenuItem
       
  1641                 #label: 'Inspect Widget'
       
  1642                 #translateLabel: true
       
  1643                 #value: #doInspectView
       
  1644                 #activeHelpKey: #editInspectView
       
  1645                 #enabled: #hasOneSelectionOtherThanCanvas
       
  1646             )
       
  1647              #(#MenuItem
       
  1648                 #label: 'Inspect Spec'
       
  1649                 #translateLabel: true
       
  1650                 #value: #doInspectSpec
       
  1651                 #activeHelpKey: #editInspectSpec
       
  1652             )
       
  1653           ) nil
       
  1654           nil
       
  1655       )
  1707       )
  1656 
       
  1657     "Modified: / 20.5.1998 / 01:46:00 / cg"
       
  1658 !
  1708 !
  1659 
  1709 
  1660 menuMove
  1710 menuMove
  1661     "This resource specification was automatically generated
  1711     "This resource specification was automatically generated
  1662      by the MenuEditor of ST/X."
  1712      by the MenuEditor of ST/X."