WorkspaceApplication.st
changeset 14457 75bcb6c122a7
parent 14446 fffa2de230fc
child 14594 5c29d5fd8235
equal deleted inserted replaced
14456:218e0f00e309 14457:75bcb6c122a7
  3430 
  3430 
  3431 addTerminal
  3431 addTerminal
  3432     | v termView |
  3432     | v termView |
  3433 
  3433 
  3434     (OperatingSystem isUNIXlike 
  3434     (OperatingSystem isUNIXlike 
  3435             and:[OperatingSystem isOSXlike not "/ mhm - xterm embedding seems to not work on Darvin 
  3435             "/ mhm - xterm embedding seems to no longer work; the default from user prefs is therefore false
       
  3436             and:[UserPreferences current useXTermViewIfAvailable 
  3436             and:[XTermView notNil 
  3437             and:[XTermView notNil 
  3437             and:[XTermView isAvailable]]]) ifTrue:[
  3438             and:[XTermView isAvailable]]]) ifTrue:[
  3438         v := termView := XTermView new
  3439         v := termView := XTermView new
  3439     ] ifFalse:[
  3440     ] ifFalse:[
       
  3441         VT100TerminalView isNil ifTrue:[
       
  3442             Dialog warn:('Missing class: ' , 'VT100TerminalView' allBold).
       
  3443             AbortOperationRequest raise 
       
  3444         ].
  3440         v := (HVScrollableView for:VT100TerminalView).
  3445         v := (HVScrollableView for:VT100TerminalView).
  3441         termView := v scrolledView.
  3446         termView := v scrolledView.
  3442         v autoHideScrollBars:false.
  3447         v autoHideScrollBars:false.
  3443         v horizontalMini:true.
  3448         v horizontalMini:true.
  3444         "/ the startShell seems to realize the view, which is not allowed.
  3449         "/ the startShell seems to realize the view, which is not allowed.
  4280 ! !
  4285 ! !
  4281 
  4286 
  4282 !WorkspaceApplication class methodsFor:'documentation'!
  4287 !WorkspaceApplication class methodsFor:'documentation'!
  4283 
  4288 
  4284 version
  4289 version
  4285     ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.267 2014-06-03 16:54:51 cg Exp $'
  4290     ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.268 2014-06-05 14:38:56 cg Exp $'
  4286 !
  4291 !
  4287 
  4292 
  4288 version_CVS
  4293 version_CVS
  4289     ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.267 2014-06-03 16:54:51 cg Exp $'
  4294     ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.268 2014-06-05 14:38:56 cg Exp $'
  4290 !
  4295 !
  4291 
  4296 
  4292 version_SVN
  4297 version_SVN
  4293     ^ '$Id: WorkspaceApplication.st,v 1.267 2014-06-03 16:54:51 cg Exp $'
  4298     ^ '$Id: WorkspaceApplication.st,v 1.268 2014-06-05 14:38:56 cg Exp $'
  4294 ! !
  4299 ! !
  4295 
  4300