"

 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 enteredItem buttonEnteredBgColor

		prevFocusView previousPointerGrab previousKeyboardGrab

		relativeGrabOrigin hasImplicitGrap iconIndicationOff

		iconIndicationOn iconRadioGroupOff iconRadioGroupOn'

	classVariableNames:'InitialSelectionQuerySignal DefaultAdornment ShortcutKeyOffset

		DefaultGroupDividerSize DefaultHilightLevel DefaultLevel

		DefaultItemSpace DefaultButtonItemSpace DefaultForegroundColor

		DefaultBackgroundColor DefaultHilightForegroundColor

		DefaultHilightBackgroundColor DefaultDisabledForegroundColor

		DefaultEnteredLevel DefaultSelectionFollowsMouse

		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 rawLabel rawLabelExtent disabledRawLabel

		enableChannel nameKey value label activeHelpKey activeHelpText

		submenuChannel startGroup isButton isVisible hideMenuOnActivated

		indication accessCharacterPosition shortcutKey argument choice

		choiceValue showBusyCursorWhilePerforming accessCharacter font'

	classVariableNames:'HorizontalInset VerticalInset HorizontalButtonInset

		VerticalButtonInset LabelRightOffset'

	poolDictionaries:''

	privateIn:MenuPanel

!

!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:'default icons'!

iconIndicationOff

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self iconIndicationOff inspect

     ImageEditor openOnClass:self andSelector:#iconIndicationOff

    "

    <resource: #image>

    ^Icon

        constantNamed:#'MenuPanel iconIndicationOff'

        ifAbsentPut:[(Depth2Image new) width: 14; height: 14; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUPG???8A0@@B@\@@@ G@@@HA0@@B@\@@@ G@@@HA0@@B@\@@@ G@@@HA0@@B@Z*** @@@@@@b') ; colorMapFromArray:#[255 255 255 127 127 127 170 170 170 0 0 0]; mask:((Depth1Image new) width: 14; height: 14; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??3??O?<??3??O?<??3??O?<??3??O?<??3??@@a') ; yourself); yourself]!

iconIndicationOn

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self iconIndicationOn inspect

     ImageEditor openOnClass:self andSelector:#iconIndicationOn

    "

    <resource: #image>

    ^Icon

        constantNamed:#'MenuPanel iconIndicationOn'

        ifAbsentPut:[(Depth2Image new) width: 14; height: 14; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'****$H@@@MBEUUWP!!UUU4HUUT]BEUTGP!!ETA4HPTA]BD@AWP!!PAU4HUAU]BEUUWP/???4EUUUU@b') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 14; height: 14; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??3??O?<??3??O?<??3??O?<??3??O?<??3??@@a') ; yourself); yourself]!

iconRadioGroupOff

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self iconRadioGroupOff inspect

     ImageEditor openOnClass:self andSelector:#iconRadioGroupOff

    "

    <resource: #image>

    ^Icon

        constantNamed:#'MenuPanel iconRadioGroupOff'

        ifAbsentPut:[(Depth2Image new) width: 15; height: 15; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@AUP@@E@AP@DO?Y@D_?>(AO??;AO???LS???3D???<1O???LS???3A_??3@Z??<0A+?00@C@C0@@O?@@') ; colorMapFromArray:#[0 0 0 85 85 85 170 170 170 255 255 255]; mask:((Depth1Image new) width: 15; height: 15; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A<@_<C?8_?1??O?:??+?>/?:??)?=G?4O< HL@_@') ; yourself); yourself]!

iconRadioGroupOn

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self iconRadioGroupOn inspect

     ImageEditor openOnClass:self andSelector:#iconRadioGroupOn

    "

    <resource: #image>

    ^Icon

        constantNamed:#'MenuPanel iconRadioGroupOn'

        ifAbsentPut:[(Depth2Image new) width: 15; height: 15; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@AUP@@E@AP@DO?Y@D]@^(AL@@;AM@@GLS@@@3D0@@L1L@@CLSP@A3A\@@3@Z4A<0A+?00@C@C0@@O?@@') ; colorMapFromArray:#[0 0 0 85 85 85 170 170 170 255 255 255]; mask:((Depth1Image new) width: 15; height: 15; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A<@_<C?8_?1??O?:??+?>/?:??)?=G?4O< HL@_@') ; yourself); yourself]! !

!MenuPanel class methodsFor:'defaults'!

