hg/stx-libbasic: Warning.st@999e680a29ca (annotated)

4466 9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	1	"
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	2	COPYRIGHT (c) 1999 by eXept Software AG
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	3	All Rights Reserved
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	4
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	5	This software is furnished under a license and may be used
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	6	only in accordance with the terms of that license and with the
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	7	inclusion of the above copyright notice. This software may not
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	8	be provided or otherwise made available to, or used by, any
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	9	other person. No title to or ownership of the software is
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	10	hereby transferred.
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	11	"
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	12
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	13
4446 4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	14	Exception subclass:#Warning
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	15	instanceVariableNames:''
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	16	classVariableNames:''
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	17	poolDictionaries:''
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	18	category:'Kernel-Exceptions'
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	19	!
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	20
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	21	!Warning class methodsFor:'documentation'!
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	22
4466 9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	23	copyright
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	24	"
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	25	COPYRIGHT (c) 1999 by eXept Software AG
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	26	All Rights Reserved
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	27
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	28	This software is furnished under a license and may be used
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	29	only in accordance with the terms of that license and with the
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	30	inclusion of the above copyright notice. This software may not
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	31	be provided or otherwise made available to, or used by, any
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	32	other person. No title to or ownership of the software is
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	33	hereby transferred.
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	34	"
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	35
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	36	!
9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	37
4446 4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	38	documentation
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	39	"
4466 9cba6f4ecec4 copyrights added; typo in docu Claus Gittinger <cg@exept.de> parents: 4446 diff changeset	40	Warning is an abstract superclass of all warning exceptions in the system
4446 4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	41
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	42	[author:]
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	43	Stefan Vogel
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	44
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	45	[see also:]
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	46	Signal
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	47	"
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	48
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	49	!
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	50
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	51	examples
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	52	"
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	53	[exBegin]
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	54	Warning raiseRequest
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	55	[exEnd]
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	56	"
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	57
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	58	! !
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	59
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	60	!Warning class methodsFor:'initialization'!
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	61
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	62	initialize
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	63
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	64	NotifierString := 'Warning'.
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	65
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	66	"
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	67	self initialize
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	68	"
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	69
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	70	"Created: / 23.7.1999 / 15:34:27 / stefan"
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	71	! !
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	72
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	73	!Warning methodsFor:'default actions'!
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	74
4525 999e680a29ca Make error classes public. Stefan Vogel <sv@exept.de> parents: 4508 diff changeset	75	defaultAction
4446 4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	76	"Default action for warnings: open a warn box with errorString"
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	77
4500 be0fe7e7e21b Write to transcript if Dialog is not available. Stefan Vogel <sv@exept.de> parents: 4466 diff changeset	78	\|text\|
be0fe7e7e21b Write to transcript if Dialog is not available. Stefan Vogel <sv@exept.de> parents: 4466 diff changeset	79
be0fe7e7e21b Write to transcript if Dialog is not available. Stefan Vogel <sv@exept.de> parents: 4466 diff changeset	80	text := self errorString.
4446 4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	81
4500 be0fe7e7e21b Write to transcript if Dialog is not available. Stefan Vogel <sv@exept.de> parents: 4466 diff changeset	82	(Smalltalk isInitialized and:[Dialog notNil]) ifTrue:[
be0fe7e7e21b Write to transcript if Dialog is not available. Stefan Vogel <sv@exept.de> parents: 4466 diff changeset	83	Dialog warn:text.
be0fe7e7e21b Write to transcript if Dialog is not available. Stefan Vogel <sv@exept.de> parents: 4466 diff changeset	84	] ifFalse:[
be0fe7e7e21b Write to transcript if Dialog is not available. Stefan Vogel <sv@exept.de> parents: 4466 diff changeset	85	"
be0fe7e7e21b Write to transcript if Dialog is not available. Stefan Vogel <sv@exept.de> parents: 4466 diff changeset	86	on systems without GUI, simply show
be0fe7e7e21b Write to transcript if Dialog is not available. Stefan Vogel <sv@exept.de> parents: 4466 diff changeset	87	the message on the Transcript.
be0fe7e7e21b Write to transcript if Dialog is not available. Stefan Vogel <sv@exept.de> parents: 4466 diff changeset	88	"
be0fe7e7e21b Write to transcript if Dialog is not available. Stefan Vogel <sv@exept.de> parents: 4466 diff changeset	89	Transcript showCR:text.
be0fe7e7e21b Write to transcript if Dialog is not available. Stefan Vogel <sv@exept.de> parents: 4466 diff changeset	90	].
be0fe7e7e21b Write to transcript if Dialog is not available. Stefan Vogel <sv@exept.de> parents: 4466 diff changeset	91	self proceed.
4446 4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	92
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	93	"
4500 be0fe7e7e21b Write to transcript if Dialog is not available. Stefan Vogel <sv@exept.de> parents: 4466 diff changeset	94	Warning raiseRequestWith:self errorString:' abc'
4446 4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	95	"
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	96
4508 d64471bf34af No need to autoload. Stefan Vogel <sv@exept.de> parents: 4500 diff changeset	97	"Modified: / 3.8.1999 / 14:06:41 / stefan"
4446 4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	98	! !
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	99
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	100	!Warning class methodsFor:'documentation'!
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	101
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	102	version
4525 999e680a29ca Make error classes public. Stefan Vogel <sv@exept.de> parents: 4508 diff changeset	103	^ '$Header: /cvs/stx/stx/libbasic/Warning.st,v 1.5 1999-08-04 14:12:09 stefan Exp $'
4446 4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	104	! !
4da4e51fc1ab initial checkin Stefan Vogel <sv@exept.de> parents: diff changeset	105	Warning initialize!

author	Stefan Vogel <sv@exept.de>
	Wed, 04 Aug 1999 16:12:09 +0200
changeset 4525	999e680a29ca
parent 4508	d64471bf34af
child 5295	f144309dab04
permissions	-rw-r--r--