MenuView.st
changeset 512 fc5b4dc11409
parent 509 a3e8887ff457
child 517 fc4ed55dcd35
equal deleted inserted replaced
511:d8e810ae853e 512:fc5b4dc11409
    11 "
    11 "
    12 
    12 
    13 SelectionInListView subclass:#MenuView
    13 SelectionInListView subclass:#MenuView
    14 	instanceVariableNames:'selectors args receiver enableFlags disabledFgColor onOffFlags
    14 	instanceVariableNames:'selectors args receiver enableFlags disabledFgColor onOffFlags
    15 		subMenus subMenuShown superMenu checkColor lineLevel lineInset
    15 		subMenus subMenuShown superMenu checkColor lineLevel lineInset
    16 		masterView hilightStyle needResize hideOnRelease sizeFixed
    16 		masterView needResize hideOnRelease sizeFixed
    17 		shortKeys maxShortKeyStringLen'
    17 		shortKeys maxShortKeyStringLen'
    18 	classVariableNames:'DefaultCheckColor DefaultViewBackground DefaultForegroundColor
    18 	classVariableNames:'DefaultCheckColor DefaultViewBackground DefaultForegroundColor
    19 		DefaultBackgroundColor DefaultDisabledForegroundColor
    19 		DefaultBackgroundColor DefaultDisabledForegroundColor
    20 		DefaultHilightForegroundColor DefaultHilightBackgroundColor
    20 		DefaultHilightForegroundColor DefaultHilightBackgroundColor
    21 		DefaultHilightLevel DefaultHilightStyle DefaultHilightFrameColor
    21 		DefaultHilightLevel DefaultHilightStyle DefaultHilightFrameColor
  1585     DefaultHilightLevel notNil ifTrue:[
  1585     DefaultHilightLevel notNil ifTrue:[
  1586         hilightLevel := DefaultHilightLevel
  1586         hilightLevel := DefaultHilightLevel
  1587     ] ifFalse:[
  1587     ] ifFalse:[
  1588         hilightLevel := 0.
  1588         hilightLevel := 0.
  1589     ].
  1589     ].
  1590     hilightStyle := DefaultHilightStyle.
  1590     "/ hilightStyle := DefaultHilightStyle.
  1591 
  1591 
  1592     hilightFrameColor := DefaultHilightFrameColor.
  1592     hilightFrameColor := DefaultHilightFrameColor.
  1593 
  1593 
  1594     styleSheet is3D ifTrue:[
  1594     styleSheet is3D ifTrue:[
  1595         "some 3D style menu - set hilight defaults to same"
  1595         "some 3D style menu - set hilight defaults to same"
  2378 ! !
  2378 ! !
  2379 
  2379 
  2380 !MenuView class methodsFor:'documentation'!
  2380 !MenuView class methodsFor:'documentation'!
  2381 
  2381 
  2382 version
  2382 version
  2383     ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.64 1996-03-21 16:22:37 cg Exp $'
  2383     ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.65 1996-03-21 16:58:29 cg Exp $'
  2384 ! !
  2384 ! !