"

 COPYRIGHT (c) 1997 by eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

SimpleView subclass:#MenuPanel

	instanceVariableNames:'adornment shadowView mapTime mustRearrange superMenu

		shortKeyInset selection items groupSizes receiver enableChannel

		menuHolder enabled onLevel offLevel fgColor activeFgColor

		lastActiveMenu activeBgColor disabledFgColor groupDividerSize

		itemSpace fitFirstPanel rightArrow rightArrowShadow

		selectionFrameBrightColor selectionFrameDarkColor

		buttonLightColor buttonShadowColor buttonHalfLightColor

		buttonHalfShadowColor lastButtonSelected enteredItem

		buttonEnteredBgColor'

	classVariableNames:'InitialSelectionQuerySignal DefaultAdornment

		DefaultGroupDividerSize DefaultHilightLevel DefaultLevel

		DefaultItemSpace DefaultButtonItemSpace DefaultForegroundColor

		DefaultBackgroundColor DefaultHilightForegroundColor

		DefaultHilightBackgroundColor DefaultDisabledForegroundColor

		DefaultFitFirstPanel RightArrowForm RightArrowShadowForm

		SelectionFrameBrightColor SelectionFrameDarkColor

		ButtonActiveLevel ButtonPassiveLevel ButtonActiveBackgroundColor

		ButtonPassiveBackgroundColor ButtonLightColor ButtonShadowColor

		ButtonHalfLightColor ButtonHalfShadowColor ButtonEdgeStyle Images

		LigthenedImages ButtonEnteredBackgroundColor ButtonEnteredLevel'

	poolDictionaries:''

	category:'Views-Menus'

!

Object subclass:#Item

	instanceVariableNames:'layout menuPanel subMenu adornment rawLabel disabledRawLabel

		enableChannel nameKey accessCharacterPosition value label

		rawImage activeHelpKey submenuChannel startGroup isButton

		isVisible'

	classVariableNames:'HorizontalInset VerticalInset HorizontalButtonInset

		VerticalButtonInset LabelRightOffset ShortcutKeyOffset

		IndicatorOn IndicatorOff'

	poolDictionaries:''

	privateIn:MenuPanel

!

Object subclass:#Adornment

	instanceVariableNames:'indication accessCharacterPosition shortcutKey argument choice

		choiceValue'

	classVariableNames:''

	poolDictionaries:''

	privateIn:MenuPanel::Item

!

!MenuPanel class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1997 by eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    a menu panel used for both pull-down-menus and pop-up-menus.

    not yet finished MenuPanel class - this will eventually replace

    most of the MenuView and PopUpMenu stuff.

    (and hopefully be ST-80 compatible ...)

    To create a menu, there exists a MenuEditor which will generate

    a menu specification.

    [author:]

	Claus Atzkern

    [see also:]

	Menu

	MenuItem

	MenuEditor

"

!

examples

