1056 ^ self primitiveFailed |
1056 ^ self primitiveFailed |
1057 ! ! |
1057 ! ! |
1058 |
1058 |
1059 !ExternalBytes methodsFor:'printing & storing'! |
1059 !ExternalBytes methodsFor:'printing & storing'! |
1060 |
1060 |
1061 displayString |
1061 displayOn:aGCOrStream |
1062 "return a printed representation of the receiver for displaying" |
1062 "return a printed representation of the receiver for displaying" |
1063 |
1063 |
1064 |addr addrString| |
1064 |addr| |
1065 |
1065 |
1066 (addr := self address) isNil ifTrue:[ |
1066 "/ what a kludge - Dolphin and Squeak mean: printOn: a stream; |
1067 addrString := '[free]' |
1067 "/ ST/X (and some old ST80's) mean: draw-yourself on a GC. |
|
1068 (aGCOrStream isStream and:[aGCOrStream ~~ Transcript]) ifFalse:[ |
|
1069 ^ super displayOn:aGCOrStream |
|
1070 ]. |
|
1071 |
|
1072 aGCOrStream nextPutAll:self className. |
|
1073 addr := self address. |
|
1074 addr isNil ifTrue:[ |
|
1075 aGCOrStream nextPutAll:'[free]'. |
1068 ] ifFalse:[ |
1076 ] ifFalse:[ |
1069 size notNil ifTrue:[ |
1077 size notNil ifTrue:[ |
1070 addrString := '[sz:', size printString, ' ' |
1078 aGCOrStream nextPutAll:'[sz:'. |
1071 ] ifFalse:[ |
1079 size printOn:aGCOrStream. |
1072 addrString := '[' |
1080 aGCOrStream space. |
1073 ]. |
1081 ] ifFalse:[ |
1074 addrString := addrString , 'at:' , (addr printStringRadix:16), ']' |
1082 aGCOrStream nextPut:$[. |
|
1083 ]. |
|
1084 aGCOrStream nextPutAll:'at:'. |
|
1085 addr printOn:aGCOrStream base:16. |
|
1086 aGCOrStream nextPut:$]. |
1075 ]. |
1087 ]. |
1076 ^ self class name , addrString |
|
1077 |
1088 |
1078 "Modified: / 24.2.2000 / 19:02:19 / cg" |
1089 "Modified: / 24.2.2000 / 19:02:19 / cg" |
1079 ! ! |
1090 ! ! |
1080 |
1091 |
1081 !ExternalBytes methodsFor:'private-accessing'! |
1092 !ExternalBytes methodsFor:'private-accessing'! |
1277 ! ! |
1288 ! ! |
1278 |
1289 |
1279 !ExternalBytes class methodsFor:'documentation'! |
1290 !ExternalBytes class methodsFor:'documentation'! |
1280 |
1291 |
1281 version |
1292 version |
1282 ^ '$Id: ExternalBytes.st 10544 2010-07-12 16:20:36Z vranyj1 $' |
1293 ^ '$Id: ExternalBytes.st 10590 2010-11-09 16:24:28Z vranyj1 $' |
1283 ! |
1294 ! |
1284 |
1295 |
1285 version_CVS |
1296 version_CVS |
1286 ^ 'Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.78 2010/04/08 11:57:17 cg Exp ' |
1297 ^ 'Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.79 2010-09-21 06:57:43 stefan Exp ' |
1287 ! |
1298 ! |
1288 |
1299 |
1289 version_SVN |
1300 version_SVN |
1290 ^ '$Id: ExternalBytes.st 10544 2010-07-12 16:20:36Z vranyj1 $' |
1301 ^ '$Id: ExternalBytes.st 10590 2010-11-09 16:24:28Z vranyj1 $' |
1291 ! ! |
1302 ! ! |
1292 |
1303 |
1293 ExternalBytes initialize! |
1304 ExternalBytes initialize! |
1294 |
1305 |
1295 |
1306 |
1296 |
1307 |
1297 |
1308 |
|
1309 |