MenuEditor.st
changeset 1566 852d3060ce0a
parent 1564 0833cfacf787
child 1571 a4f1d7825ae8
equal deleted inserted replaced
1565:3282f44c5ca4 1566:852d3060ce0a
   295 
   295 
   296 #browseResource
   296 #browseResource
   297 'Search for methods with image resource.'
   297 'Search for methods with image resource.'
   298 
   298 
   299 #detailsAccelerator
   299 #detailsAccelerator
   300 'Key to be pressed to select the menu item from the keyboard (accelerator key).'
   300 'Accelerator key to select the menu item from the keyboard (Cmdx or Ctrlx).'
   301 
   301 
   302 #detailsAccessCharaterPosition
   302 #detailsAccessCharaterPosition
   303 'Index of the access character position of the textual label (optional).'
   303 'Index of the access character position of the textual label (obsolete, VW compatibility).'
   304 
   304 
   305 #detailsAuxValue
   305 #detailsAuxValue
   306 'Some additional value - for arbitrary use by the program'
   306 'Some additional value - for arbitrary use by the program'
   307 
   307 
   308 #detailsEnabled
   308 #detailsEnabled
  1173               #activeHelpKey: #detailsStartGroup
  1173               #activeHelpKey: #detailsStartGroup
  1174               #resizeForLabel: true
  1174               #resizeForLabel: true
  1175               #adjust: #right
  1175               #adjust: #right
  1176             )
  1176             )
  1177            #(#PopUpListSpec
  1177            #(#PopUpListSpec
  1178               #label: 'PopUpList'
  1178               #label: 'left'
  1179               #name: 'StartGroupPopUp'
  1179               #name: 'StartGroupPopUp'
  1180               #layout: #(#LayoutFrame 110 0 128 0 -5 1.0 150 0)
  1180               #layout: #(#LayoutFrame 110 0 128 0 -5 1.0 150 0)
  1181               #activeHelpKey: #detailsStartGroup
  1181               #activeHelpKey: #detailsStartGroup
  1182               #tabable: true
  1182               #tabable: true
  1183               #model: #startGroup
  1183               #model: #startGroup
  1184               #menu: 
  1184               #menu: 
  1185              #(nil
  1185              #(#left
  1186                 #right
  1186                 #right
  1187               )
  1187               )
  1188               #useIndex: false
  1188               #useIndex: false
  1189             )
  1189             )
  1190            #(#LabelSpec
  1190            #(#LabelSpec
  1472      (Menu new fromLiteralArrayEncoding:(MenuEditor menu)) startUp
  1472      (Menu new fromLiteralArrayEncoding:(MenuEditor menu)) startUp
  1473     "
  1473     "
  1474 
  1474 
  1475     <resource: #menu>
  1475     <resource: #menu>
  1476 
  1476 
  1477     ^
  1477     ^ 
  1478      
  1478      #(#Menu
  1479        #(#Menu
  1479         #(
  1480           
  1480          #(#MenuItem
  1481            #(
  1481             #label: '&File'
  1482              #(#MenuItem
  1482             #translateLabel: true
  1483                 #label: '&File'
  1483             #activeHelpKey: #file
  1484                 #activeHelpKey: #file
  1484             #submenu: 
  1485                 #translateLabel: true
  1485            #(#Menu
  1486                 #submenu: 
  1486               #(
  1487                  #(#Menu
  1487                #(#MenuItem
  1488                     
  1488                   #label: 'New'
  1489                      #(
  1489                   #translateLabel: true
  1490                        #(#MenuItem
  1490                   #value: #doNew
  1491                           #label: 'New'
  1491                   #activeHelpKey: #fileNew
  1492                           #value: #doNew
       
  1493                           #translateLabel: true
       
  1494                           #activeHelpKey: #fileNew
       
  1495                       )
       
  1496                        #(#MenuItem
       
  1497                           #label: '-'
       
  1498                       )
       
  1499                        #(#MenuItem
       
  1500                           #label: 'Load...'
       
  1501                           #translateLabel: true
       
  1502                           #value: #doLoad
       
  1503                           #activeHelpKey: #fileLoad
       
  1504                       )
       
  1505                        #(#MenuItem
       
  1506                           #label: '-'
       
  1507                       )
       
  1508                        #(#MenuItem
       
  1509                           #label: 'Save'
       
  1510                           #translateLabel: true
       
  1511                           #value: #doSave
       
  1512                           #activeHelpKey: #fileSave
       
  1513                       )
       
  1514                        #(#MenuItem
       
  1515                           #label: 'Save As...'
       
  1516                           #translateLabel: true
       
  1517                           #value: #doSaveAs
       
  1518                           #activeHelpKey: #fileSaveAs
       
  1519                       )
       
  1520                        #(#MenuItem
       
  1521                           #label: '-'
       
  1522                       )
       
  1523                        #(#MenuItem
       
  1524                           #label: 'Pick A Menu...'
       
  1525                           #translateLabel: true
       
  1526                           #value: #doPickAMenu
       
  1527                           #activeHelpKey: #filePickAMenu
       
  1528                       )
       
  1529                        #(#MenuItem
       
  1530                           #label: '-'
       
  1531                       )
       
  1532                        #(#MenuItem
       
  1533                           #label: 'Browse Class'
       
  1534                           #translateLabel: true
       
  1535                           #value: #doBrowseClass
       
  1536                           #activeHelpKey: #fileBrowseClass
       
  1537                       )
       
  1538                        #(#MenuItem
       
  1539                           #label: '-'
       
  1540                       )
       
  1541                        #(#MenuItem
       
  1542                           #label: 'Exit'
       
  1543                           #translateLabel: true
       
  1544                           #value: #closeRequest
       
  1545                           #activeHelpKey: #fileExit
       
  1546                       )
       
  1547                     ) nil
       
  1548                     nil
       
  1549                 )
  1492                 )
  1550             )
  1493                #(#MenuItem
  1551              #(#MenuItem
  1494                   #label: '-'
  1552                 #label: 'Edit'
       
  1553                 #activeHelpKey: #edit
       
  1554                 #translateLabel: true
       
  1555                 #submenuChannel: #menuEdit
       
  1556             )
       
  1557              #(#MenuItem
       
  1558                 #label: 'Add'
       
  1559                 #activeHelpKey: #add
       
  1560                 #translateLabel: true
       
  1561                 #submenuChannel: #menuAdd
       
  1562             )
       
  1563              #(#MenuItem
       
  1564                 #label: 'Test'
       
  1565                 #activeHelpKey: #test
       
  1566                 #translateLabel: true
       
  1567                 #submenuChannel: #submenuTest
       
  1568             )
       
  1569 "/             #(#MenuItem
       
  1570 "/                #label: 'Settings'
       
  1571 "/                #submenu: 
       
  1572 "/                 #(#Menu
       
  1573 "/                    
       
  1574 "/                     #(
       
  1575 "/                       #(#MenuItem
       
  1576 "/                          #label: 'Fonts'
       
  1577 "/                          #translateLabel: true
       
  1578 "/                          #submenuChannel: #menuFont
       
  1579 "/                      )
       
  1580 "/                    ) nil
       
  1581 "/                    nil
       
  1582 "/                )
       
  1583 "/            )
       
  1584              #(#MenuItem
       
  1585                 #label: 'History'
       
  1586                 #activeHelpKey: #history
       
  1587                 #translateLabel: true
       
  1588                 #submenuChannel: #menuHistory
       
  1589             )
       
  1590              #(#MenuItem
       
  1591                 #label: 'Help'
       
  1592                 #translateLabel: true
       
  1593                 #startGroup: #right
       
  1594                 #submenu: 
       
  1595                  #(#Menu
       
  1596                     
       
  1597                      #(
       
  1598                        #(#MenuItem
       
  1599                           #label: 'Documentation'
       
  1600                           #value: #openHTMLDocument:
       
  1601                           #translateLabel: true
       
  1602                           #activeHelpKey: #helpTutorial
       
  1603                           #argument: 'tools/uipainter/MenuEditor.html'
       
  1604                       )
       
  1605                        #(#MenuItem
       
  1606                           #label: '-'
       
  1607                       )
       
  1608                        #(#MenuItem
       
  1609                           #label: 'Help Tool'
       
  1610                           #value: #openHTMLDocument:
       
  1611                           #translateLabel: true
       
  1612                           #activeHelpKey: #helpHelpTool
       
  1613                           #argument: 'tools/uipainter/HelpTool.html'
       
  1614                       )
       
  1615                        #(#MenuItem
       
  1616                           #label: '-'
       
  1617                       )
       
  1618                        #(#MenuItem
       
  1619                           #label: 'Show Help Texts'
       
  1620                           #translateLabel: true
       
  1621                           #activeHelpKey: #helpShowHelp
       
  1622                           #indication: #showingHelp:
       
  1623                       )
       
  1624                        #(#MenuItem
       
  1625                           #label: '-'
       
  1626                       )
       
  1627                        #(#MenuItem
       
  1628                           #label: 'About MenuEditor...'
       
  1629                           #translateLabel: true
       
  1630                           #value: #openAboutThisApplication
       
  1631                           #activeHelpKey: #aboutThisAppliaction
       
  1632                       )
       
  1633 
       
  1634                     ) nil
       
  1635                     nil
       
  1636                 )
  1495                 )
  1637             )
  1496                #(#MenuItem
  1638           ) nil
  1497                   #label: 'Load...'
  1639           nil
  1498                   #translateLabel: true
       
  1499                   #value: #doLoad
       
  1500                   #activeHelpKey: #fileLoad
       
  1501                 )
       
  1502                #(#MenuItem
       
  1503                   #label: '-'
       
  1504                 )
       
  1505                #(#MenuItem
       
  1506                   #label: 'Save'
       
  1507                   #translateLabel: true
       
  1508                   #value: #doSave
       
  1509                   #activeHelpKey: #fileSave
       
  1510                 )
       
  1511                #(#MenuItem
       
  1512                   #label: 'Save As...'
       
  1513                   #translateLabel: true
       
  1514                   #value: #doSaveAs
       
  1515                   #activeHelpKey: #fileSaveAs
       
  1516                 )
       
  1517                #(#MenuItem
       
  1518                   #label: '-'
       
  1519                 )
       
  1520                #(#MenuItem
       
  1521                   #label: 'Pick A Menu...'
       
  1522                   #translateLabel: true
       
  1523                   #value: #doPickAMenu
       
  1524                   #activeHelpKey: #filePickAMenu
       
  1525                 )
       
  1526                #(#MenuItem
       
  1527                   #label: '-'
       
  1528                 )
       
  1529                #(#MenuItem
       
  1530                   #label: 'Browse Class'
       
  1531                   #translateLabel: true
       
  1532                   #value: #doBrowseClass
       
  1533                   #activeHelpKey: #fileBrowseClass
       
  1534                 )
       
  1535                #(#MenuItem
       
  1536                   #label: '-'
       
  1537                 )
       
  1538                #(#MenuItem
       
  1539                   #label: 'Exit'
       
  1540                   #translateLabel: true
       
  1541                   #value: #closeRequest
       
  1542                   #activeHelpKey: #fileExit
       
  1543                 )
       
  1544                )
       
  1545               nil
       
  1546               nil
       
  1547             )
       
  1548           )
       
  1549          #(#MenuItem
       
  1550             #label: 'Edit'
       
  1551             #translateLabel: true
       
  1552             #activeHelpKey: #edit
       
  1553             #submenuChannel: #menuEdit
       
  1554           )
       
  1555          #(#MenuItem
       
  1556             #label: 'Add'
       
  1557             #translateLabel: true
       
  1558             #activeHelpKey: #add
       
  1559             #submenuChannel: #menuAdd
       
  1560           )
       
  1561          #(#MenuItem
       
  1562             #label: 'Test'
       
  1563             #translateLabel: true
       
  1564             #activeHelpKey: #test
       
  1565             #submenuChannel: #submenuTest
       
  1566           )
       
  1567          #(#MenuItem
       
  1568             #label: 'History'
       
  1569             #translateLabel: true
       
  1570             #activeHelpKey: #history
       
  1571             #submenuChannel: #menuHistory
       
  1572           )
       
  1573          #(#MenuItem
       
  1574             #label: 'Help'
       
  1575             #translateLabel: true
       
  1576             #startGroup: #right
       
  1577             #submenu: 
       
  1578            #(#Menu
       
  1579               #(
       
  1580                #(#MenuItem
       
  1581                   #label: 'Documentation'
       
  1582                   #translateLabel: true
       
  1583                   #value: #openHTMLDocument:
       
  1584                   #activeHelpKey: #helpTutorial
       
  1585                   #argument: 'tools/uipainter/MenuEditor.html'
       
  1586                 )
       
  1587                #(#MenuItem
       
  1588                   #label: '-'
       
  1589                 )
       
  1590                #(#MenuItem
       
  1591                   #label: 'Help Tool'
       
  1592                   #translateLabel: true
       
  1593                   #value: #openHTMLDocument:
       
  1594                   #activeHelpKey: #helpHelpTool
       
  1595                   #argument: 'tools/uipainter/HelpTool.html'
       
  1596                 )
       
  1597                #(#MenuItem
       
  1598                   #label: '-'
       
  1599                 )
       
  1600                #(#MenuItem
       
  1601                   #label: 'Show Help Texts'
       
  1602                   #translateLabel: true
       
  1603                   #activeHelpKey: #helpShowHelp
       
  1604                   #indication: #showingHelp:
       
  1605                 )
       
  1606                #(#MenuItem
       
  1607                   #label: '-'
       
  1608                 )
       
  1609                #(#MenuItem
       
  1610                   #label: 'About MenuEditor...'
       
  1611                   #translateLabel: true
       
  1612                   #value: #openAboutThisApplication
       
  1613                   #activeHelpKey: #aboutThisAppliaction
       
  1614                 )
       
  1615                )
       
  1616               nil
       
  1617               nil
       
  1618             )
       
  1619           )
       
  1620          )
       
  1621         nil
       
  1622         nil
  1640       )
  1623       )
  1641 
       
  1642     "Modified: / 31.7.1998 / 18:19:47 / cg"
       
  1643 !
  1624 !
  1644 
  1625 
  1645 menuAdd
  1626 menuAdd
  1646     "This resource specification was automatically generated
  1627     "This resource specification was automatically generated
  1647      by the MenuEditor of ST/X."
  1628      by the MenuEditor of ST/X."