"

    start as PullDownMenu

										[exBegin]

    |top subView mview desc s1 s2 s3 img lbs labels|

    top := StandardSystemView new.

    mview := MenuPanel in:top.

    labels := #( 'foo' 'bar' 'baz' 'test' 'claus' ).

    mview level:2.

    mview verticalLayout:false.

    img := Image fromFile:'bitmaps/SBrowser.xbm'.

    lbs := Array with:'foo' with:'bar' with:img with:'baz' with:'test' with:'ludwig'.

    mview labels:lbs.

    mview shortcutKeyAt:2 put:#Cut.

    mview accessCharacterPositionAt:1 put:1.

    mview accessCharacterPositionAt:2 put:2.

    mview enabledAt:5 put:false.

    mview groupSizes:#( 2 2 ).

    s1 := MenuPanel labels:labels.

    s1 accessCharacterPositionAt:1 put:1.

    s1 accessCharacterPositionAt:2 put:2.

    s1 groupSizes:#( 2 2 ).

    s2 := MenuPanel labels:#( '1' nil '2' '-' '3' '=' '4' ' ' '5' ).

    s3 := MenuPanel labels:lbs.

    s1 subMenuAt:2 put:s2.

    s1 subMenuAt:3 put:(MenuPanel labels:lbs).

    s2 subMenuAt:3 put:s3.

    s3 subMenuAt:3 put:(MenuPanel labels:labels).

    s3 shortcutKeyAt:3 put:$q.

    mview subMenuAt:1 put:s1.

    mview subMenuAt:4 put:(MenuPanel labels:lbs).

    (mview subMenuAt:4) shortcutKeyAt:3 put:#Copy.

    s1 shortcutKeyAt:1 put:#Copy.

    s1 shortcutKeyAt:3 put:#Paste.

    mview subMenuAt:2 put:(MenuPanel labels:labels).

    top extent:(mview preferredExtent).

    top open.

										[exEnd]

    start as PopUpMenu

										[exBegin]

    |subView mview desc s1 s2 s3 img lbs labels|

    mview := MenuPanel new.

    labels := #( 'foo' 'bar' 'baz' ).

    mview level:2.

    img := Image fromFile:'bitmaps/SBrowser.xbm'.

    lbs := Array with:'foo' with:'bar' with:img with:'baz' with:'test'.

    mview labels:lbs.

    s1 := MenuPanel labels:labels.

    s2 := MenuPanel labels:#( '1' nil '2' '-' '3' '=' '4' ' ' '5' ).

    s3 := MenuPanel labels:lbs.

    s1 subMenuAt:2 put:s2.

    s1 subMenuAt:3 put:(MenuPanel labels:lbs).

    s2 subMenuAt:3 put:s3.

    s3 subMenuAt:3 put:(MenuPanel labels:labels).

    s3 shortcutKeyAt:3 put:$q.

    mview subMenuAt:1 put:s1.

    mview subMenuAt:4 put:(MenuPanel labels:lbs).

    (mview subMenuAt:4) shortcutKeyAt:3 put:#Copy.

    s1 shortcutKeyAt:1 put:#Copy.

    s1 shortcutKeyAt:3 put:#Paste.

    mview subMenuAt:2 put:(MenuPanel labels:labels).

    mview startUp

										[exEnd]

    start from menu spec

										[exBegin]

    |menu|

    menu := MenuPanel menu:

	#(#Menu #( #(#MenuItem 

		    #label: 'File' 

		    #submenu:

		      #(#Menu #(#(#MenuItem #label: 'quit' #value:#quit )     

				 (#MenuItem 

				    #label: 'edit' 

				    #submenu:

				      #(#Menu #( #(#MenuItem #label: 'edit'  #value:#edit )     

						 #(#MenuItem #label: 'close' #value:#close)     

					       )

					       nil

					       nil

				       )     

				  )

				 #(#MenuItem #label: 'help' #value:#help )     

			       )

			       nil

			       nil

		       )     

		 ) 

		#(#MenuItem #label: 'Inspect' #value:#inspectMenu ) 

		#(#MenuItem #label: 'Bar' 

			    #submenu:

			       #(#Menu #( #(#MenuItem #label: 'bar 1' #value:#bar1 )     

					  #(#MenuItem #label: 'bar 2' #value:#bar2 )     

					)

					nil

					nil

				)     

		 ) 

	      ) 

	      #( 2 )

	      nil

	 ) decodeAsLiteralArray.  

    menu verticalLayout:false.

    Transcript showCR:(menu startUp).

										[exEnd]

"

! !

!MenuPanel class methodsFor:'instance creation'!

fromSpec:aSpec

    ^ self fromSpec:aSpec receiver:nil

!

fromSpec:aSpec receiver:aReceiver

    |menu|

    aSpec notNil ifTrue:[

	menu := Menu new.

	menu fromLiteralArrayEncoding:aSpec.

    ].

  ^ self menu:menu receiver:aReceiver

!

labels:labels

    ^ self labels:labels nameKeys:nil receiver:nil

!

labels:labels nameKeys:nameKeys

    ^ self labels:labels nameKeys:nameKeys receiver:nil

!

labels:labels nameKeys:nameKeys receiver:aReceiver

    |mview|

    mview := self menu:nil receiver:aReceiver.

    mview labels:labels.

    mview nameKeys:nameKeys.

  ^ mview

!

labels:labels receiver:aReceiver

    ^ self labels:labels nameKeys:nil receiver:aReceiver

!

menu:aMenu

    ^ self menu:aMenu receiver:nil

!

menu:aMenu receiver:aReceiver

    |mview|

    mview := self new.

    mview menu:aMenu.

"/ a menu itself may contain a receiver

