hg/stx-libview: ControllerWithMenu.st@9ff0660f447f (annotated)

91 03c73c3b1d57 Initial revision claus parents: diff changeset	1	"
03c73c3b1d57 Initial revision claus parents: diff changeset	2	COPYRIGHT (c) 1994 by Claus Gittinger
03c73c3b1d57 Initial revision claus parents: diff changeset	3	All Rights Reserved
03c73c3b1d57 Initial revision claus parents: diff changeset	4
03c73c3b1d57 Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
03c73c3b1d57 Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
03c73c3b1d57 Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
03c73c3b1d57 Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
03c73c3b1d57 Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
03c73c3b1d57 Initial revision claus parents: diff changeset	10	hereby transferred.
03c73c3b1d57 Initial revision claus parents: diff changeset	11	"
03c73c3b1d57 Initial revision claus parents: diff changeset	12
03c73c3b1d57 Initial revision claus parents: diff changeset	13	Controller subclass:#ControllerWithMenu
123 9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	14	instanceVariableNames:'menuHolder performer'
91 03c73c3b1d57 Initial revision claus parents: diff changeset	15	classVariableNames:''
03c73c3b1d57 Initial revision claus parents: diff changeset	16	poolDictionaries:''
141 caf4432fae8f . claus parents: 125 diff changeset	17	category:'Interface-Support-Controllers'
91 03c73c3b1d57 Initial revision claus parents: diff changeset	18	!
03c73c3b1d57 Initial revision claus parents: diff changeset	19
03c73c3b1d57 Initial revision claus parents: diff changeset	20	!ControllerWithMenu class methodsFor:'documentation'!
03c73c3b1d57 Initial revision claus parents: diff changeset	21
03c73c3b1d57 Initial revision claus parents: diff changeset	22	copyright
03c73c3b1d57 Initial revision claus parents: diff changeset	23	"
03c73c3b1d57 Initial revision claus parents: diff changeset	24	COPYRIGHT (c) 1994 by Claus Gittinger
03c73c3b1d57 Initial revision claus parents: diff changeset	25	All Rights Reserved
03c73c3b1d57 Initial revision claus parents: diff changeset	26
03c73c3b1d57 Initial revision claus parents: diff changeset	27	This software is furnished under a license and may be used
03c73c3b1d57 Initial revision claus parents: diff changeset	28	only in accordance with the terms of that license and with the
03c73c3b1d57 Initial revision claus parents: diff changeset	29	inclusion of the above copyright notice. This software may not
03c73c3b1d57 Initial revision claus parents: diff changeset	30	be provided or otherwise made available to, or used by, any
03c73c3b1d57 Initial revision claus parents: diff changeset	31	other person. No title to or ownership of the software is
03c73c3b1d57 Initial revision claus parents: diff changeset	32	hereby transferred.
03c73c3b1d57 Initial revision claus parents: diff changeset	33	"
03c73c3b1d57 Initial revision claus parents: diff changeset	34	!
03c73c3b1d57 Initial revision claus parents: diff changeset	35
03c73c3b1d57 Initial revision claus parents: diff changeset	36	version
219 9ff0660f447f uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 157 diff changeset	37	^ '$Header: /cvs/stx/stx/libview/ControllerWithMenu.st,v 1.6 1995-11-11 15:48:50 cg Exp $'
91 03c73c3b1d57 Initial revision claus parents: diff changeset	38	!
03c73c3b1d57 Initial revision claus parents: diff changeset	39
03c73c3b1d57 Initial revision claus parents: diff changeset	40	documentation
03c73c3b1d57 Initial revision claus parents: diff changeset	41	"
03c73c3b1d57 Initial revision claus parents: diff changeset	42	ControllerWithMenus is a very simple controller for a view with
03c73c3b1d57 Initial revision claus parents: diff changeset	43	a middleButtonMenu.
125 d74e6ab7157a * empty log message * claus parents: 123 diff changeset	44	This class currently exists for ST-80 compatibility only.
91 03c73c3b1d57 Initial revision claus parents: diff changeset	45	"
03c73c3b1d57 Initial revision claus parents: diff changeset	46	! !
03c73c3b1d57 Initial revision claus parents: diff changeset	47
03c73c3b1d57 Initial revision claus parents: diff changeset	48	!ControllerWithMenu methodsFor:'accessing'!
03c73c3b1d57 Initial revision claus parents: diff changeset	49
123 9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	50	menuHolder:aValueHolder
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	51	menuHolder := aValueHolder
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	52	!
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	53
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	54	menuHolder
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	55	^ menuHolder
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	56	!
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	57
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	58	performer
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	59	^ performer
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	60	!
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	61
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	62	performer:anObject
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	63	performer := anObject
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	64	!
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	65
91 03c73c3b1d57 Initial revision claus parents: diff changeset	66	menu
157 891eff44c2e7 . claus parents: 141 diff changeset	67	"can be redefined in subclasses"
91 03c73c3b1d57 Initial revision claus parents: diff changeset	68
157 891eff44c2e7 . claus parents: 141 diff changeset	69	menuHolder notNil ifTrue:[
891eff44c2e7 . claus parents: 141 diff changeset	70	^ menuHolder value
891eff44c2e7 . claus parents: 141 diff changeset	71	].
91 03c73c3b1d57 Initial revision claus parents: diff changeset	72	^ nil
03c73c3b1d57 Initial revision claus parents: diff changeset	73	! !
03c73c3b1d57 Initial revision claus parents: diff changeset	74
03c73c3b1d57 Initial revision claus parents: diff changeset	75	!ControllerWithMenu methodsFor:'events'!
03c73c3b1d57 Initial revision claus parents: diff changeset	76
03c73c3b1d57 Initial revision claus parents: diff changeset	77	yellowButtonActivity
03c73c3b1d57 Initial revision claus parents: diff changeset	78	\|m selection\|
03c73c3b1d57 Initial revision claus parents: diff changeset	79
03c73c3b1d57 Initial revision claus parents: diff changeset	80	(m := self menu) notNil ifTrue:[
03c73c3b1d57 Initial revision claus parents: diff changeset	81	selection := self menu startUp.
03c73c3b1d57 Initial revision claus parents: diff changeset	82	selection ~~ 0 ifTrue:[
03c73c3b1d57 Initial revision claus parents: diff changeset	83	self perform:selection
03c73c3b1d57 Initial revision claus parents: diff changeset	84	]
03c73c3b1d57 Initial revision claus parents: diff changeset	85	]
03c73c3b1d57 Initial revision claus parents: diff changeset	86	! !

author	Claus Gittinger <cg@exept.de>
	Sat, 11 Nov 1995 16:54:10 +0100
changeset 219	9ff0660f447f
parent 157	891eff44c2e7
child 1150	a3d2fa5c5e6a
permissions	-rw-r--r--