updateStyleCache

    <resource: #style (#'menu.foregroundColor' #'menu.backgroundColor'

                       #'menu.hilightForegroundColor' #'menu.disabledForegroundColor'

                       #'menu.hilightBackgroundColor' #'menu.buttonEnteredBackgroundColor'

                       #'menu.hilightLevel' #'menu.groupDividerSize'

                       #'menu.itemSpace' #'menu.buttonItemSpace'

                       #'menu.fitFirstPanel' #'menu.buttonActiveLevel'

                       #'menu.buttonPassiveLevel' #'menu.buttonEnteredLevel'

                       #'menu.selectionFollowsMouse' #'menu.enteredLevel'

                       #'viewBackground'

                       #'pullDownMenu.level' #'pullDownMenu.hilightLevel'

                       #'button.disabledForegroundColor' #'button.enteredBackgroundColor'

                       #'button.activeBackgroundColor' #'button.backgroundColor'

                       #'button.lightColor' #'button.shadowColor'

                       #'button.halfLightColor' #'button.halfShadowColor'

                       #'button.passiveLevel' #'button.activeLevel'

                       #'button.edgeStyle')>

    |style styleSheet|

    styleSheet := StyleSheet.

    style      := styleSheet name.

    DefaultForegroundColor := styleSheet colorAt:#'menu.foregroundColor'

                                         default:Color black.

    DefaultBackgroundColor := styleSheet colorAt:#'menu.backgroundColor'

                                         default:DefaultViewBackgroundColor.

    DefaultHilightForegroundColor := styleSheet colorAt:#'menu.hilightForegroundColor'.

    DefaultHilightForegroundColor isNil ifTrue:[

        styleSheet is3D ifTrue:[

            DefaultHilightForegroundColor := DefaultForegroundColor.

        ] ifFalse:[

            DefaultHilightForegroundColor := DefaultBackgroundColor.

        ].

    ].

    DefaultDisabledForegroundColor := styleSheet colorAt:#'menu.disabledForegroundColor'.

    DefaultDisabledForegroundColor isNil ifTrue:[

        DefaultDisabledForegroundColor := styleSheet colorAt:#'button.disabledForegroundColor'

                                                     default:Color darkGray.

    ].

    DefaultHilightBackgroundColor := styleSheet colorAt:#'menu.hilightBackgroundColor'.

    DefaultHilightBackgroundColor isNil ifTrue:[

        style == #motif ifTrue:[

            DefaultHilightBackgroundColor := DefaultBackgroundColor

        ] ifFalse:[

            DefaultHilightBackgroundColor := styleSheet is3D ifFalse:[DefaultForegroundColor]

                                                              ifTrue:[DefaultBackgroundColor]

        ]

    ].

    DefaultLevel := styleSheet at:#'pullDownMenu.level' default:0.

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

        DefaultHilightLevel := 2.

        DefaultLevel        := DefaultLevel + 1.

    ] ifFalse:[

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

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

        ].

        styleSheet is3D ifTrue:[DefaultLevel := DefaultLevel + 1].

    ].

    DefaultGroupDividerSize := styleSheet at:#'menu.groupDividerSize' default:6.

    DefaultItemSpace        := styleSheet at:#'menu.itemSpace' default:2.

    DefaultButtonItemSpace  := styleSheet at:#'menu.buttonItemSpace' default:0.

    DefaultFitFirstPanel    := styleSheet at:#'menu.fitFirstPanel' default:true.

    MenuView updateStyleCache.

    DefaultFont    := MenuView defaultFont.

    RightArrowForm := SelectionInListView rightArrowFormOn:Display.

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

        RightArrowShadowForm := SelectionInListView rightArrowShadowFormOn:Display.

    ] ifFalse:[

        RightArrowShadowForm := nil

    ].

    SelectionFrameBrightColor    := Color white.

    SelectionFrameDarkColor      := Color black.

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

    ButtonActiveLevel isNil ifTrue:[

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

    ].

    ButtonPassiveLevel           :=  styleSheet at:#'menu.buttonPassiveLevel'.

    ButtonPassiveLevel isNil ifTrue:[

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

    ].

    ButtonActiveBackgroundColor  :=  styleSheet at:#'button.activeBackgroundColor' default: DefaultBackgroundColor.

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

    ButtonLightColor             := styleSheet at:#'button.lightColor'.

    ButtonLightColor isNil ifTrue:[

        ButtonLightColor := (ButtonPassiveBackgroundColor averageColorIn:(0@0 corner:7@7)) lightened. "/ Color white

    ].

    ButtonShadowColor            :=  styleSheet at:#'button.shadowColor'.

    ButtonShadowColor isNil ifTrue:[

        ButtonShadowColor := (ButtonPassiveBackgroundColor averageColorIn:(0@0 corner:7@7)) darkened. "/ Color white

    ].

    ButtonHalfLightColor         :=  styleSheet at:#'button.halfLightColor'.

    ButtonHalfShadowColor        :=  styleSheet at:#'button.halfShadowColor'.

    ButtonEdgeStyle              :=  styleSheet at:#'button.edgeStyle'.