hg/stx-libview: ControllerWithMenu.st@62c1dbef0b84 (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	"
4381 4d4ea82cf007 * empty log message * Claus Gittinger <cg@exept.de> parents: 1956 diff changeset	12	"{ Package: 'stx:libview' }"
4d4ea82cf007 * empty log message * Claus Gittinger <cg@exept.de> parents: 1956 diff changeset	13
91 03c73c3b1d57 Initial revision claus parents: diff changeset	14	Controller subclass:#ControllerWithMenu
1150 a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	15	instanceVariableNames:'menuHolder performer'
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	16	classVariableNames:''
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	17	poolDictionaries:''
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	18	category:'Interface-Support-Controllers'
91 03c73c3b1d57 Initial revision claus parents: diff changeset	19	!
03c73c3b1d57 Initial revision claus parents: diff changeset	20
03c73c3b1d57 Initial revision claus parents: diff changeset	21	!ControllerWithMenu class methodsFor:'documentation'!
03c73c3b1d57 Initial revision claus parents: diff changeset	22
03c73c3b1d57 Initial revision claus parents: diff changeset	23	copyright
03c73c3b1d57 Initial revision claus parents: diff changeset	24	"
03c73c3b1d57 Initial revision claus parents: diff changeset	25	COPYRIGHT (c) 1994 by Claus Gittinger
03c73c3b1d57 Initial revision claus parents: diff changeset	26	All Rights Reserved
03c73c3b1d57 Initial revision claus parents: diff changeset	27
03c73c3b1d57 Initial revision claus parents: diff changeset	28	This software is furnished under a license and may be used
03c73c3b1d57 Initial revision claus parents: diff changeset	29	only in accordance with the terms of that license and with the
03c73c3b1d57 Initial revision claus parents: diff changeset	30	inclusion of the above copyright notice. This software may not
03c73c3b1d57 Initial revision claus parents: diff changeset	31	be provided or otherwise made available to, or used by, any
03c73c3b1d57 Initial revision claus parents: diff changeset	32	other person. No title to or ownership of the software is
03c73c3b1d57 Initial revision claus parents: diff changeset	33	hereby transferred.
03c73c3b1d57 Initial revision claus parents: diff changeset	34	"
03c73c3b1d57 Initial revision claus parents: diff changeset	35	!
03c73c3b1d57 Initial revision claus parents: diff changeset	36
03c73c3b1d57 Initial revision claus parents: diff changeset	37	documentation
03c73c3b1d57 Initial revision claus parents: diff changeset	38	"
03c73c3b1d57 Initial revision claus parents: diff changeset	39	ControllerWithMenus is a very simple controller for a view with
03c73c3b1d57 Initial revision claus parents: diff changeset	40	a middleButtonMenu.
125 d74e6ab7157a * empty log message * claus parents: 123 diff changeset	41	This class currently exists for ST-80 compatibility only.
91 03c73c3b1d57 Initial revision claus parents: diff changeset	42	"
03c73c3b1d57 Initial revision claus parents: diff changeset	43	! !
03c73c3b1d57 Initial revision claus parents: diff changeset	44
1150 a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	45	!ControllerWithMenu methodsFor:'accessing'!
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	46
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	47	menu
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	48	"can be redefined in subclasses"
91 03c73c3b1d57 Initial revision claus parents: diff changeset	49
1150 a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	50	menuHolder notNil ifTrue:[
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	51	^ menuHolder value
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	52	].
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	53	^ nil
123 9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	54	!
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	55
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	56	menuHolder
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	57	^ menuHolder
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	58	!
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	59
1150 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	menuHolder := aValueHolder
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	62	!
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	63
123 9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	64	performer
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	65	^ performer
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	66	!
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	67
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	68	performer:anObject
9f8c7f20fdb2 * empty log message * claus parents: 91 diff changeset	69	performer := anObject
91 03c73c3b1d57 Initial revision claus parents: diff changeset	70	! !
03c73c3b1d57 Initial revision claus parents: diff changeset	71
1150 a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	72	!ControllerWithMenu methodsFor:'events'!
91 03c73c3b1d57 Initial revision claus parents: diff changeset	73
03c73c3b1d57 Initial revision claus parents: diff changeset	74	yellowButtonActivity
03c73c3b1d57 Initial revision claus parents: diff changeset	75	\|m selection\|
03c73c3b1d57 Initial revision claus parents: diff changeset	76
03c73c3b1d57 Initial revision claus parents: diff changeset	77	(m := self menu) notNil ifTrue:[
4381 4d4ea82cf007 * empty log message * Claus Gittinger <cg@exept.de> parents: 1956 diff changeset	78	selection := m startUp.
4d4ea82cf007 * empty log message * Claus Gittinger <cg@exept.de> parents: 1956 diff changeset	79	(selection notNil and: [selection ~~ 0]) ifTrue:[
4d4ea82cf007 * empty log message * Claus Gittinger <cg@exept.de> parents: 1956 diff changeset	80	performer perform:selection
4d4ea82cf007 * empty log message * Claus Gittinger <cg@exept.de> parents: 1956 diff changeset	81	]
91 03c73c3b1d57 Initial revision claus parents: diff changeset	82	]
03c73c3b1d57 Initial revision claus parents: diff changeset	83	! !
1150 a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	84
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	85	!ControllerWithMenu methodsFor:'initialization'!
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	86
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	87	initialize
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	88	"I am the default menu performer"
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	89
1956 d15780bd1b47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1150 diff changeset	90	performer := self.
d15780bd1b47 * empty log message * Claus Gittinger <cg@exept.de> parents: 1150 diff changeset	91	menuHolder := nil asValue
1150 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
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	94	!ControllerWithMenu class methodsFor:'documentation'!
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	95
a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	96	version
4381 4d4ea82cf007 * empty log message * Claus Gittinger <cg@exept.de> parents: 1956 diff changeset	97	^ '$Header: /cvs/stx/stx/libview/ControllerWithMenu.st,v 1.9 2005-04-18 16:29:58 cg Exp $'
1150 a3d2fa5c5e6a Use performer to perform menu messages. Stefan Vogel <sv@exept.de> parents: 219 diff changeset	98	! !
6528 62c1dbef0b84 Class order in project definition fixed so it passes project checker checks. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4381 diff changeset	99

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 23 Jun 2014 21:38:44 +0100
branch	delegated_gc_jv
changeset 6528	62c1dbef0b84
parent 4381	4d4ea82cf007
permissions	-rw-r--r--