UIPainter.st
changeset 2531 dcfbf5a1e032
parent 2529 07c7e9ba97ee
child 2540 fd4d8522f02c
equal deleted inserted replaced
2530:73efe0a84f4b 2531:dcfbf5a1e032
  1358           icon: defaultIcon
  1358           icon: defaultIcon
  1359         )
  1359         )
  1360         component: 
  1360         component: 
  1361        (SpecCollection
  1361        (SpecCollection
  1362           collection: (
  1362           collection: (
  1363             (ViewSpec
  1363            (ViewSpec
  1364               name: 'ToolBar'
  1364               name: 'mainPanel'
  1365               layout: (LayoutFrame 0 0 0 0 0 1 32 0)
  1365               layout: (LayoutFrame 0 0 0 0 0 1 -24 1)
  1366               visibilityChannel: toolBarVisibleHolder
       
  1367               component: 
  1366               component: 
  1368              (SpecCollection
  1367              (SpecCollection
  1369                 collection: (
  1368                 collection: (
  1370                  (ActionButtonSpec
  1369                  (ViewSpec
  1371                     label: 'hideToolBarIcon'
  1370                     name: 'ToolBar'
  1372                     name: 'HideToolBarButton'
  1371                     layout: (LayoutFrame 0 0 0 0 0 1 32 0)
  1373                     layout: (LayoutFrame 0 0 0 0 13 0 0 1)
       
  1374                     activeHelpKey: hideToolBar
       
  1375                     hasCharacterOrientedLabel: false
       
  1376                     translateLabel: true
       
  1377                     model: hideToolbar
       
  1378                     postBuildCallback: hideToolBarButtonCreated:
       
  1379                   )
       
  1380                  (MenuPanelSpec
       
  1381                     name: 'menuToolbarView'
       
  1382                     layout: (LayoutFrame 13 0.0 0 0.0 0 1.0 0 1.0)
       
  1383                     visibilityChannel: toolBarVisibleHolder
  1372                     visibilityChannel: toolBarVisibleHolder
  1384                     menu: menuToolbar
       
  1385                     textDefault: true
       
  1386                   )
       
  1387                  )
       
  1388               )
       
  1389             ) 
       
  1390 
       
  1391             (ViewSpec
       
  1392               name: 'EditToolBar'
       
  1393               layout: (LayoutFrame 0 0 32 0 0 1 64 0)
       
  1394               visibilityChannel: editToolBarVisibleHolder
       
  1395               component: 
       
  1396              (SpecCollection
       
  1397                 collection: (
       
  1398                  (ActionButtonSpec
       
  1399                     label: 'hideToolBarIcon'
       
  1400                     name: 'HideEditToolBarButton'
       
  1401                     layout: (LayoutFrame 0 0 0 0 13 0 0 1)
       
  1402                     activeHelpKey: hideToolBar
       
  1403                     hasCharacterOrientedLabel: false
       
  1404                     translateLabel: true
       
  1405                     model: hideEditToolbar
       
  1406                     postBuildCallback: hideToolBarButtonCreated:
       
  1407                   )
       
  1408                  (MenuPanelSpec
       
  1409                     name: 'EditToolBar1'
       
  1410                     layout: (LayoutFrame 13 0.0 0 0.0 0 1.0 0 1.0)
       
  1411                     visibilityChannel: editToolBarVisibleHolder
       
  1412                     menu: editToolbar
       
  1413                     textDefault: true
       
  1414                   )
       
  1415                  )
       
  1416 
       
  1417               )
       
  1418             )
       
  1419 
       
  1420            (VariableHorizontalPanelSpec
       
  1421               name: 'Painter'
       
  1422               layout: (LayoutFrame 0 0.0 64 0.0 0 1.0 -24 1.0)
       
  1423               level: 1
       
  1424               component: 
       
  1425              (SpecCollection
       
  1426                 collection: (
       
  1427                  (ArbitraryComponentSpec
       
  1428                     name: 'treeView'
       
  1429                     tabable: true
       
  1430                     menu: menuEdit
       
  1431                     hasHorizontalScrollBar: true
       
  1432                     hasVerticalScrollBar: true
       
  1433                     miniScrollerHorizontal: true
       
  1434                     miniScrollerVertical: true
       
  1435                     hasBorder: false
       
  1436                     component: treeView
       
  1437                   )
       
  1438                  (ViewSpec
       
  1439                     name: 'specHolderView'
       
  1440                     level: 0
       
  1441                     component: 
  1373                     component: 
  1442                    (SpecCollection
  1374                    (SpecCollection
  1443                       collection: (
  1375                       collection: (
       
  1376                        (ActionButtonSpec
       
  1377                           label: 'hideToolBarIcon'
       
  1378                           name: 'HideToolBarButton'
       
  1379                           layout: (LayoutFrame 0 0 0 0 13 0 0 1)
       
  1380                           activeHelpKey: hideToolBar
       
  1381                           hasCharacterOrientedLabel: false
       
  1382                           translateLabel: true
       
  1383                           model: hideToolbar
       
  1384                           postBuildCallback: hideToolBarButtonCreated:
       
  1385                         )
  1444                        (MenuPanelSpec
  1386                        (MenuPanelSpec
  1445                           name: 'menuToolbar2View'
  1387                           name: 'menuToolbarView'
  1446                           layout: (LayoutFrame 2 0.0 2 0 -2 1.0 32 0)
  1388                           layout: (LayoutFrame 13 0.0 0 0.0 0 1.0 0 1.0)
       
  1389                           visibilityChannel: toolBarVisibleHolder
       
  1390                           menu: menuToolbar
       
  1391                           textDefault: true
       
  1392                         )
       
  1393                        )
       
  1394                      
       
  1395                     )
       
  1396                   )
       
  1397                  (ViewSpec
       
  1398                     name: 'EditToolBar'
       
  1399                     layout: (LayoutFrame 0 0 30 0 0 1 62 0)
       
  1400                     visibilityChannel: editToolBarVisibleHolder
       
  1401                     component: 
       
  1402                    (SpecCollection
       
  1403                       collection: (
       
  1404                        (ActionButtonSpec
       
  1405                           label: 'hideToolBarIcon'
       
  1406                           name: 'HideEditToolBarButton'
       
  1407                           layout: (LayoutFrame 0 0 0 0 13 0 0 1)
       
  1408                           activeHelpKey: hideToolBar
       
  1409                           hasCharacterOrientedLabel: false
       
  1410                           translateLabel: true
       
  1411                           model: hideEditToolbar
       
  1412                           postBuildCallback: hideToolBarButtonCreated:
       
  1413                         )
       
  1414                        (MenuPanelSpec
       
  1415                           name: 'EditToolBar1'
       
  1416                           layout: (LayoutFrame 13 0.0 0 0.0 0 1.0 0 1.0)
       
  1417                           visibilityChannel: editToolBarVisibleHolder
       
  1418                           menu: editToolbar
       
  1419                           textDefault: true
       
  1420                         )
       
  1421                        )
       
  1422                      
       
  1423                     )
       
  1424                   )
       
  1425                  (VariableHorizontalPanelSpec
       
  1426                     name: 'Painter'
       
  1427                     layout: (LayoutFrame 0 0.0 60 0.0 0 1.0 0 1.0)
       
  1428                     level: 1
       
  1429                     component: 
       
  1430                    (SpecCollection
       
  1431                       collection: (
       
  1432                        (ArbitraryComponentSpec
       
  1433                           name: 'treeView'
       
  1434                           tabable: true
       
  1435                           menu: menuEdit
       
  1436                           hasHorizontalScrollBar: true
       
  1437                           hasVerticalScrollBar: true
       
  1438                           miniScrollerHorizontal: true
       
  1439                           miniScrollerVertical: true
       
  1440                           hasBorder: false
       
  1441                           component: treeView
       
  1442                         )
       
  1443                        (ViewSpec
       
  1444                           name: 'specHolderView'
  1447                           level: 0
  1445                           level: 0
  1448                           tabable: true
       
  1449                           menu: menuToolbar2
       
  1450                         )
       
  1451                        (NoteBookViewSpec
       
  1452                           name: 'noteBook'
       
  1453                           layout: (LayoutFrame 2 0.0 32 0.0 -2 1.0 -28 1.0)
       
  1454                           level: 0
       
  1455                           enableChannel: enableChannel
       
  1456                           tabable: true
       
  1457                           model: tabModel
       
  1458                           menu: tabList
       
  1459                           translateLabel: true
       
  1460                           canvas: noteBookView
       
  1461                         )
       
  1462                        (HorizontalPanelViewSpec
       
  1463                           name: 'HorizontalPanel1'
       
  1464                           layout: (LayoutFrame 2 0 -26 1 -2 1 -2 1)
       
  1465                           horizontalLayout: fit
       
  1466                           verticalLayout: fit
       
  1467                           horizontalSpace: 3
       
  1468                           verticalSpace: 3
       
  1469                           reverseOrderIfOKAtLeft: true
       
  1470                           component: 
  1446                           component: 
  1471                          (SpecCollection
  1447                          (SpecCollection
  1472                             collection: (
  1448                             collection: (
  1473                              (ActionButtonSpec
  1449                              (MenuPanelSpec
  1474                                 label: 'Cancel'
  1450                                 name: 'menuToolbar2View'
  1475                                 name: 'cancelButton'
  1451                                 layout: (LayoutFrame 2 0.0 2 0 -2 1.0 32 0)
  1476                                 activeHelpKey: commitCancel
  1452                                 level: 0
       
  1453                                 tabable: true
       
  1454                                 menu: menuToolbar2
       
  1455                               )
       
  1456                              (NoteBookViewSpec
       
  1457                                 name: 'noteBook'
       
  1458                                 layout: (LayoutFrame 2 0.0 32 0.0 -2 1.0 -28 1.0)
       
  1459                                 level: 0
       
  1460                                 enableChannel: enableChannel
       
  1461                                 tabable: true
       
  1462                                 model: tabModel
       
  1463                                 menu: tabList
  1477                                 translateLabel: true
  1464                                 translateLabel: true
  1478                                 tabable: true
  1465                                 canvas: noteBookView
  1479                                 model: cancel
       
  1480                                 enableChannel: modifiedChannel
       
  1481                                 extent: (Point 201 24)
       
  1482                               )
  1466                               )
  1483                              (ActionButtonSpec
  1467                              (HorizontalPanelViewSpec
  1484                                 label: 'OK'
  1468                                 name: 'HorizontalPanel1'
  1485                                 name: 'acceptButton'
  1469                                 layout: (LayoutFrame 2 0 -26 1 -2 1 -2 1)
  1486                                 activeHelpKey: commitOK
  1470                                 horizontalLayout: fit
  1487                                 translateLabel: true
  1471                                 verticalLayout: fit
  1488                                 tabable: true
  1472                                 horizontalSpace: 3
  1489                                 model: accept
  1473                                 verticalSpace: 3
  1490                                 enableChannel: modifiedChannel
  1474                                 reverseOrderIfOKAtLeft: true
  1491                                 extent: (Point 201 24)
  1475                                 component: 
       
  1476                                (SpecCollection
       
  1477                                   collection: (
       
  1478                                    (ActionButtonSpec
       
  1479                                       label: 'Cancel'
       
  1480                                       name: 'cancelButton'
       
  1481                                       activeHelpKey: commitCancel
       
  1482                                       translateLabel: true
       
  1483                                       tabable: true
       
  1484                                       model: cancel
       
  1485                                       enableChannel: modifiedChannel
       
  1486                                       extent: (Point 146 24)
       
  1487                                     )
       
  1488                                    (ActionButtonSpec
       
  1489                                       label: 'OK'
       
  1490                                       name: 'acceptButton'
       
  1491                                       activeHelpKey: commitOK
       
  1492                                       translateLabel: true
       
  1493                                       tabable: true
       
  1494                                       model: accept
       
  1495                                       enableChannel: modifiedChannel
       
  1496                                       extent: (Point 146 24)
       
  1497                                     )
       
  1498                                    )
       
  1499                                  
       
  1500                                 )
  1492                               )
  1501                               )
  1493                              )
  1502                              )
  1494                            
  1503                            
  1495                           )
  1504                           )
  1496                         )
  1505                         )
  1497                        )
  1506                        )
  1498                      
  1507                      
  1499                     )
  1508                     )
       
  1509                     handles: (Any 0.5 1.0)
  1500                   )
  1510                   )
  1501                  )
  1511                  )
  1502                
  1512                
  1503               )
  1513               )
  1504               handles: (Any 0.318868 1.0)
       
  1505             )
  1514             )
  1506            (UISubSpecification
  1515            (UISubSpecification
  1507               name: 'infoBarSubSpec'
  1516               name: 'infoBarSubSpec'
  1508               layout: (LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
  1517               layout: (LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
  1509               level: 1
  1518               level: 1
  1510               majorKey: ToolApplicationModel
  1519               majorKey: ToolApplicationModel
  1511               minorKey: windowSpecForInfoBar
  1520               minorKey: windowSpecForInfoBar
  1512             )
  1521             )
  1513            )
  1522            )
  1514          
  1523          
  1515       )
  1524         )
  1516       )
  1525       )
  1517 ! !
  1526 ! !
  1518 
  1527 
  1519 !UIPainter class methodsFor:'menu specs'!
  1528 !UIPainter class methodsFor:'menu specs'!
  1520 
  1529