"Chris Uppal" <
[hidden email]> wrote in message
news:44d6f93d$0$632$
[hidden email]...
> Marco
>
>> i want to change the labels of my menuBar. I´ve tried this, but it
>> won´t work.
>> > self view menuBar items first text: 'test'
>
> I don't know if it is still necessary, but when I last tried to do this,
> the
> only way I found of changing the top level entries of a menu bar was to
> recreate it completely; not even re-using the old entries, but creating
> new
> copies of everything.
>
I'm not sure that was ever necessary, but it certainly isn't in D6. File in
the attached, and then execute 'TestShell show' if you then click on the
File menu, its text should change to 'Wibble'.
Regards
Blair
----------------------
Shell subclass: #TestShell
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
classInstanceVariableNames: ''!
!TestShell methodsFor!
queryCommand: aCommandQuery
aCommandQuery commandSymbol == #file ifTrue: [aCommandQuery text:
'Wibble']! !
!TestShell categoriesFor: #queryCommand:!public! !
!TestShell class methodsFor!
resource_Default_view
^#(#'!!STL' 3 788558 10 ##(Smalltalk.STBViewProxy) 8
##(Smalltalk.ShellView) 98 27 0 0 98 2 27131905 131073 416 0 524550
##(Smalltalk.ColorRef) 8 4278190080 0 551 0 0 0 416 0 234 256 98 0 0 461638
4 ##(Smalltalk.MenuBar) 0 16 98 1 265030 4 ##(Smalltalk.Menu) 0 16 98 0 8
'&File' 8 #file 134217729 0 0 37973 0 0 8 '' 0 134217729 0 0 0 0 0 0 0 0 1 0
0 0 0 1 0 0 983302 ##(Smalltalk.MessageSequence) 202 208 98 2 721670
##(Smalltalk.MessageSend) 8 #createAt:extent: 98 2 328198
##(Smalltalk.Point) 2799 21 834 1201 801 416 770 8 #updateMenuBar 544 416
983302 ##(Smalltalk.WINDOWPLACEMENT) 8 #[44 0 0 0 0 0 0 0 0 0 0 0 255 255
255 255 255 255 255 255 255 255 255 255 255 255 255 255 119 5 0 0 10 0 0 0
207 7 0 0 154 1 0 0] 98 0 834 193 193 0 27 )! !
!TestShell class categoriesFor:
#resource_Default_view!public!resources-views! !
Locked
