hg/stx-libview: ControllerWithMenu.st@d15780bd1b47 (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
1150 a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	14	instanceVariableNames:'menuHolder performer'
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	15	classVariableNames:''
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	16	poolDictionaries:''
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 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	documentation
03c73c3b1d57 Initial revision claus parents: diff changeset	37	"
03c73c3b1d57 Initial revision claus parents: diff changeset	38	ControllerWithMenus is a very simple controller for a view with
03c73c3b1d57 Initial revision claus parents: diff changeset	39	a middleButtonMenu.
125 d74e6ab7157a * empty log message * claus parents: 123 diff changeset	40	This class currently exists for ST-80 compatibility only.
91 03c73c3b1d57 Initial revision claus parents: diff changeset	41	"
03c73c3b1d57 Initial revision claus parents: diff changeset	42	! !
03c73c3b1d57 Initial revision claus parents: diff changeset	43
1150 a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	44	!ControllerWithMenu methodsFor:'accessing'!
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	45
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	46	menu
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	47	"can be redefined in subclasses"
91 03c73c3b1d57 Initial revision claus parents: diff changeset	48
1150 a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	49	menuHolder notNil ifTrue:[
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	50	^ menuHolder value
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	51	].
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	52	^ nil
123 9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	53	!
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	54
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	55	menuHolder
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	56	^ menuHolder
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	57	!
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	58
1150 a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	59	menuHolder:aValueHolder
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	60	menuHolder := aValueHolder
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	61	!
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	62
123 9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	63	performer
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	64	^ performer
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	65	!
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	66
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	67	performer:anObject
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	68	performer := anObject
91 03c73c3b1d57 Initial revision claus parents: diff changeset	69	! !
03c73c3b1d57 Initial revision claus parents: diff changeset	70
1150 a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	71	!ControllerWithMenu methodsFor:'events'!
91 03c73c3b1d57 Initial revision claus parents: diff changeset	72
03c73c3b1d57 Initial revision claus parents: diff changeset	73	yellowButtonActivity
03c73c3b1d57 Initial revision claus parents: diff changeset	74	\|m selection\|
03c73c3b1d57 Initial revision claus parents: diff changeset	75
03c73c3b1d57 Initial revision claus parents: diff changeset	76	(m := self menu) notNil ifTrue:[
1956 d15780bd1b47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1150 diff changeset	77	selection := m startUp.
d15780bd1b47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1150 diff changeset	78	selection ~~ 0 ifTrue:[
d15780bd1b47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1150 diff changeset	79	performer perform:selection
d15780bd1b47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1150 diff changeset	80	]
91 03c73c3b1d57 Initial revision claus parents: diff changeset	81	]
03c73c3b1d57 Initial revision claus parents: diff changeset	82	! !
1150 a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	83
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	84	!ControllerWithMenu methodsFor:'initialization'!
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	85
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	86	initialize
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	87	"I am the default menu performer"
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	88
1956 d15780bd1b47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1150 diff changeset	89	performer := self.
d15780bd1b47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1150 diff changeset	90	menuHolder := nil asValue
1150 a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	91	! !
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	92
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	93	!ControllerWithMenu class methodsFor:'documentation'!
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	94
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	95	version
1956 d15780bd1b47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1150 diff changeset	96	^ '$Header: /cvs/stx/stx/libview/ControllerWithMenu.st,v 1.8 1997-11-15 13:39:30 cg Exp $'
1150 a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	97	! !

author	Claus Gittinger <cg@exept.de>
	Sat, 15 Nov 1997 14:40:12 +0100
changeset 1956	d15780bd1b47
parent 1150	a3d2fa5c5e6a
child 4381	4d4ea82cf007
permissions	-rw-r--r--