--- a/TerminalView.st	Tue Aug 04 17:40:54 1998 +0200
+++ b/TerminalView.st	Tue Aug 04 17:49:29 1998 +0200
@@ -26,6 +26,15 @@
 "
 ! !
 
+!TerminalView class methodsFor:'defaults'!
+
+defaultIcon
+    ^ Image fromFile:'bitmaps/xpmBitmaps/terminal_images/xterm-icon.xpm'
+
+    "Created: / 4.8.1998 / 17:48:18 / cg"
+    "Modified: / 4.8.1998 / 17:48:31 / cg"
+! !
+
 !TerminalView class methodsFor:'opening'!
 
 open
@@ -92,7 +101,7 @@
     top extent:(scr preferredExtent).
     top label:('executing: "' , aCommandString , '"').
     top iconLabel:'command'.
-    top icon:(Image fromFile:'bitmaps/xpmBitmaps/terminal_images/xterm-blank.xpm').
+    top icon:(self defaultIcon).
     top open.
 
     ^ vt52
@@ -103,7 +112,7 @@
     "
 
     "Created: / 9.7.1998 / 17:54:34 / cg"
-    "Modified: / 27.7.1998 / 13:47:44 / cg"
+    "Modified: / 4.8.1998 / 17:49:02 / cg"
 !
 
 openOnInput:inStream output:outStream
@@ -128,11 +137,11 @@
     top extent:(scr preferredExtent).
     top label:'shell'.
     top iconLabel:'shell'.
-    top icon:(Image fromFile:'bitmaps/xpmBitmaps/terminal_images/xterm-blank.xpm').
+    top icon:(self defaultIcon).
     top open.
     ^ top
 
-    "Modified: / 27.7.1998 / 13:47:21 / cg"
+    "Modified: / 4.8.1998 / 17:48:59 / cg"
 !
 
 openShell
@@ -165,7 +174,7 @@
     top extent:(scr preferredExtent).
     top label:'shell'.
     top iconLabel:'shell'.
-    top icon:(Image fromFile:'bitmaps/xpmBitmaps/terminal_images/xterm-blank.xpm').
+    top icon:(self defaultIcon).
     top open.
 
     ^ vt52
@@ -175,7 +184,7 @@
     "
 
     "Created: / 20.7.1998 / 18:28:15 / cg"
-    "Modified: / 27.7.1998 / 13:47:16 / cg"
+    "Modified: / 4.8.1998 / 17:48:54 / cg"
 ! !
 
 !TerminalView class methodsFor:'queries'!
@@ -1182,5 +1191,5 @@
 !TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.55 1998-07-28 10:08:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.56 1998-08-04 15:49:29 cg Exp $'
 ! !