"

 COPYRIGHT (c) 1989 by Claus Gittinger

	      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.

"

View subclass:#PullDownMenu

	instanceVariableNames:'receiver menus titles selectors activeMenuNumber

		showSeparatingLines topMargin fgColor bgColor activeFgColor

		activeBgColor onLevel offLevel edgeStyle keepMenu toggleKeep

		raiseTopWhenActivated actions'

	classVariableNames:'DefaultViewBackground DefaultForegroundColor

		DefaultBackgroundColor DefaultHilightForegroundColor

		DefaultHilightBackgroundColor DefaultLevel DefaultHilightLevel

		DefaultShadowColor DefaultLightColor DefaultEdgeStyle

		DefaultKeepMenu DefaultToggleKeep DefaultSeparatingLines'

	poolDictionaries:''

	category:'Views-Menus'

!

!PullDownMenu class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1989 by Claus Gittinger

	      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

"

    PullDown menu provides the top (always visible) part of these menus. 

    It controls display of its menus, which become visible when one of the 

    PullDownMenus entries is pressed.

    A PullDownMenu itself consists of a single row of labels, which activate

    a pulled menu when clicked. Entries may be empty (i.e. have no menu)

    and empty entries may (optionally) also perform some action when clicked.

    An entries selector is used as the key to define and access submenus

    and (for empty entries:) the selector sent to the receiver of the menu.

      menus                   <Collection>    the sub menus

      titles                  <Collection>    the strings in the menu

      selectors               <Collection>    the selectors to send to the menu-

      activeMenuNumber        <Number>        the index of the currently active menu

      showSeparatingLines     <Boolean>       show separating lines between my menu-strings

      topMargin               <Number>        number of pixels at top

      fgColor                 <Color>         fg color to draw passive menu-titles

      bgColor                 <Color>         bg color to draw passive menu-titles

      activeFgColor           <Color>         fg color to draw activated menu-titles

      activeBgColor           <Color>         bg color to draw activated menu-titles

      onLevel                 <Integer>       3D level of entry-buttons when pressed

      offLevel                <Integer>       3D level of entry-buttons when released

      edgeStyle               <Symbol>        how to draw edges

      keepmenu                <Boolean>       if on, pulled menu stays on click,

      toggleKeep              <Boolean>       if on and keepMenu is on,

     except menus, titles and selectors, instvars are usually defined from

     defaults in the styleSheet; you should not care for them.

      pullDownMenuViewBackground              view background Color for the menu bar

      pullDownMenuForegroundColor             foreground drawing color for the menu bar

      pullDownMenuBackgroundColor             background drawing color for the menu bar

      pullDownMenuHilightForegroundColor      active foreground drawing color for the menu bar

      pullDownMenuHilightBackgroundColor      active background drawing color for the menu bar

      pullDownMenuHilightLevel                level (3D only) when active

      pullDownMenuEdgeStyle                   edge style (nil or #soft)

      pullDownMenuKeepMenu                    if true, pulled menu stays open until button

      pullDownMenuToggleKeep                  if true, pulled menu closes when an entry is pressed

      pullDownMenuLevel                       level (3D only)

      pullDownMenuFont                        font to use for the menu bar

      pullDownMenuShowSeparatingLines         if true, lines are drawn between items.

      pullDownMenuRaiseTop                    if true, topview is raised whenever an entry

"

!

examples 

"

	|top menu|

	top := StandardSystemView new.

	top extent:300@300.

	menu := PullDownMenu origin:0.0@0.0 corner:1.0@30 in:top.

	menu labels:#('foo' 'bar').

	menu selectors:#(foo bar).

	menu at:#foo

	     putLabels:#('foo1' 'foo2' 'foo3')

	     selectors:#(foo1 foo2 foo3)

	     receiver:nil.

	menu at:#bar 

	     putLabels:#('bar1' 'bar2' 'bar3')

	     selectors:#(bar1 bar2 bar3)

	     receiver:nil.

	top open

    empty entries are possible as selectable items (with non-nil seletor) ...

	|top menu|

	top := StandardSystemView new.

	top extent:300@300.

	menu := PullDownMenu origin:0.0@0.0 corner:1.0@30 in:top.

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

	menu selectors:#(foo bar baz).

	menu at:#foo

	     putLabels:#('foo1' 'foo2' 'foo3')

	     selectors:#(foo1 foo2 foo3)

	     receiver:nil.

	menu at:#baz 

	     putLabels:#('baz1' 'baz2' 'baz3')

	     selectors:#(baz1 baz2 baz3)

	     receiver:nil.

	top open

    ... or as separators (with nil selector)

	|top menu|

	top := StandardSystemView new.

	top extent:500@200.

	menu := PullDownMenu origin:0.0@0.0 corner:1.0@30 in:top.

	menu labels:#('foo' '    ' 'bar' ' baz' '    ' 'moreFoo' 'moreBar' 'moreBaz').

	menu selectors:#(foo nil bar baz nil moreFoo moreBar moreBaz).

	menu at:#foo

	     putLabels:#('foo1' 'foo2' 'foo3')

	     selectors:#(foo1 foo2 foo3)

	     receiver:nil.

	menu at:#bar 

	     putLabels:#('bar1' 'bar2' 'bar3')

	     selectors:#(bar1 bar2 bar3)

	     receiver:nil.

	menu at:#baz 

	     putLabels:#('baz1' 'baz2' 'baz3')

	     selectors:#(baz1 baz2 baz3)

	     receiver:nil.

	top open

    use the menus default height

	|top menu|

	top := StandardSystemView new.

	top extent:300@300.

	menu := PullDownMenu in:top.

	menu origin:0.0@0.0 corner:1.0@(menu height).

	menu labels:#('foo' 'bar').

	menu selectors:#(foo bar).

	menu at:#foo

	     putLabels:#('foo1' 'foo2' 'foo3')

	     selectors:#(foo1 foo2 foo3)

	     receiver:nil.

	top open

    although you can change the font, colors etc (as shown below)

    you should NOT do it - since if you do so, the styleSheet settings

    are ineffective (which users wont like probably)

    BTW: The styleSheet entries for below are pullDownMenuForegroundColor,

	 pullDownMenuBackgroundColor and pullDownMenuFont

	|top menu|

	top := StandardSystemView new.

	menu := PullDownMenu in:top.

	menu font:(Font family:'courier' size:20).

	menu foregroundColor:Color red.

	menu backgroundColor:Color yellow.

	menu viewBackground:Color yellow.

	menu showSeparatingLines:true.

	menu origin:0.0@0.0 corner:1.0@(menu height).

	menu labels:#('foo' 'bar').

	menu selectors:#(foo bar).

	menu at:#foo

	     putLabels:#('foo1' 'foo2' 'foo3')

	     selectors:#(foo1 foo2 foo3)

	     receiver:nil.

	(menu menuAt:#foo) font:(Font family:'courier' size:36).

	top open

    you can use icons, too ...

	|labels top menu|

	top := StandardSystemView new.

	top extent:300@300.

	menu := PullDownMenu in:top.

	menu origin:0.0@0.0 corner:1.0@(menu height).

	labels := Array with:((Image fromFile:'SmalltalkX.xbm') magnifiedTo:16@16)

			with:'foo'

			with:'bar'.

	menu labels:labels.

	menu selectors:#(about foo bar).

	menu at:#about 

	     putLabels:#('about PullDownMenus')

	     selectors:#(aboutMenus)

	     receiver:nil.

	menu at:#foo

	     putLabels:#('foo1' 'foo2' 'foo3')

	     selectors:#(foo1 foo2 foo3)

	     receiver:nil.

	top open

    a concrete example (combining things described above)

    (using a Plug, since we have no application class here):

	|labels top menu textView appModel|

	appModel := Plug new.

	appModel respondTo:#quit with:[top destroy].

	appModel respondTo:#showAbout with:[self information:'some info here ...'].

	appModel respondTo:#help with:[self information:'some help here ...'].

	top := StandardSystemView new.

	top extent:300@300.

	menu := PullDownMenu in:top.

	menu receiver:appModel.

	menu origin:0.0@0.0 corner:1.0@(menu height).

	textView := ScrollableView forView:(EditTextView new).

	textView origin:0.0@menu height corner:1.0@1.0.

	top addSubView:textView.

	labels := Array with:((Image fromFile:'SmalltalkX.xbm') magnifiedTo:16@16)

			with:'file'

			with:'edit'

			with:'help'.

	menu labels:labels.

	menu selectors:#(about file edit help).

	menu at:#about 

	     putLabels:#('about PullDownMenus')

	     selectors:#(showAbout)

	     receiver:appModel.

	menu at:#file 

	     putLabels:#('quit')

	     selectors:#(quit)

	     receiver:appModel.

	menu at:#edit 

	     putLabels:#('copy' 'cut' 'paste')

	     selectors:#(copySelection cut paste)

	     receiver:textView.

	top open

"

! !

!PullDownMenu class methodsFor:'instance creation'!

labels:titleArray

    "create and return a new PullDownMenu"

    ^ self new labels:titleArray

! !

!PullDownMenu class methodsFor:'defaults'!

updateStyleCache

    "extract values from the styleSheet and cache them in class variables"

    <resource: #style (#pullDownMenuViewBackground #menuViewBackground

                       #pullDownMenuForegroundColor #menuForegroundColor

                       #pullDownMenuBackgroundColor #menuBackgroundColor

                       #pullDownMenuHilightForegroundColor #menuHilightForegroundColor

                       #pullDownMenuHilightBackgroundColor #menuHilightBackgroundColor

                       #pullDownMenuHilightLevel #menuHilightLevel

                       #pullDownMenuEdgeStyle #pullDownMenuKeepMenu

                       #pullDownMenuToggleKeep #pullDownMenuLevel

                       #pullDownMenuFont #menuFont

                       #pullDownMenuSeparatingLines)>

    |styleSheet|

    styleSheet := StyleSheet.

    DefaultViewBackground := styleSheet colorAt:'pullDownMenuViewBackground'.

    DefaultViewBackground isNil ifTrue:[

        DefaultViewBackground := styleSheet colorAt:'menuViewBackground'.

    ].

    DefaultForegroundColor := styleSheet colorAt:'pullDownMenuForegroundColor'.

    DefaultForegroundColor isNil ifTrue:[

        DefaultForegroundColor := styleSheet colorAt:'menuForegroundColor'.

    ].

    DefaultBackgroundColor := styleSheet colorAt:'pullDownMenuBackgroundColor'.

    DefaultBackgroundColor isNil ifTrue:[

        DefaultViewBackground notNil ifTrue:[

            DefaultBackgroundColor := DefaultViewBackground

        ] ifFalse:[

            DefaultBackgroundColor := styleSheet colorAt:'menuBackgroundColor'.

        ]

    ].

    DefaultHilightForegroundColor := styleSheet colorAt:'pullDownMenuHilightForegroundColor'.

    DefaultHilightForegroundColor isNil ifTrue:[

        DefaultHilightForegroundColor := styleSheet colorAt:'menuHilightForegroundColor'.

    ].

    DefaultHilightBackgroundColor := styleSheet colorAt:'pullDownMenuHilightBackgroundColor'.

    DefaultHilightBackgroundColor isNil ifTrue:[

        DefaultHilightBackgroundColor := styleSheet colorAt:'menuHilightBackgroundColor'.

    ].

    DefaultHilightLevel := styleSheet at:'pullDownMenuHilightLevel'.

    DefaultHilightLevel isNil ifTrue:[

        DefaultHilightLevel := styleSheet at:'menuHilightLevel' default:0.

    ].

    DefaultEdgeStyle := styleSheet at:'pullDownMenuEdgeStyle'.

    DefaultKeepMenu := styleSheet at:'pullDownMenuKeepMenu' default:false.

    DefaultToggleKeep := styleSheet at:'pullDownMenuToggleKeep' default:false.

    DefaultLevel := styleSheet at:'pullDownMenuLevel' default:1.

    DefaultFont := styleSheet fontAt:'pullDownMenuFont'.

    DefaultFont isNil ifTrue:[DefaultFont := styleSheet fontAt:'menuFont'].

    DefaultSeparatingLines := styleSheet at:'pullDownMenuSeparatingLines' default:false.

    "

     PullDownMenu updateStyleCache

    "

    "Modified: 1.3.1996 / 13:45:19 / cg"

! !

!PullDownMenu methodsFor:'accessing'!

actionAt:stringOrNumber

    "return the actionBlock associated with stringOrNumber; 

     nil if there is none (but there may be still a selector there)."

    |index|

    actions isNil ifTrue:[^ nil].

    index := self indexOf:stringOrNumber.

    (index == 0) ifTrue:[^ nil].

    ^ actions at:index ifAbsent:nil

    "Modified: 24.3.1996 / 17:09:56 / cg"

    "Created: 17.4.1996 / 20:50:45 / cg"

!

actionAt:stringOrNumber put:aBlock

    "return the actionBlock associated with stringOrNumber; 

     nil if there is none (but there may be still a selector there)."

    |index newActions|

    index := self indexOf:stringOrNumber.

    (index == 0) ifTrue:[^ nil].

    actions size < index ifTrue:[

        newActions := Array new:index.

        newActions replaceFrom:1 to:actions size with:actions.

        actions := newActions

    ].

    actions at:index put:aBlock

    "Modified: 24.3.1996 / 17:09:56 / cg"

    "Created: 17.4.1996 / 20:52:13 / cg"

!

add:label selector:selector

	"add a new title-item at the end.

	 The corresponding label can later be set with #at:putMenu:

	 or #at:putLabels:selectors:..."

	self add:label selector:selector after:nil

!

add:label selector:selector after:indexOrString

        "add a new title-item after an existing item, indexOrString,

         or at the end if the after-arg is nil.

         The corresponding label can later be set with #at:putMenu:

         or #at:putLabels:selectors:..."

        |idx|

        indexOrString isNil ifTrue:[

            idx := titles size

        ] ifFalse:[

            idx := self indexOf:indexOrString.

        ].

        titles isNil ifTrue:[

            menus := Array with:nil.

            titles := Array with:label.

            selectors := Array with:selector.

        ] ifFalse:[

            menus := (menus copyTo:idx) , #(nil) , (menus copyFrom:idx+1).

            titles := ((titles copyTo:idx) copyWith:label) , (titles copyFrom:idx+1).

            selectors := ((selectors copyTo:idx) copyWith:selector) , (selectors copyFrom:idx+1).

        ].

        "

         |top m|

         top := StandardSystemView new.

         m := PullDownMenu in:top.

         m labels:#('file' 'edit').

         m selectors:#(file #edit).

         m add:'help' selector:#help after:#file.

         m at:#help putMenu:(MenuView labels:#('foo' 'bar')

                                   selectors:#(foo bar)

                                    receiver:nil).

         top open

        "

    "Modified: 12.4.1996 / 19:02:47 / cg"

!

at:aString putLabels:labels selector:selector args:args receiver:anObject