XTermView.st
branchjv
changeset 13605 30dc368db413
parent 12431 9f0c59c742d5
child 15566 184cea584be5
equal deleted inserted replaced
13604:500b2708e22d 13605:30dc368db413
   275     | args |
   275     | args |
   276 
   276 
   277     args := OrderedCollection new.
   277     args := OrderedCollection new.
   278     args
   278     args
   279         add: self xtermExecutable;
   279         add: self xtermExecutable;
   280         add: (XTermType == #rxvt ifTrue:['-embed'] ifFalse:['-into']); add: drawableId address printString;        
   280         add: (XTermType == #xterm ifTrue:['-into'] ifFalse:['-embed']); add: drawableId address printString;        
   281         add: '-j';
   281         add: '-j';
   282         add: '-font'; add: (device fullFontNameOf: (font fontId));
   282         add: '-font'; add: (device fullFontNameOf: (font fontId));
   283         add: '-fg'; add: 'white'"(self xcolorNameFor: foreground)";
   283         add: '-fg'; add: 'white'"(self xcolorNameFor: foreground)";
   284         add: '-bg'; add: 'black'"(self xcolorNameFor: viewBackground)".
   284         add: '-bg'; add: 'black'"(self xcolorNameFor: viewBackground)".
   285 
   285 
   288         add: '-tn'; add: 'xterm'
   288         add: '-tn'; add: 'xterm'
   289     ].
   289     ].
   290 
   290 
   291     ^args asArray
   291     ^args asArray
   292 
   292 
   293     "Modified: / 10-06-2011 / 19:51:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   293     "Modified: / 12-09-2013 / 00:12:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   294 !
   294 !
   295 
   295 
   296 xtermExecutable
   296 xtermExecutable
   297 
   297 
   298     ^ XTermExecutable
   298     ^ XTermExecutable