equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
|
12 "{ Package: 'stx:libbasic' }" |
12 |
13 |
13 "{ Package: 'stx:libbasic' }" |
14 "{ NameSpace: Smalltalk }" |
14 |
15 |
15 Error subclass:#OsError |
16 Error subclass:#OsError |
16 instanceVariableNames:'' |
17 instanceVariableNames:'' |
17 classVariableNames:'' |
18 classVariableNames:'' |
18 poolDictionaries:'' |
19 poolDictionaries:'' |
33 other person. No title to or ownership of the software is |
34 other person. No title to or ownership of the software is |
34 hereby transferred. |
35 hereby transferred. |
35 " |
36 " |
36 ! ! |
37 ! ! |
37 |
38 |
|
39 !OsError class methodsFor:'initialization'! |
|
40 |
|
41 initialize |
|
42 NotifierString := 'OperatingSystem error'. |
|
43 ! ! |
|
44 |
38 !OsError class methodsFor:'queries'! |
45 !OsError class methodsFor:'queries'! |
39 |
46 |
40 mayProceed |
47 mayProceed |
41 ^ true |
48 ^ true |
42 ! ! |
49 ! ! |
43 |
50 |
|
51 !OsError methodsFor:'accessing'! |
|
52 |
|
53 description |
|
54 |
|
55 "parameter is an OSErrorHolder, if present" |
|
56 parameter notNil ifTrue:[ |
|
57 ^ parameter description. |
|
58 ]. |
|
59 ^ super description. |
|
60 |
|
61 " |
|
62 [ |
|
63 (OperatingSystem errorHolderForNumber:22) |
|
64 parameter:'bla'; |
|
65 reportError. |
|
66 ] on:OsError do:[:ex| |
|
67 ex description inspect. |
|
68 ]. |
|
69 " |
|
70 ! |
|
71 |
|
72 errorCategory |
|
73 |
|
74 "parameter is an OSErrorHolder, if present" |
|
75 parameter notNil ifTrue:[ |
|
76 ^ parameter errorCategory. |
|
77 ]. |
|
78 ^ ''. |
|
79 ! |
|
80 |
|
81 errorString |
|
82 |
|
83 "parameter is an OSErrorHolder, if present" |
|
84 parameter notNil ifTrue:[ |
|
85 ^ parameter errorString. |
|
86 ]. |
|
87 ^ ''. |
|
88 ! |
|
89 |
|
90 errorSymbol |
|
91 |
|
92 "parameter is an OSErrorHolder, if present" |
|
93 parameter notNil ifTrue:[ |
|
94 ^ parameter errorSymbol. |
|
95 ]. |
|
96 ^ ''. |
|
97 ! ! |
|
98 |
44 !OsError class methodsFor:'documentation'! |
99 !OsError class methodsFor:'documentation'! |
45 |
100 |
46 version |
101 version |
47 ^ '$Header: /cvs/stx/stx/libbasic/OsError.st,v 1.3 2003-08-30 12:31:08 cg Exp $' |
102 ^ '$Header$' |
48 ! ! |
103 ! ! |
|
104 |
|
105 |
|
106 OsError initialize! |