UIPainter.st
changeset 137 335faeed1663
parent 136 42a2a4494281
child 142 75f927b856f6
equal deleted inserted replaced
136:42a2a4494281 137:335faeed1663
   185                                 #(3 1)
   185                                 #(3 1)
   186                                 nil
   186                                 nil
   187                        )
   187                        )
   188          )
   188          )
   189         #(#MenuItem
   189         #(#MenuItem
   190                 #'label:' 'font'
       
   191                 #'value:' #font
       
   192                 #'submenu:' 
       
   193                         #(#Menu #(
       
   194                                  #(#MenuItem
       
   195                                         #'label:' 'larger'
       
   196                                         #'value:' #largerFont
       
   197                                   )
       
   198                                  #(#MenuItem
       
   199                                         #'label:' 'smaller'
       
   200                                         #'value:' #smallerFont
       
   201                                   )
       
   202                                  #(#MenuItem
       
   203                                         #'label:' 'normal'
       
   204                                         #'value:' #normalFont
       
   205                                   )
       
   206                                  #(#MenuItem
       
   207                                         #'label:' 'bold'
       
   208                                         #'value:' #boldFont
       
   209                                   )
       
   210                                  #(#MenuItem
       
   211                                         #'label:' 'italic'
       
   212                                         #'value:' #italicFont
       
   213                                   )
       
   214                                  #(#MenuItem
       
   215                                         #'label:' 'bold italic'
       
   216                                         #'value:' #boldItalicFont
       
   217                                   )
       
   218                                  #(#MenuItem
       
   219                                         #'label:' 'font panel'
       
   220                                         #'value:' #showFontPanel
       
   221                                  )
       
   222                                 )
       
   223                                 #(2 4)
       
   224                                 nil
       
   225                         )
       
   226          )
       
   227         #(#MenuItem
       
   228                 #'label:' 'special'
   190                 #'label:' 'special'
   229                 #'value:' #special
   191                 #'value:' #special
   230                 #'submenu:' 
   192                 #'submenu:' 
   231                         #(#Menu #(
   193                         #(#Menu #(
   232                                 #(#MenuItem
   194                                 #(#MenuItem
   251                                         #'label:' 'grid'
   213                                         #'label:' 'grid'
   252                                         #'value:' #grid
   214                                         #'value:' #grid
   253                                         #'submenu:'
   215                                         #'submenu:'
   254                                                 #(#Menu #(
   216                                                 #(#Menu #(
   255                                                         #(#MenuItem
   217                                                         #(#MenuItem
   256                                                                 #'label:' '\c show'
   218                                                                 #'label:' 'show'
   257                                                                 #'value:' #gridShown
   219                                                                 #'indication:' #gridShown:
   258                                                          )
   220                                                          )
   259                                                         #(#MenuItem
   221                                                         #(#MenuItem
   260                                                                 #'label:' '\c align'
   222                                                                 #'label:' 'align'
   261                                                                 #'value:' #gridAlign
   223                                                                 #'indication:' #gridAlign:
   262                                                          )
   224                                                          )
   263                                                         )
   225                                                         )
   264                                                         nil
   226                                                         nil
   265                                                         nil
   227                                                         nil
   266                                                  )
   228                                                  )
   327                 #'nameKey:' #test
   289                 #'nameKey:' #test
   328                 #'value:' #test
   290                 #'value:' #test
   329                 #'submenu:'
   291                 #'submenu:'
   330                         #(#Menu #(
   292                         #(#Menu #(
   331                                 #(#MenuItem
   293                                 #(#MenuItem
   332                                         #'label:' '\c test mode'
   294                                         #'label:' 'test mode'
   333                                         #'value:' #testMode
   295                                         #'indication:' #testMode:
   334                                  )
   296                                  )
   335                                 )
   297                                 )
   336                                 nil
   298                                 nil
   337                                 nil
   299                                 nil
   338                           )
   300                           )
   492           #'window:' 
   454           #'window:' 
   493            #(#WindowSpec
   455            #(#WindowSpec
   494               #'name:' 'uIPainterView'
   456               #'name:' 'uIPainterView'
   495               #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
   457               #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
   496               #'label:' 'Tree-View'
   458               #'label:' 'Tree-View'
   497               #'bounds:' #(#Rectangle 0 0 460 390)
   459               #'bounds:' #(#Rectangle 0 0 478 429)
   498           )
   460           )
   499           #'component:' 
   461           #'component:' 
   500            #(#SpecCollection
   462            #(#SpecCollection
   501               #'collection:' 
   463               #'collection:' 
   502                #(
   464                #(
   503                  #(#ViewSpec
       
   504                     #'name:' 'view1'
       
   505                     #'layout:' #(#LayoutFrame 0 0.0 29 0.0 0 1.0 0 1.0)
       
   506                     #'component:' 
       
   507                      #(#SpecCollection
       
   508                         #'collection:' 
       
   509                          #(
       
   510                            #(#SequenceViewSpec
       
   511                               #'name:' 'selectionInList'
       
   512                               #'layout:' #(#LayoutFrame 0 0.0 40 0.0 0 0.35 0 1.0)
       
   513                               #'enableChannel:' #enableChannel
       
   514                               #'menu:' #objectListMenu
       
   515                               #'model:' #objectList
       
   516                               #'callbacksSpec:' 
       
   517                                #(#UIEventCallbackSubSpec
       
   518                                   #'doubleClickSelector:' #doubleClick
       
   519                               )
       
   520                               #'hasHorizontalScrollBar:' true
       
   521                               #'hasVerticalScrollBar:' true
       
   522                               #'miniScrollerHorizontal:' false
       
   523                               #'miniScrollerVertical:' false
       
   524                               #'isMultiSelect:' true
       
   525                           )
       
   526                            #(#PanelViewSpec
       
   527                               #'name:' 'panelViewButtons'
       
   528                               #'layout:' #(#LayoutFrame -130 1.0 0 0.0 0 1.0 35 0.0)
       
   529                               #'component:' 
       
   530                                #(#SpecCollection
       
   531                                   #'collection:' 
       
   532                                    #(
       
   533                                      #(#ActionButtonSpec
       
   534                                         #'name:' 'moveLeft'
       
   535                                         #'label:' ''
       
   536                                         #'translateLabel:' true
       
   537                                         #'labelChannel:' #'LABELb_moveLeft.xbm'
       
   538                                         #'defaultable:' true
       
   539                                         #'model:' #moveSelectionLeft
       
   540                                         #'isTriggerOnDown:' true
       
   541                                         #'enableChannel:' #enableChannel
       
   542                                         #'autoRepeat:' true
       
   543                                         #'extent:' #(#Point 26 24)
       
   544                                     )
       
   545                                      #(#ActionButtonSpec
       
   546                                         #'name:' 'moveRight'
       
   547                                         #'label:' ''
       
   548                                         #'translateLabel:' true
       
   549                                         #'labelChannel:' #'LABELb_moveRight.xbm'
       
   550                                         #'defaultable:' true
       
   551                                         #'model:' #moveSelectionRight
       
   552                                         #'isTriggerOnDown:' true
       
   553                                         #'enableChannel:' #enableChannel
       
   554                                         #'autoRepeat:' true
       
   555                                         #'extent:' #(#Point 26 24)
       
   556                                     )
       
   557                                      #(#ActionButtonSpec
       
   558                                         #'name:' 'moveUp'
       
   559                                         #'label:' ''
       
   560                                         #'translateLabel:' true
       
   561                                         #'labelChannel:' #'LABELb_moveUp.xbm'
       
   562                                         #'defaultable:' true
       
   563                                         #'model:' #moveSelectionUp
       
   564                                         #'isTriggerOnDown:' true
       
   565                                         #'enableChannel:' #enableChannel
       
   566                                         #'autoRepeat:' true
       
   567                                         #'extent:' #(#Point 26 24)
       
   568                                     )
       
   569                                      #(#ActionButtonSpec
       
   570                                         #'name:' 'moveDown'
       
   571                                         #'label:' ''
       
   572                                         #'translateLabel:' true
       
   573                                         #'labelChannel:' #'LABELb_moveDown.xbm'
       
   574                                         #'defaultable:' true
       
   575                                         #'model:' #moveSelectionDown
       
   576                                         #'isTriggerOnDown:' true
       
   577                                         #'enableChannel:' #enableChannel
       
   578                                         #'autoRepeat:' true
       
   579                                         #'extent:' #(#Point 26 24)
       
   580                                     )
       
   581                                   )
       
   582                               )
       
   583                               #'level:' 1
       
   584                               #'horizontalLayout:' #fitSpace
       
   585                               #'verticalLayout:' #fitSpace
       
   586                               #'horizontalSpace:' 4
       
   587                               #'verticalSpace:' 4
       
   588                           )
       
   589                            #(#NoteBookViewSpec
       
   590                               #'name:' 'propertyView'
       
   591                               #'layout:' #(#LayoutFrame 0 0.35 40 0.0 0 1.0 -30 1.0)
       
   592                               #'model:' #tabModel
       
   593                               #'menu:' #tabList
       
   594                               #'tabWidget:' #Window
       
   595                               #'direction:' #top
       
   596                               #'useIndex:' false
       
   597                               #'fitLastRow:' true
       
   598                               #'moveSelectedRow:' true
       
   599                               #'enableChannel:' #enableChannel
       
   600                               #'level:' 0
       
   601                               #'canvas:' #noteBookView
       
   602                           )
       
   603                            #(#HorizontalPanelViewSpec
       
   604                               #'name:' 'hrzPanelViewOk'
       
   605                               #'layout:' #(#LayoutFrame 0 0.35 -30 1.0 0 1.0 0 1.0)
       
   606                               #'component:' 
       
   607                                #(#SpecCollection
       
   608                                   #'collection:' 
       
   609                                    #(
       
   610                                      #(#ActionButtonSpec
       
   611                                         #'name:' 'cancelButton'
       
   612                                         #'label:' 'cancel'
       
   613                                         #'model:' #cancel
       
   614                                         #'isTriggerOnDown:' false
       
   615                                         #'enableChannel:' #modifiedChannel
       
   616                                         #'autoRepeat:' false
       
   617                                         #'extent:' #(#Point 145 24)
       
   618                                     )
       
   619                                      #(#ActionButtonSpec
       
   620                                         #'name:' 'acceptButton'
       
   621                                         #'label:' 'ok'
       
   622                                         #'model:' #accept
       
   623                                         #'isTriggerOnDown:' false
       
   624                                         #'enableChannel:' #modifiedChannel
       
   625                                         #'autoRepeat:' false
       
   626                                         #'extent:' #(#Point 145 24)
       
   627                                     )
       
   628                                   )
       
   629                               )
       
   630                               #'level:' 0
       
   631                               #'horizontalLayout:' #fitSpace
       
   632                               #'verticalLayout:' #fitSpace
       
   633                               #'horizontalSpace:' 3
       
   634                               #'verticalSpace:' 3
       
   635                           )
       
   636                            #(#MenuPanelSpec
       
   637                               #'name:' 'menuPanel1'
       
   638                               #'layout:' #(#LayoutFrame 0 0.0 0 0.0 -226 1.0 25 0)
       
   639                               #'menu:' #menuAlignment
       
   640                               #'showSeparatingLines:' true
       
   641                               #'verticalLayout:' false
       
   642                               #'fitFirstPanel:' true
       
   643                           )
       
   644                         )
       
   645                     )
       
   646                 )
       
   647                  #(#MenuPanelSpec
   465                  #(#MenuPanelSpec
   648                     #'name:' 'menuBar1'
   466                     #'name:' 'menuPullDown'
   649                     #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 24 0)
   467                     #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 24 0)
   650                     #'menu:' #menuPullDown
   468                     #'menu:' #menuPullDown
   651                     #'showSeparatingLines:' false
   469                     #'showSeparatingLines:' false
   652                     #'verticalLayout:' false
   470                     #'verticalLayout:' false
   653                     #'fitFirstPanel:' true
   471                     #'fitFirstPanel:' true
       
   472                 )
       
   473                  #(#MenuPanelSpec
       
   474                     #'name:' 'menuAlignment'
       
   475                     #'layout:' #(#LayoutFrame 0 0.0 29 0 233 0 54 0)
       
   476                     #'menu:' #menuAlignment
       
   477                     #'showSeparatingLines:' true
       
   478                     #'verticalLayout:' false
       
   479                     #'fitFirstPanel:' true
       
   480                 )
       
   481                  #(#PanelViewSpec
       
   482                     #'name:' 'panelViewButtons'
       
   483                     #'layout:' #(#LayoutFrame -125 1.0 25 0.0 0 1.0 58 0.0)
       
   484                     #'component:' 
       
   485                      #(#SpecCollection
       
   486                         #'collection:' 
       
   487                          #(
       
   488                            #(#ActionButtonSpec
       
   489                               #'name:' 'moveLeft'
       
   490                               #'label:' ''
       
   491                               #'translateLabel:' true
       
   492                               #'labelChannel:' #'LABELb_moveLeft.xbm'
       
   493                               #'defaultable:' true
       
   494                               #'model:' #moveSelectionLeft
       
   495                               #'isTriggerOnDown:' true
       
   496                               #'enableChannel:' #enableChannel
       
   497                               #'autoRepeat:' false
       
   498                               #'extent:' #(#Point 26 24)
       
   499                           )
       
   500                            #(#ActionButtonSpec
       
   501                               #'name:' 'moveRight'
       
   502                               #'label:' ''
       
   503                               #'translateLabel:' true
       
   504                               #'labelChannel:' #'LABELb_moveRight.xbm'
       
   505                               #'defaultable:' true
       
   506                               #'model:' #moveSelectionRight
       
   507                               #'isTriggerOnDown:' true
       
   508                               #'enableChannel:' #enableChannel
       
   509                               #'autoRepeat:' false
       
   510                               #'extent:' #(#Point 26 24)
       
   511                           )
       
   512                            #(#ActionButtonSpec
       
   513                               #'name:' 'moveUp'
       
   514                               #'label:' ''
       
   515                               #'translateLabel:' true
       
   516                               #'labelChannel:' #'LABELb_moveUp.xbm'
       
   517                               #'defaultable:' true
       
   518                               #'model:' #moveSelectionUp
       
   519                               #'isTriggerOnDown:' true
       
   520                               #'enableChannel:' #enableChannel
       
   521                               #'autoRepeat:' false
       
   522                               #'extent:' #(#Point 26 24)
       
   523                           )
       
   524                            #(#ActionButtonSpec
       
   525                               #'name:' 'moveDown'
       
   526                               #'label:' ''
       
   527                               #'translateLabel:' true
       
   528                               #'labelChannel:' #'LABELb_moveDown.xbm'
       
   529                               #'defaultable:' true
       
   530                               #'model:' #moveSelectionDown
       
   531                               #'isTriggerOnDown:' true
       
   532                               #'enableChannel:' #enableChannel
       
   533                               #'autoRepeat:' false
       
   534                               #'extent:' #(#Point 26 24)
       
   535                           )
       
   536                         )
       
   537                     )
       
   538                     #'level:' 1
       
   539                     #'horizontalLayout:' #fitSpace
       
   540                     #'verticalLayout:' #fitSpace
       
   541                     #'horizontalSpace:' 4
       
   542                     #'verticalSpace:' 4
       
   543                 )
       
   544                  #(#SequenceViewSpec
       
   545                     #'name:' 'objectTree'
       
   546                     #'layout:' #(#LayoutFrame 0 0.0 59 0.0 0 0.35 0 1.0)
       
   547                     #'enableChannel:' #enableChannel
       
   548                     #'menu:' #objectListMenu
       
   549                     #'tabable:' false
       
   550                     #'model:' #objectList
       
   551                     #'hasHorizontalScrollBar:' true
       
   552                     #'hasVerticalScrollBar:' true
       
   553                     #'miniScrollerHorizontal:' true
       
   554                     #'miniScrollerVertical:' false
       
   555                     #'isMultiSelect:' true
       
   556                     #'doubleClickSelector:' #doubleClick
       
   557                     #'useIndex:' true
       
   558                 )
       
   559                  #(#NoteBookViewSpec
       
   560                     #'name:' 'noteBook'
       
   561                     #'layout:' #(#LayoutFrame 0 0.35 59 0.0 0 1.0 -30 1.0)
       
   562                     #'enableChannel:' #enableChannel
       
   563                     #'menu:' #tabList
       
   564                     #'style:' 
       
   565                      #(#FontDescription
       
   566                         #fixed #medium
       
   567                         #roman #'10'
       
   568                     )
       
   569                     #'model:' #tabModel
       
   570                     #'tabWidget:' #Window
       
   571                     #'useIndex:' false
       
   572                     #'level:' 0
       
   573                     #'canvas:' #noteBookView
       
   574                 )
       
   575                  #(#HorizontalPanelViewSpec
       
   576                     #'name:' 'modifyPanel'
       
   577                     #'layout:' #(#LayoutFrame 0 0.35 -30 1.0 0 1.0 0 1.0)
       
   578                     #'component:' 
       
   579                      #(#SpecCollection
       
   580                         #'collection:' 
       
   581                          #(
       
   582                            #(#ActionButtonSpec
       
   583                               #'name:' 'cancelButton'
       
   584                               #'label:' 'cancel'
       
   585                               #'model:' #cancel
       
   586                               #'isTriggerOnDown:' false
       
   587                               #'enableChannel:' #modifiedChannel
       
   588                               #'autoRepeat:' false
       
   589                               #'extent:' #(#Point 151 24)
       
   590                           )
       
   591                            #(#ActionButtonSpec
       
   592                               #'name:' 'acceptButton'
       
   593                               #'label:' 'ok'
       
   594                               #'model:' #accept
       
   595                               #'isTriggerOnDown:' false
       
   596                               #'enableChannel:' #modifiedChannel
       
   597                               #'autoRepeat:' false
       
   598                               #'extent:' #(#Point 151 24)
       
   599                           )
       
   600                         )
       
   601                     )
       
   602                     #'level:' 0
       
   603                     #'horizontalLayout:' #fitSpace
       
   604                     #'verticalLayout:' #fitSpace
       
   605                     #'horizontalSpace:' 3
       
   606                     #'verticalSpace:' 3
   654                 )
   607                 )
   655               )
   608               )
   656           )
   609           )
   657       )
   610       )
   658 ! !
   611 ! !
   684     "cancel all changes and read back attributes from current view
   637     "cancel all changes and read back attributes from current view
   685     "
   638     "
   686     specView specEdited:(self painter specFor:currentView).
   639     specView specEdited:(self painter specFor:currentView).
   687     layoutTool forView:currentView.
   640     layoutTool forView:currentView.
   688     self modifiedChannel value:false.
   641     self modifiedChannel value:false.
   689 ! !
   642 !
   690 
       
   691 !UIPainter methodsFor:'aspects'!
       
   692 
   643 
   693 doubleClick
   644 doubleClick
   694     objectList selectGroup
   645     objectList selectGroup
   695 !
   646 ! !
       
   647 
       
   648 !UIPainter methodsFor:'aspects'!
   696 
   649 
   697 enableChannel
   650 enableChannel
   698     "true if modifications are allowed otherwise running test
   651     "true if modifications are allowed otherwise running test
   699     "
   652     "
   700   ^ self painter enableChannel
   653   ^ self painter enableChannel
   776 
   729 
   777     |holder|
   730     |holder|
   778 
   731 
   779     (holder := builder bindingAt:#tabList) isNil ifTrue:[
   732     (holder := builder bindingAt:#tabList) isNil ifTrue:[
   780         builder aspectAt:#tabList put:(holder :=  ValueHolder new).
   733         builder aspectAt:#tabList put:(holder :=  ValueHolder new).
       
   734         holder value:#( '  ' '  ' ).
   781     ].
   735     ].
   782     ^ holder
   736     ^ holder
   783 !
   737 !
   784 
   738 
   785 tabModel
   739 tabModel