hg/stx-libview2: ApplicationWindow.st@3198d7d846be (annotated)

964 51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2	COPYRIGHT (c) 1998 by eXept Software AG
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	All Rights Reserved
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	This software is furnished under a license and may be used
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	only in accordance with the terms of that license and with the
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	inclusion of the above copyright notice. This software may not
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	be provided or otherwise made available to, or used by, any
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9	other person. No title to or ownership of the software is
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	hereby transferred.
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11	"
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13
1421 840a63b9a8cf keyboardProcessor lifted to TopView (to have it in dialogs, too) ca parents: 1164 diff changeset	14	"{ Package: 'stx:libview2' }"
840a63b9a8cf keyboardProcessor lifted to TopView (to have it in dialogs, too) ca parents: 1164 diff changeset	15
964 51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	StandardSystemView subclass:#ApplicationWindow
1423 0e391ec230be * empty log message * Claus Gittinger <cg@exept.de> parents: 1421 diff changeset	17	instanceVariableNames:''
964 51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	classVariableNames:''
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	poolDictionaries:''
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	category:'Interface-Framework'
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	!
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	!ApplicationWindow class methodsFor:'documentation'!
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	copyright
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26	"
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	COPYRIGHT (c) 1998 by eXept Software AG
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	All Rights Reserved
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	This software is furnished under a license and may be used
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	only in accordance with the terms of that license and with the
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	inclusion of the above copyright notice. This software may not
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	be provided or otherwise made available to, or used by, any
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	other person. No title to or ownership of the software is
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	hereby transferred.
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36	"
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	!
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	documentation
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	"
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	ApplicationWindow is provided for ST80 compatibility, to
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	give loaded code a home, in case its subclassed from it.
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44	It does not (yet) provide much of additional functionality.
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46	[author:]
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	Claus Gittinger (cg@data)
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49	[see also:]
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50	ApplicationModel UIBuilder
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	"
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52	! !
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	!ApplicationWindow methodsFor:'events'!
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	noticeOfWindowClose
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	application notNil ifTrue:[
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	application noticeOfWindowClose:self
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59	].
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61	"Created: / 18.6.1998 / 18:56:01 / cg"
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62	! !
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63
1164 04e9ce703b54 category change Claus Gittinger <cg@exept.de> parents: 968 diff changeset	64	!ApplicationWindow methodsFor:'initialize / release'!
04e9ce703b54 category change Claus Gittinger <cg@exept.de> parents: 968 diff changeset	65
04e9ce703b54 category change Claus Gittinger <cg@exept.de> parents: 968 diff changeset	66	destroy
04e9ce703b54 category change Claus Gittinger <cg@exept.de> parents: 968 diff changeset	67	self noticeOfWindowClose.
04e9ce703b54 category change Claus Gittinger <cg@exept.de> parents: 968 diff changeset	68	super destroy
04e9ce703b54 category change Claus Gittinger <cg@exept.de> parents: 968 diff changeset	69
1421 840a63b9a8cf keyboardProcessor lifted to TopView (to have it in dialogs, too) ca parents: 1164 diff changeset	70	"Created: / 18.6.1998 / 19:15:28 / cg"! !
1164 04e9ce703b54 category change Claus Gittinger <cg@exept.de> parents: 968 diff changeset	71
964 51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72	!ApplicationWindow class methodsFor:'documentation'!
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	73
51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74	version
1423 0e391ec230be * empty log message * Claus Gittinger <cg@exept.de> parents: 1421 diff changeset	75	^ '$Header: /cvs/stx/stx/libview2/ApplicationWindow.st,v 1.6 2000-11-09 19:41:39 cg Exp $'
964 51114e9392da initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	76	! !

author	tm
	Fri, 10 Nov 2000 12:19:39 +0100
changeset 1424	3198d7d846be
parent 1423	0e391ec230be
child 1432	6dc94e38fa8e
permissions	-rw-r--r--