StreamNotOpenError.st
author Claus Gittinger <cg@exept.de>
Thu, 15 Aug 2019 14:05:21 +0200
changeset 24544 41e1b5b7b308
parent 24509 30658b2817ac
child 25173 9ef97d4ba8ea
permissions -rw-r--r--
#BUGFIX by exept class: StreamNotOpenError changed: #description do not ask parameter for isEmpty; it could be a non-positionable stream, trying to position and raising an error.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
8727
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
     1
"
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
     2
 COPYRIGHT (c) 2004 by eXept Software AG
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
     3
              All Rights Reserved
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
     4
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
     5
 This software is furnished under a license and may be used
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
     6
 only in accordance with the terms of that license and with the
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
     8
 be provided or otherwise made available to, or used by, any
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
     9
 other person.  No title to or ownership of the software is
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
    10
 hereby transferred.
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
    11
"
24509
30658b2817ac #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 8727
diff changeset
    12
"{ Package: 'stx:libbasic' }"
8727
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
    13
24509
30658b2817ac #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 8727
diff changeset
    14
"{ NameSpace: Smalltalk }"
8068
4d18d2a101c9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
4d18d2a101c9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
StreamError subclass:#StreamNotOpenError
4d18d2a101c9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	instanceVariableNames:''
4d18d2a101c9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	classVariableNames:''
4d18d2a101c9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	poolDictionaries:''
4d18d2a101c9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	category:'Kernel-Exceptions-Errors'
4d18d2a101c9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!
4d18d2a101c9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
8727
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
    23
!StreamNotOpenError class methodsFor:'documentation'!
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
    24
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
    25
copyright
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
    26
"
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
    27
 COPYRIGHT (c) 2004 by eXept Software AG
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
    28
              All Rights Reserved
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
    29
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
    30
 This software is furnished under a license and may be used
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
    31
 only in accordance with the terms of that license and with the
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
    33
 be provided or otherwise made available to, or used by, any
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
    34
 other person.  No title to or ownership of the software is
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
    35
 hereby transferred.
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
    36
"
533d79aac561 copyright
Claus Gittinger <cg@exept.de>
parents: 8513
diff changeset
    37
! !
8068
4d18d2a101c9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
8513
aa129fd0e35e Add description methods
Stefan Vogel <sv@exept.de>
parents: 8068
diff changeset
    39
!StreamNotOpenError methodsFor:'printing & storing'!
aa129fd0e35e Add description methods
Stefan Vogel <sv@exept.de>
parents: 8068
diff changeset
    40
aa129fd0e35e Add description methods
Stefan Vogel <sv@exept.de>
parents: 8068
diff changeset
    41
description
24544
41e1b5b7b308 #BUGFIX by exept
Claus Gittinger <cg@exept.de>
parents: 24509
diff changeset
    42
    (parameter isStream not and:[parameter notEmptyOrNil]) ifTrue:[
24509
30658b2817ac #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 8727
diff changeset
    43
        ^ super description, ': ', parameter classNameWithArticle.
30658b2817ac #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 8727
diff changeset
    44
    ].
30658b2817ac #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 8727
diff changeset
    45
    ^ super description.
30658b2817ac #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 8727
diff changeset
    46
30658b2817ac #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 8727
diff changeset
    47
    "Modified: / 08-08-2019 / 16:15:17 / Stefan Vogel"
8513
aa129fd0e35e Add description methods
Stefan Vogel <sv@exept.de>
parents: 8068
diff changeset
    48
! !
aa129fd0e35e Add description methods
Stefan Vogel <sv@exept.de>
parents: 8068
diff changeset
    49
8068
4d18d2a101c9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
!StreamNotOpenError class methodsFor:'documentation'!
4d18d2a101c9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
4d18d2a101c9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
version
24509
30658b2817ac #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 8727
diff changeset
    53
    ^ '$Header$'
8068
4d18d2a101c9 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
! !
24509
30658b2817ac #QUALITY by stefan
Stefan Vogel <sv@exept.de>
parents: 8727
diff changeset
    55