hg/stx-libwidg: comparison PopUpList.st

equal deleted inserted replaced

-:28815246bbc1
+:450ce95a72a4
 "
 COPYRIGHT (c) 1994 by Claus Gittinger
-All Rights Reserved
+	      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.
 "
 Button subclass:#PopUpList
-instanceVariableNames:'menu menuAction'
+	 instanceVariableNames:'menu menuAction'
-classVariableNames:''
+	 classVariableNames:''
-poolDictionaries:''
+	 poolDictionaries:''
-category:'Views-Interactors'
+	 category:'Views-Interactors'
 !
 PopUpList comment:'
 COPYRIGHT (c) 1994 by Claus Gittinger
-All Rights Reserved
+	      All Rights Reserved
-$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.2 1994-08-07 13:23:07 claus Exp $
+$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.3 1994-10-10 03:02:34 claus Exp $
 '!
 !PopUpList class methodsFor:'documentation'!
 copyright
 "
 COPYRIGHT (c) 1994 by Claus Gittinger
-All Rights Reserved
+	      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
 "
 !
 version
 "
-$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.2 1994-08-07 13:23:07 claus Exp $
+$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.3 1994-10-10 03:02:34 claus Exp $
 "
 !
 documentation
 "
 drawWith:fgColor and:bgColor
 |mmH mmV mW mH|
 pressed ifTrue:[
-super drawWith:enteredFgColor and:enteredBgColor
+	super drawWith:enteredFgColor and:enteredBgColor
 ] ifFalse:[
-super drawWith:fgColor and:bgColor.
+	super drawWith:fgColor and:bgColor.
 ].
 mmH := (device horizontalPixelPerMillimeter * 1) rounded.
 mmV := (device verticalPixelPerMillimeter * 1) rounded.
 mW := (device horizontalPixelPerMillimeter * 2.5) rounded.
 mH := (device verticalPixelPerMillimeter * 1.5) rounded.
 self drawEdgesForX:(width - mW - (hSpace*2)) y:(height - mmV // 2)
-width:mW height:mH level:2
+		 width:mW height:mH level:2
 ! !
 !PopUpList methodsFor:'events'!
 buttonPress:button x:x y:y
 |org mv|
 ((button == 1) or:[button == #select]) ifTrue:[
-menu notNil ifTrue:[
+	menu notNil ifTrue:[
-menu font:font.
+	    menu font:font.
 "
-menu width:self width + (margin * 2).
+	    menu width:self width + (margin * 2).
 "
-mv := menu menuView.
+	    mv := menu menuView.
-mv width:(self width - (2 * menu margin) - (menu borderWidth*2)).
+	    mv width:(self width - (2 * menu margin) - (menu borderWidth*2)).
-mv level:0; borderWidth:0.
+	    mv level:0; borderWidth:0.
-mv fixSize.
+	    mv fixSize.
-org := device translatePoint:0@0
+	    org := device translatePoint:0@0
-from:(self id)
+				    from:(self id)
-to:(DisplayRootView new id).
+				      to:(DisplayRootView new id).
-menu showAt:org "resizing:false"
+	    menu showAt:org "resizing:false"
-]
+	]
 ].
 ! !
 !PopUpList methodsFor:'initialization'!
 initialize
 super initialize.
+actionWhenPressed := true.
 self adjust:#left
 ! !
 !PopUpList methodsFor:'accessing'!
 list:aList
 "set the list - i.e. the values shown in the pop-up list"
 menu := PopUpMenu
-labels:aList
+		  labels:aList
-selectors:(Array new:(aList size) withAll:#select:)
+	       selectors:(Array new:(aList size) withAll:#select:)
-args:aList
+		    args:aList
-receiver:self
+		receiver:self
-for:self.
+		     for:self.
 realized ifTrue:[
-self computeLabelSize
+	self computeLabelSize
 ]
 "
 |p|
 p := PopUpList label:'fruit ?'.
 |index|
 index := menu labels indexOf:indexOrString.
 index == 0 ifTrue:[
-indexOrString isNumber ifTrue:[
+	indexOrString isNumber ifTrue:[
-index := indexOrString
+	    index := indexOrString
-] ifFalse:[
+	] ifFalse:[
-^ self
+	    ^ self
-]
+	]
 ].
 self label:(menu labels at:index)
 "
 |p|
 "compute the extent needed to hold the label plus the mark"
 |mmH mmV savedLogo longest longestWidth|
 menu isNil ifTrue:[
-super computeLabelSize
+	super computeLabelSize
 ] ifFalse:[
-"hack: simulate logo change to longest menu entry"
+	"hack: simulate logo change to longest menu entry"
-font := font on:device.
+	font := font on:device.
-longest := logo.
+	longest := logo.
-longestWidth := font widthOf:logo.
+	longestWidth := font widthOf:logo.
-menu labels do:[:entry |
+	menu labels do:[:entry |
-|this|
+	    |this|
-this := font widthOf:entry printString.
+	    this := font widthOf:entry printString.
-this > longestWidth ifTrue:[
+	    this > longestWidth ifTrue:[
-longest := entry.
+		longest := entry.
-longestWidth := this
+		longestWidth := this
-].
+	    ].
-].
+	].
-savedLogo := logo.
+	savedLogo := logo.
-logo := longest.
+	logo := longest.
-super computeLabelSize.
+	super computeLabelSize.
-logo := savedLogo.
+	logo := savedLogo.
 "self halt.     "
 ].
 mmH := device horizontalPixelPerMillimeter.
 mmV := device verticalPixelPerMillimeter.
 labelWidth := labelWidth + hSpace + (mmH * 2.5) rounded + hSpace.
 !PopUpList methodsFor:'user actions'!
 select:anEntry
 "/ 'selected:' print. anEntry printNewline.
 menuAction notNil ifTrue:[
-menuAction value:anEntry.
+	menuAction value:anEntry.
 ].
 self sizeFixed:true.
 self label:anEntry printString.
 (model notNil and:[changeSymbol notNil]) ifTrue:[
-model perform:changeSymbol with:anEntry
+	model perform:changeSymbol with:anEntry
 ].
 ! !

changeset 59	450ce95a72a4
parent 38	4b9b70b2cc87
child 63	f4eaf04d1eaf