UIPainter.st
changeset 114 93cd25c62a68
parent 109 0b53bd128667
child 118 bc196200ea8b
equal deleted inserted replaced
113:1854c2e61c4e 114:93cd25c62a68
    55 
    55 
    56 menuSpec
    56 menuSpec
    57     ^ #(#Menu #(
    57     ^ #(#Menu #(
    58         #(#MenuItem
    58         #(#MenuItem
    59                 #'label:' 'file'
    59                 #'label:' 'file'
    60                 #'nameKey:' #file
    60                 #'value:' #file
    61                 #'submenu:'
    61                 #'submenu:'
    62                         #(#Menu #(
    62                         #(#Menu #(
    63                                  #(#MenuItem
    63                                  #(#MenuItem
    64                                         #'label:' 'new'
    64                                         #'label:' 'new'
    65                                         #'nameKey:' #removeAll
    65                                         #'value:' #removeAll
    66                                   )
    66                                   )
    67                                  #(#MenuItem
    67                                  #(#MenuItem
    68                                         #'label:' 'from class ...'
    68                                         #'label:' 'from class ...'
    69                                         #'nameKey:' #doFromClass
    69                                         #'value:' #doFromClass
    70                                   )
    70                                   )
    71                                  #(#MenuItem
    71                                  #(#MenuItem
    72                                         #'label:' 'pick a view '
    72                                         #'label:' 'pick a view '
    73                                         #'nameKey:' #doPickAView
    73                                         #'value:' #doPickAView
    74                                   )
    74                                   )
    75                                  #(#MenuItem
    75                                  #(#MenuItem
    76                                         #'label:' 'load'
    76                                         #'label:' 'load'
    77                                         #'nameKey:' #doOpen
    77                                         #'value:' #doOpen
    78                                   )
    78                                   )
    79                                  #(#MenuItem
    79                                  #(#MenuItem
    80                                         #'label:' 'save'
    80                                         #'label:' 'save'
    81                                         #'nameKey:' #doSave
    81                                         #'value:' #doSave
    82                                   )
    82                                   )
    83                                  #(#MenuItem
    83                                  #(#MenuItem
    84                                         #'label:' 'save as ...'
    84                                         #'label:' 'save as ...'
    85                                         #'nameKey:' #doSaveAs
    85                                         #'value:' #doSaveAs
    86                                   )
    86                                   )
    87                                  #(#MenuItem
    87                                  #(#MenuItem
    88                                         #'label:' 'raise'
    88                                         #'label:' 'raise'
    89                                         #'nameKey:' #doRaise
    89                                         #'value:' #doRaise
    90                                   )
    90                                   )
    91                                  #(#MenuItem
    91                                  #(#MenuItem
    92                                         #'label:' 'quit'
    92                                         #'label:' 'quit'
    93                                         #'nameKey:' #closeRequest
    93                                         #'value:' #closeRequest
    94                                   )
    94                                   )
    95                                  )
    95                                  )
    96                                 #(3 3 1)
    96                                 #(3 3 1)
    97                                 nil
    97                                 nil
    98                        )
    98                        )
    99          )
    99          )
   100         #(#MenuItem
   100         #(#MenuItem
   101                 #'label:' 'font'
   101                 #'label:' 'font'
   102                 #'nameKey:' #font
   102                 #'value:' #font
   103                 #'submenu:' 
   103                 #'submenu:' 
   104                         #(#Menu #(
   104                         #(#Menu #(
   105                                  #(#MenuItem
   105                                  #(#MenuItem
   106                                         #'label:' 'larger'
   106                                         #'label:' 'larger'
   107                                         #'nameKey:' #largerFont
   107                                         #'value:' #largerFont
   108                                   )
   108                                   )
   109                                  #(#MenuItem
   109                                  #(#MenuItem
   110                                         #'label:' 'smaller'
   110                                         #'label:' 'smaller'
   111                                         #'nameKey:' #smallerFont
   111                                         #'value:' #smallerFont
   112                                   )
   112                                   )
   113                                  #(#MenuItem
   113                                  #(#MenuItem
   114                                         #'label:' 'normal'
   114                                         #'label:' 'normal'
   115                                         #'nameKey:' #normalFont
   115                                         #'value:' #normalFont
   116                                   )
   116                                   )
   117                                  #(#MenuItem
   117                                  #(#MenuItem
   118                                         #'label:' 'bold'
   118                                         #'label:' 'bold'
   119                                         #'nameKey:' #boldFont
   119                                         #'value:' #boldFont
   120                                   )
   120                                   )
   121                                  #(#MenuItem
   121                                  #(#MenuItem
   122                                         #'label:' 'italic'
   122                                         #'label:' 'italic'
   123                                         #'nameKey:' #italicFont
   123                                         #'value:' #italicFont
   124                                   )
   124                                   )
   125                                  #(#MenuItem
   125                                  #(#MenuItem
   126                                         #'label:' 'bold italic'
   126                                         #'label:' 'bold italic'
   127                                         #'nameKey:' #boldItalicFont
   127                                         #'value:' #boldItalicFont
   128                                   )
   128                                   )
   129                                  #(#MenuItem
   129                                  #(#MenuItem
   130                                         #'label:' 'font panel'
   130                                         #'label:' 'font panel'
   131                                         #'nameKey:' #showFontPanel
   131                                         #'value:' #showFontPanel
   132                                  )
   132                                  )
   133                                 )
   133                                 )
   134                                 #(2 4)
   134                                 #(2 4)
   135                                 nil
   135                                 nil
   136                         )
   136                         )
   137          )
   137          )
   138         #(#MenuItem
   138         #(#MenuItem
   139                 #'label:' 'special'
   139                 #'label:' 'special'
   140                 #'nameKey:' #special
   140                 #'value:' #special
   141                 #'submenu:' 
   141                 #'submenu:' 
   142                         #(#Menu #(
   142                         #(#Menu #(
   143                                 #(#MenuItem
   143                                 #(#MenuItem
   144                                         #'label:' 'group radioButtons'
   144                                         #'label:' 'group radioButtons'
   145                                         #'nameKey:' #groupRadioButtons
   145                                         #'value:' #groupRadioButtons
   146                                  ) 
   146                                  ) 
   147                                 #(#MenuItem
   147                                 #(#MenuItem
   148                                         #'label:' 'group enterFields'
   148                                         #'label:' 'group enterFields'
   149                                         #'nameKey:' #groupEnterFields
   149                                         #'value:' #groupEnterFields
   150                                  )
   150                                  )
   151                                 )
   151                                 )
   152                                 nil
   152                                 nil
   153                                 nil
   153                                 nil
   154                         )
   154                         )
   155          )
   155          )
   156         #(#MenuItem
   156         #(#MenuItem
   157                 #'label:' 'misc'
   157                 #'label:' 'misc'
   158                 #'nameKey:' #misc
   158                 #'value:' #misc
   159                 #'submenu:'
   159                 #'submenu:'
   160                         #(#Menu #(
   160                         #(#Menu #(
   161                                 #(#MenuItem
   161                                 #(#MenuItem
   162                                         #'label:' 'grid'
   162                                         #'label:' 'grid'
   163                                         #'nameKey:' #grid
   163                                         #'value:' #grid
   164                                         #'submenu:'
   164                                         #'submenu:'
   165                                                 #(#Menu #(
   165                                                 #(#Menu #(
   166                                                         #(#MenuItem
   166                                                         #(#MenuItem
   167                                                                 #'label:' '\c show'
   167                                                                 #'label:' '\c show'
   168                                                                 #'nameKey:' #gridShown
   168                                                                 #'value:' #gridShown
   169                                                          )
   169                                                          )
   170                                                         #(#MenuItem
   170                                                         #(#MenuItem
   171                                                                 #'label:' '\c align'
   171                                                                 #'label:' '\c align'
   172                                                                 #'nameKey:' #gridAlign
   172                                                                 #'value:' #gridAlign
   173                                                          )
   173                                                          )
   174                                                         )
   174                                                         )
   175                                                         nil
   175                                                         nil
   176                                                         nil
   176                                                         nil
   177                                                  )
   177                                                  )
   178                                  )
   178                                  )
   179                                 #(#MenuItem
   179                                 #(#MenuItem
   180                                         #'label:' 'undo'
   180                                         #'label:' 'undo'
   181                                         #'nameKey:' #undo
   181                                         #'value:' #undo
   182                                         #'submenu:'
   182                                         #'submenu:'
   183                                                 #(#Menu #(
   183                                                 #(#Menu #(
   184                                                         #(#MenuItem
   184                                                         #(#MenuItem
   185                                                                 #'label:' 'last'
   185                                                                 #'label:' 'last'
   186                                                                 #'nameKey:' #undoLast
   186                                                                 #'value:' #undoLast
   187                                                          )
   187                                                          )
   188                                                         #(#MenuItem
   188                                                         #(#MenuItem
   189                                                                 #'label:' 'menu'
   189                                                                 #'label:' 'menu'
   190                                                                 #'nameKey:' #openUndoMenu
   190                                                                 #'value:' #openUndoMenu
   191                                                          )
   191                                                          )
   192                                                         #(#MenuItem
   192                                                         #(#MenuItem
   193                                                                 #'label:' 'delete'
   193                                                                 #'label:' 'delete'
   194                                                                 #'nameKey:' #removeUndoHistory
   194                                                                 #'value:' #removeUndoHistory
   195                                                          )
   195                                                          )
   196                                                         )
   196                                                         )
   197                                                         #(2)
   197                                                         #(2)
   198                                                         nil
   198                                                         nil
   199                                                  )
   199                                                  )
   203                                 nil
   203                                 nil
   204                                )
   204                                )
   205          )
   205          )
   206         #(#MenuItem
   206         #(#MenuItem
   207                 #'label:' 'code'
   207                 #'label:' 'code'
   208                 #'nameKey:' #code
   208                 #'value:' #code
   209                 #'submenu:'
   209                 #'submenu:'
   210                         #(#Menu #(
   210                         #(#Menu #(
   211                                 #(#MenuItem
   211                                 #(#MenuItem
   212                                         #'label:' 'class & method'
   212                                         #'label:' 'class & method'
   213                                         #'nameKey:' #defineClassAndSelector
   213                                         #'value:' #defineClassAndSelector
   214                                  )
   214                                  )
   215                                  #(#MenuItem
   215                                  #(#MenuItem
   216                                         #'label:' 'install spec'
   216                                         #'label:' 'install spec'
   217                                         #'nameKey:' #doInstallSpec
   217                                         #'value:' #doInstallSpec
   218                                   )
   218                                   )
   219                                  #(#MenuItem
   219                                  #(#MenuItem
   220                                         #'label:' 'install aspects'
   220                                         #'label:' 'install aspects'
   221                                         #'nameKey:' #doInstallAspects
   221                                         #'value:' #doInstallAspects
   222                                   )
   222                                   )
   223                                  #(#MenuItem
   223                                  #(#MenuItem
   224                                         #'label:' 'windowSpec'
   224                                         #'label:' 'windowSpec'
   225                                         #'nameKey:' #doWindowSpec
   225                                         #'value:' #doWindowSpec
   226                                    )
   226                                    )
   227                                 )
   227                                 )
   228                                 #( 1 2 )
   228                                 #( 1 2 )
   229                                 nil
   229                                 nil
   230                           )
   230                           )
   231          )
   231          )
   232         #(#MenuItem
   232         #(#MenuItem
   233                 #'label:' 'test'
   233                 #'label:' 'test'
   234                 #'nameKey:' #test
   234                 #'value:' #test
   235                 #'submenu:'
   235                 #'submenu:'
   236                         #(#Menu #(
   236                         #(#Menu #(
   237                                 #(#MenuItem
   237                                 #(#MenuItem
   238                                         #'label:' '\c test mode'
   238                                         #'label:' '\c test mode'
   239                                         #'nameKey:' #testMode
   239                                         #'value:' #testMode
   240                                  )
   240                                  )
   241                                 )
   241                                 )
   242                                 nil
   242                                 nil
   243                                 nil
   243                                 nil
   244                           )
   244                           )
   713                         )
   713                         )
   714                     )
   714                     )
   715                 )
   715                 )
   716                  #(#MenuPanelSpec
   716                  #(#MenuPanelSpec
   717                     #'name:' 'menuBar1'
   717                     #'name:' 'menuBar1'
   718                     #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 29 0)
   718                     #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 24 0)
   719                     #'menu:' #pullDownMenu
   719                     #'menu:' #pullDownMenu
   720                 )
   720                 )
   721               )
   721               )
   722           )
   722           )
   723       )
   723       )
   810     ^ objectList
   810     ^ objectList
   811 !
   811 !
   812 
   812 
   813 objectListMenu
   813 objectListMenu
   814     "returns a block which returns the menu
   814     "returns a block which returns the menu
       
   815      !!hack!!
   815     "
   816     "
   816     ^ [self painter menu]
   817     ^ [ (self painter menu) startUp. nil ].
   817 
   818 
   818 
   819 
   819 
   820 
   820 !
   821 !
   821 
   822