349 ! |
349 ! |
350 |
350 |
351 createWorkspace |
351 createWorkspace |
352 |scr| |
352 |scr| |
353 |
353 |
354 (OperatingSystem isUNIXlike and:[XTermView notNil]) ifTrue:[ |
354 "/ JV@2011-11-30: XTermView disabled as recent changes in |
355 scr := XTermView new |
355 "/ #startShellInSelectedWindow leads to infinite loop. |
356 ] ifFalse:[ |
356 "/ further investigation needed. |
357 VT100TerminalView isNil ifTrue:[ |
357 |
358 self error:'missing: VT100TerminalView' |
358 "/ (OperatingSystem isUNIXlike and:[XTermView notNil]) ifTrue:[ |
359 ]. |
359 "/ scr := XTermView new. |
360 |
360 "/ scr workingDirectory: initialDirectory. |
|
361 "/ ] ifFalse:[ |
|
362 VT100TerminalView isNil ifTrue:[ |
|
363 self error:'missing: VT100TerminalView' |
|
364 ]. |
361 scr := (HVScrollableView for:VT100TerminalView). |
365 scr := (HVScrollableView for:VT100TerminalView). |
362 scr autoHideScrollBars:false. |
366 scr autoHideScrollBars:false. |
363 scr horizontalMini:true. |
367 scr horizontalMini:true. |
364 ]. |
368 "/ ]. |
365 |
369 |
366 self window realized ifTrue:[ |
370 self window realized ifTrue:[ |
367 self window sensor pushUserEvent:#startShellInSelectedWindow for:self. |
371 self window sensor pushUserEvent:#startShellInSelectedWindow for:self. |
368 ]. |
372 ]. |
369 ^ scr |
373 ^ scr |
370 |
374 |
371 "Modified: / 25-11-2010 / 12:45:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
372 "Modified: / 08-04-2011 / 14:56:57 / cg" |
375 "Modified: / 08-04-2011 / 14:56:57 / cg" |
|
376 "Modified (format): / 30-11-2011 / 11:06:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
373 ! |
377 ! |
374 |
378 |
375 doKill |
379 doKill |
376 self selectedWorkspacesTextView doKill. |
380 self selectedWorkspacesTextView doKill. |
377 ! |
381 ! |