UserInformation.st
author Claus Gittinger <cg@exept.de>
Mon, 31 Mar 2003 11:53:22 +0200
changeset 7142 7a6297c86ef4
parent 7038 89e892bb8226
child 7588 1819a1c408f3
permissions -rw-r--r--
checkin from browser
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
7034
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:libbasic' }"
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
     2
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
     3
UserNotification subclass:#UserInformation
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:''
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
     7
	category:'Kernel-Exceptions'
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
     8
!
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
     9
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    10
!UserInformation class methodsFor:'documentation'!
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    11
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    12
documentation
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    13
"    
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    14
    UserInformation is similar to UserNotification,
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    15
    but used for less important messages. 
7038
89e892bb8226 Documentation
Stefan Vogel <sv@exept.de>
parents: 7034
diff changeset
    16
    It produces an info box with the message on the screen. 
89e892bb8226 Documentation
Stefan Vogel <sv@exept.de>
parents: 7034
diff changeset
    17
    If no display is available, the message is written 
89e892bb8226 Documentation
Stefan Vogel <sv@exept.de>
parents: 7034
diff changeset
    18
    to the Transcript.
7034
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    19
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    20
    [author:]
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    21
        Stefan Vogel
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    22
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    23
    [see also:]
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    24
        Signal
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    25
"
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    26
! !
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    27
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    28
!UserInformation class methodsFor:'initialization'!
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    29
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    30
initialize
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    31
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    32
    NotifierString := 'User Information:'.
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    33
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    34
    "
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    35
     self initialize
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    36
    "
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    37
! !
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    38
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    39
!UserInformation class methodsFor:'documentation'!
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    40
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    41
version
7038
89e892bb8226 Documentation
Stefan Vogel <sv@exept.de>
parents: 7034
diff changeset
    42
    ^ '$Header: /cvs/stx/stx/libbasic/UserInformation.st,v 1.2 2003-02-18 13:45:34 stefan Exp $'
7034
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    43
! !
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    44
03a018ba0eee initial checkin
Stefan Vogel <sv@exept.de>
parents:
diff changeset
    45
UserInformation initialize!