"/ thus we do not overwrite the receiver

    aReceiver notNil ifTrue:[

	mview receiver:aReceiver

    ].

  ^ mview

! !

!MenuPanel class methodsFor:'class initialization'!

initialize

    "

    DefaultAdornment := nil.

    self initialize

    "

    InitialSelectionQuerySignal isNil ifTrue:[

	InitialSelectionQuerySignal := QuerySignal new.

    ].

    DefaultAdornment isNil ifTrue:[

	DefaultAdornment := IdentityDictionary new

	    at:#showSeparatingLines put:false;

	    at:#showGroupDivider    put:true;

	    at:#verticalLayout      put:true;

	    at:#item                put:nil;

	    at:#value               put:nil;

	    yourself

    ].

    "Modified: / 15.1.1998 / 23:08:31 / stefan"

!

preSnapshot

    "remove all resources

    "

    Images := nil.

    LigthenedImages := nil.

! !

!MenuPanel class methodsFor:'defaults'!

updateStyleCache

    |menuStyle style font|

    MenuView updateStyleCache.        

    menuStyle := MenuView styleSheet.

    menuStyle isNil ifTrue:[

        "make sure that style sheet is present"

        MenuView updateStyleCache.        

        menuStyle := MenuView styleSheet.

    ].

    style := menuStyle name.

    DefaultForegroundColor := menuStyle colorAt:'pullDownMenu.foregroundColor'.

    DefaultForegroundColor isNil ifTrue:[

        DefaultForegroundColor := menuStyle colorAt:'menu.foregroundColor'

                                            default:Color black.

    ].

    (style == #motif or:[style == #iris]) ifTrue:[

        DefaultBackgroundColor        := DefaultViewBackgroundColor.

        DefaultHilightForegroundColor := DefaultForegroundColor.

        DefaultHilightLevel     := 2.

        DefaultLevel            := 0.

    ] ifFalse:[

        (DefaultHilightLevel := menuStyle at:'pullDownMenu.hilightLevel') isNil ifTrue:[

            DefaultHilightLevel := menuStyle at:'menu.hilightLevel' default:0.

        ].

        DefaultLevel           := menuStyle at:'pullDownMenu.level' default:1.

        DefaultBackgroundColor := menuStyle colorAt:'pullDownMenu.backgroundColor'.

        DefaultBackgroundColor isNil ifTrue:[

            DefaultBackgroundColor := menuStyle colorAt:'menu.backgroundColor'

                                                default:DefaultViewBackgroundColor.

        ].

        DefaultHilightForegroundColor := menuStyle colorAt:'pullDownMenu.hilightForegroundColor'.

        DefaultHilightForegroundColor isNil ifTrue:[

            DefaultHilightForegroundColor := menuStyle colorAt:'menu.hilightForegroundColor'

                                                       default:DefaultBackgroundColor

        ].

    ].

    DefaultDisabledForegroundColor := menuStyle colorAt:'menu.disabledForegroundColor'.

    DefaultDisabledForegroundColor isNil ifTrue:[

        DefaultDisabledForegroundColor := menuStyle colorAt:'button.disabledForegroundColor'

                                                    default:Color darkGray.

    ].

    style == #motif ifTrue:[

        DefaultHilightBackgroundColor := DefaultBackgroundColor

    ] ifFalse:[

        DefaultHilightBackgroundColor := menuStyle colorAt:'pullDownMenu.hilightBackgroundColor'.

        DefaultHilightBackgroundColor isNil ifTrue:[

            DefaultHilightBackgroundColor := menuStyle colorAt:'menu.hilightBackgroundColor'

                                                       default:(menuStyle is3D ifFalse:[DefaultForegroundColor] ifTrue:[DefaultBackgroundColor]).

        ]

    ].

    DefaultGroupDividerSize := menuStyle at:'menu.groupDividerSize' default:6.

    DefaultItemSpace        := menuStyle at:'menu.itemSpace' default:0.

    DefaultButtonItemSpace  := menuStyle at:'menu.buttonItemSpace' default:0.

    DefaultFitFirstPanel    := menuStyle at:'menu.fitFirstPanel' default:true.

    MenuView updateStyleCache.

    DefaultFont := MenuView defaultFont.

"/    font := menuStyle fontAt:'pullDownMenu.font'.

"/    font isNil ifTrue:[font := menuStyle fontAt:'menu.font'].

