--- a/UIPainter.st Wed May 21 12:42:03 1997 +0200
+++ b/UIPainter.st Thu May 22 13:37:44 1997 +0200
@@ -57,40 +57,40 @@
^ #(#Menu #(
#(#MenuItem
#'label:' 'file'
- #'nameKey:' #file
+ #'value:' #file
#'submenu:'
#(#Menu #(
#(#MenuItem
#'label:' 'new'
- #'nameKey:' #removeAll
+ #'value:' #removeAll
)
#(#MenuItem
#'label:' 'from class ...'
- #'nameKey:' #doFromClass
+ #'value:' #doFromClass
)
#(#MenuItem
#'label:' 'pick a view '
- #'nameKey:' #doPickAView
+ #'value:' #doPickAView
)
#(#MenuItem
#'label:' 'load'
- #'nameKey:' #doOpen
+ #'value:' #doOpen
)
#(#MenuItem
#'label:' 'save'
- #'nameKey:' #doSave
+ #'value:' #doSave
)
#(#MenuItem
#'label:' 'save as ...'
- #'nameKey:' #doSaveAs
+ #'value:' #doSaveAs
)
#(#MenuItem
#'label:' 'raise'
- #'nameKey:' #doRaise
+ #'value:' #doRaise
)
#(#MenuItem
#'label:' 'quit'
- #'nameKey:' #closeRequest
+ #'value:' #closeRequest
)
)
#(3 3 1)
@@ -99,36 +99,36 @@
)
#(#MenuItem
#'label:' 'font'
- #'nameKey:' #font
+ #'value:' #font
#'submenu:'
#(#Menu #(
#(#MenuItem
#'label:' 'larger'
- #'nameKey:' #largerFont
+ #'value:' #largerFont
)
#(#MenuItem
#'label:' 'smaller'
- #'nameKey:' #smallerFont
+ #'value:' #smallerFont
)
#(#MenuItem
#'label:' 'normal'
- #'nameKey:' #normalFont
+ #'value:' #normalFont
)
#(#MenuItem
#'label:' 'bold'
- #'nameKey:' #boldFont
+ #'value:' #boldFont
)
#(#MenuItem
#'label:' 'italic'
- #'nameKey:' #italicFont
+ #'value:' #italicFont
)
#(#MenuItem
#'label:' 'bold italic'
- #'nameKey:' #boldItalicFont
+ #'value:' #boldItalicFont
)
#(#MenuItem
#'label:' 'font panel'
- #'nameKey:' #showFontPanel
+ #'value:' #showFontPanel
)
)
#(2 4)
@@ -137,16 +137,16 @@
)
#(#MenuItem
#'label:' 'special'
- #'nameKey:' #special
+ #'value:' #special
#'submenu:'
#(#Menu #(
#(#MenuItem
#'label:' 'group radioButtons'
- #'nameKey:' #groupRadioButtons
+ #'value:' #groupRadioButtons
)
#(#MenuItem
#'label:' 'group enterFields'
- #'nameKey:' #groupEnterFields
+ #'value:' #groupEnterFields
)
)
nil
@@ -155,21 +155,21 @@
)
#(#MenuItem
#'label:' 'misc'
- #'nameKey:' #misc
+ #'value:' #misc
#'submenu:'
#(#Menu #(
#(#MenuItem
#'label:' 'grid'
- #'nameKey:' #grid
+ #'value:' #grid
#'submenu:'
#(#Menu #(
#(#MenuItem
#'label:' '\c show'
- #'nameKey:' #gridShown
+ #'value:' #gridShown
)
#(#MenuItem
#'label:' '\c align'
- #'nameKey:' #gridAlign
+ #'value:' #gridAlign
)
)
nil
@@ -178,20 +178,20 @@
)
#(#MenuItem
#'label:' 'undo'
- #'nameKey:' #undo
+ #'value:' #undo
#'submenu:'
#(#Menu #(
#(#MenuItem
#'label:' 'last'
- #'nameKey:' #undoLast
+ #'value:' #undoLast
)
#(#MenuItem
#'label:' 'menu'
- #'nameKey:' #openUndoMenu
+ #'value:' #openUndoMenu
)
#(#MenuItem
#'label:' 'delete'
- #'nameKey:' #removeUndoHistory
+ #'value:' #removeUndoHistory
)
)
#(2)
@@ -205,24 +205,24 @@
)
#(#MenuItem
#'label:' 'code'
- #'nameKey:' #code
+ #'value:' #code
#'submenu:'
#(#Menu #(
#(#MenuItem
#'label:' 'class & method'
- #'nameKey:' #defineClassAndSelector
+ #'value:' #defineClassAndSelector
)
#(#MenuItem
#'label:' 'install spec'
- #'nameKey:' #doInstallSpec
+ #'value:' #doInstallSpec
)
#(#MenuItem
#'label:' 'install aspects'
- #'nameKey:' #doInstallAspects
+ #'value:' #doInstallAspects
)
#(#MenuItem
#'label:' 'windowSpec'
- #'nameKey:' #doWindowSpec
+ #'value:' #doWindowSpec
)
)
#( 1 2 )
@@ -231,12 +231,12 @@
)
#(#MenuItem
#'label:' 'test'
- #'nameKey:' #test
+ #'value:' #test
#'submenu:'
#(#Menu #(
#(#MenuItem
#'label:' '\c test mode'
- #'nameKey:' #testMode
+ #'value:' #testMode
)
)
nil
@@ -715,7 +715,7 @@
)
#(#MenuPanelSpec
#'name:' 'menuBar1'
- #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 29 0)
+ #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 24 0)
#'menu:' #pullDownMenu
)
)
@@ -812,8 +812,9 @@
objectListMenu
"returns a block which returns the menu
+ !!hack!!
"
- ^ [self painter menu]
+ ^ [ (self painter menu) startUp. nil ].