--- a/ShellView.st Mon Mar 30 14:50:20 1998 +0200
+++ b/ShellView.st Tue Mar 31 20:24:01 1998 +0200
@@ -49,80 +49,80 @@
!ShellView class methodsFor:'interface specs'!
windowSpec
- "this window spec was automatically generated by the ST/X UIPainter"
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
- "do not manually edit this - the painter/builder may not be able to
- handle the specification if its corrupted."
+ "Do not manually edit this!! If it is corrupted,
+ the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:ShellView andSelector:#windowSpec
ShellView new openInterface:#windowSpec
+ ShellView open
"
- "ShellView open"
<resource: #canvas>
^
#(#FullSpec
- #'window:'
+ #window:
#(#WindowSpec
- #'name:' 'unnamed canvas'
- #'layout:' #(#LayoutFrame 197 0 172 0 496 0 440 0)
- #'label:' 'unnamed canvas'
- #'min:' #(#Point 10 10)
- #'max:' #(#Point 1152 864)
- #'bounds:' #(#Rectangle 197 172 497 441)
- #'usePreferredExtent:' false
+ #name: 'unnamed canvas'
+ #layout: #(#LayoutFrame 252 0 229 0 551 0 497 0)
+ #label: 'unnamed canvas'
+ #min: #(#Point 10 10)
+ #max: #(#Point 1152 864)
+ #bounds: #(#Rectangle 252 229 552 498)
+ #usePreferredExtent: false
)
- #'component:'
+ #component:
#(#SpecCollection
- #'collection:'
+ #collection:
#(
#(#TextEditorSpec
- #'name:' 'fileContentsView'
- #'layout:' #(#LayoutFrame 0 0 0 0.0 0 1 -22 1)
- #'model:' #valueOfFileContents
- #'hasHorizontalScrollBar:' true
- #'hasVerticalScrollBar:' true
- #'miniScrollerHorizontal:' true
+ #name: 'fileContentsView'
+ #layout: #(#LayoutFrame 0 0 0 0.0 0 1 -22 1)
+ #model: #valueOfFileContents
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #miniScrollerHorizontal: true
)
#(#SequenceViewSpec
- #'name:' 'shellOutputView'
- #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -22 1.0)
- #'model:' #selectionOfShellOutput
- #'style:' #(#FontDescription #courier #medium #roman 12)
- #'hasHorizontalScrollBar:' true
- #'hasVerticalScrollBar:' true
- #'miniScrollerHorizontal:' true
- #'doubleClickSelector:' #'listDoubleClicked:'
- #'useIndex:' true
- #'sequenceList:' #listOfShellOutput
+ #name: 'shellOutputView'
+ #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -22 1.0)
+ #model: #selectionOfShellOutput
+ #style: #(#FontDescription #courier #medium #roman 12)
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #doubleClickSelector: #listDoubleClicked:
+ #useIndex: true
+ #sequenceList: #listOfShellOutput
)
#(#ActionButtonSpec
- #'name:' 'fileNameButton'
- #'layout:' #(#LayoutFrame 0 0.0 -22 1 -60 1.0 0 1.0)
- #'model:' #toggleViews
+ #name: 'fileNameButton'
+ #layout: #(#LayoutFrame 0 0.0 -22 1 -60 1.0 0 1.0)
+ #model: #toggleViews
)
#(#ActionButtonSpec
- #'name:' 'saveButton'
- #'layout:' #(#LayoutFrame -60 1 -22 1 0 1.0 0 1.0)
- #'label:' 'Save'
- #'model:' #saveFileContents
+ #name: 'saveButton'
+ #layout: #(#LayoutFrame -60 1 -22 1 0 1.0 0 1.0)
+ #label: 'Save'
+ #model: #saveFileContents
)
#(#ActionButtonSpec
- #'name:' 'stopButton'
- #'layout:' #(#LayoutFrame 0 0 -22 1 0 1.0 0 1)
- #'label:' 'Stop'
- #'model:' #terminateTask
+ #name: 'stopButton'
+ #layout: #(#LayoutFrame 0 0 -22 1 0 1.0 0 1)
+ #label: 'Stop'
+ #model: #terminateTask
)
#(#InputFieldSpec
- #'name:' 'commandInputField'
- #'layout:' #(#LayoutFrame 0 0 -22 1 0 1.0 0 1)
- #'model:' #valueOfCommand
- #'type:' #string
- #'acceptOnReturn:' false
- #'acceptOnTab:' false
+ #name: 'commandInputField'
+ #layout: #(#LayoutFrame 0 0 -22 1 0 1.0 0 1)
+ #model: #valueOfCommand
+ #type: #string
+ #acceptOnReturn: false
+ #acceptOnTab: false
)
)
)
@@ -189,6 +189,7 @@
|s|
aCommand isNil | task notNil | directory isNil ifTrue: [^nil].
+ aCommand isString ifTrue: [^self executeCommands: (Array with: aCommand)].
aCommand key size = 0 ifTrue: [^aCommand key: ''].
self valueOfCommand value: ''.