"/    DefaultFont := font.

    RightArrowForm := SelectionInListView rightArrowFormOn:Display.

    (style ~~ #os2 and:[style ~~ #win95]) ifTrue:[

        RightArrowShadowForm := SelectionInListView rightArrowShadowFormOn:Display.

    ] ifFalse:[

        RightArrowShadowForm := nil

    ].

    SelectionFrameBrightColor    := Color white.

    SelectionFrameDarkColor      := Color black.

    ButtonActiveLevel            :=  menuStyle at:'menu.buttonActiveLevel' default:(menuStyle is3D ifTrue:[-2] ifFalse:[0]).

    ButtonActiveLevel isNil ifTrue:[

        ButtonActiveLevel        :=  menuStyle at:'button.activeLevel' default:(menuStyle is3D ifTrue:[-2] ifFalse:[0]).

    ].

    ButtonPassiveLevel           :=  menuStyle at:'menu.buttonPassiveLevel'.

    ButtonPassiveLevel isNil ifTrue:[

        ButtonPassiveLevel       :=  menuStyle at:'button.passiveLevel' default:(menuStyle is3D ifTrue:[2] ifFalse:[0]).

    ].

    ButtonActiveBackgroundColor  :=  menuStyle at:'button.activeBackgroundColor' default: DefaultBackgroundColor.

    ButtonPassiveBackgroundColor := (menuStyle at:'button.backgroundColor') ? (menuStyle at:'viewBackground') ? DefaultBackgroundColor.

    ButtonLightColor             := (menuStyle at:'button.lightColor') ? Color white.

    ButtonShadowColor            := menuStyle at:'button.shadowColor' default:(style == #next ifTrue:[Color black] ifFalse:[Color gray]).

    ButtonHalfLightColor         :=  menuStyle at:'button.halfLightColor'.

    ButtonHalfShadowColor        :=  menuStyle at:'button.halfShadowColor'.

    ButtonEdgeStyle              :=  menuStyle at:'button.edgeStyle'.

    ButtonEnteredBackgroundColor := menuStyle colorAt:'menu.buttonEnteredBackgroundColor'.

    ButtonEnteredBackgroundColor isNil ifTrue:[

        ButtonEnteredBackgroundColor := menuStyle colorAt:'button.enteredBackgroundColor'

                                                  default:ButtonPassiveBackgroundColor.

    ].

    ButtonEnteredLevel := menuStyle at:'menu.buttonEnteredLevel' default:ButtonPassiveLevel.

    Item updateStyleCache

    "

     self updateStyleCache

    "

    "Modified: / 10.9.1998 / 21:40:32 / cg"

! !

!MenuPanel class methodsFor:'image registration'!

image:anImage onDevice:aDevice

"

Images := nil

"

    |deviceImages image|

    anImage device == aDevice ifTrue:[

        ^ anImage

    ].

    Images isNil ifTrue:[ Images := IdentityDictionary new ].

    (deviceImages := Images at:aDevice ifAbsent:nil) isNil ifTrue:[

        Images at:aDevice put:(deviceImages := Dictionary new)

    ].

    (image := deviceImages at:anImage ifAbsent:nil) notNil ifTrue:[

        ^ image

    ].

    image := anImage copy onDevice:aDevice.

    image clearMaskedPixels.

    deviceImages at:anImage put:image.

    ^ image

    "Modified: / 29.9.1998 / 12:02:41 / cg"

!

lightenedImage:anImage onDevice:aDevice

"

LigthenedImages := nil

"

    |deviceImages image|

    LigthenedImages isNil ifTrue:[ LigthenedImages := IdentityDictionary new ].

    (deviceImages := LigthenedImages at:aDevice ifAbsent:nil) isNil ifTrue:[

	LigthenedImages at:aDevice put:(deviceImages := Dictionary new)

    ].

    (image := deviceImages at:anImage ifAbsent:nil) notNil ifTrue:[

	^ image

    ].

    ((anImage respondsTo:#colorMap) and:[anImage colorMap notNil]) ifTrue:[

	image := anImage copy lightened onDevice:aDevice.

	image clearMaskedPixels.

    ] ifFalse:[

	image := self image:anImage onDevice:aDevice

    ].

    deviceImages at:anImage put:image.

    ^ image

! !

!MenuPanel class methodsFor:'private'!