equal
deleted
inserted
replaced
1064 |
1064 |
1065 "Modified: / 5.5.1999 / 18:43:02 / cg" |
1065 "Modified: / 5.5.1999 / 18:43:02 / cg" |
1066 ! |
1066 ! |
1067 |
1067 |
1068 closeStreams |
1068 closeStreams |
1069 inStream notNil ifTrue:[ |
1069 |s| |
1070 inStream isStream ifTrue:[inStream close]. |
1070 |
1071 inStream := nil |
1071 (s := inStream) notNil ifTrue:[ |
1072 ]. |
1072 inStream := nil. |
1073 outStream notNil ifTrue:[ |
1073 s isStream ifTrue:[s close]. |
1074 outStream close. |
1074 ]. |
1075 outStream := nil |
1075 (s := outStream) notNil ifTrue:[ |
|
1076 outStream := nil. |
|
1077 s close. |
1076 ]. |
1078 ]. |
1077 |
1079 |
1078 "Modified: / 5.5.1999 / 18:43:02 / cg" |
1080 "Modified: / 5.5.1999 / 18:43:02 / cg" |
1079 ! |
1081 ! |
1080 |
1082 |
2281 ! ! |
2283 ! ! |
2282 |
2284 |
2283 !TerminalView class methodsFor:'documentation'! |
2285 !TerminalView class methodsFor:'documentation'! |
2284 |
2286 |
2285 version |
2287 version |
2286 ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.174 2014-02-18 16:53:24 stefan Exp $' |
2288 ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.175 2014-04-30 13:34:42 cg Exp $' |
2287 ! |
2289 ! |
2288 |
2290 |
2289 version_CVS |
2291 version_CVS |
2290 ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.174 2014-02-18 16:53:24 stefan Exp $' |
2292 ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.175 2014-04-30 13:34:42 cg Exp $' |
2291 ! ! |
2293 ! ! |
2292 |
2294 |
2293 |
2295 |
2294 TerminalView initialize! |
2296 TerminalView initialize! |