diff -r a448c854fcbb -r 732fd3255894 TerminalView.st --- 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 $' ! !