TerminalView.st
changeset 1017 8af14b2315fa
parent 1015 61f7ea3e5463
child 1021 c3963e925eb5
equal deleted inserted replaced
1016:2d8e8b9bb9a5 1017:8af14b2315fa
   296     "Created: / 12.6.1998 / 22:34:39 / cg"
   296     "Created: / 12.6.1998 / 22:34:39 / cg"
   297     "Modified: / 20.6.1998 / 19:45:28 / cg"
   297     "Modified: / 20.6.1998 / 19:45:28 / cg"
   298 !
   298 !
   299 
   299 
   300 defineWindowSize
   300 defineWindowSize
   301     inStream notNil ifTrue:[
   301     (inStream notNil 
       
   302     and:[inStream isExternalStream]) ifTrue:[
   302         (OperatingSystem 
   303         (OperatingSystem 
   303             setWindowSizeOnFileDescriptor:(inStream fileDescriptor)
   304             setWindowSizeOnFileDescriptor:(inStream fileDescriptor)
   304             width:(innerWidth // font width)
   305             width:(innerWidth // font width)
   305             height:(nFullLinesShown)) ifFalse:[
   306             height:(nFullLinesShown)) ifFalse:[
   306 "/            Transcript showCR:'VT100: cannot change windowSize'.
   307 "/            Transcript showCR:'VT100: cannot change windowSize'.
   311     shellPid notNil ifTrue:[
   312     shellPid notNil ifTrue:[
   312         OperatingSystem sendSignal:OperatingSystem sigWINCH to:shellPid
   313         OperatingSystem sendSignal:OperatingSystem sigWINCH to:shellPid
   313     ]
   314     ]
   314 
   315 
   315     "Created: / 11.6.1998 / 22:51:39 / cg"
   316     "Created: / 11.6.1998 / 22:51:39 / cg"
   316     "Modified: / 20.6.1998 / 20:29:13 / cg"
   317     "Modified: / 27.7.1998 / 16:07:18 / cg"
   317 !
   318 !
   318 
   319 
   319 keyPress:aKey x:x y:y
   320 keyPress:aKey x:x y:y
   320     |rest rawKey seq|
   321     |rest rawKey seq|
   321 
   322 
   980     ^ self
   981     ^ self
   981 ! !
   982 ! !
   982 
   983 
   983 !TerminalView methodsFor:'processing - input'!
   984 !TerminalView methodsFor:'processing - input'!
   984 
   985 
       
   986 nextPutAll:aString
       
   987     self processInput:aString n:aString size
       
   988 
       
   989     "Created: / 27.7.1998 / 15:10:59 / cg"
       
   990 !
       
   991 
   985 processInput:buffer n:count
   992 processInput:buffer n:count
   986     |sensor|
   993     |sensor|
   987 
   994 
   988     self hideCursor.
   995     self hideCursor.
   989 
   996 
  1154 ! !
  1161 ! !
  1155 
  1162 
  1156 !TerminalView class methodsFor:'documentation'!
  1163 !TerminalView class methodsFor:'documentation'!
  1157 
  1164 
  1158 version
  1165 version
  1159     ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.53 1998-07-27 12:01:26 cg Exp $'
  1166     ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.54 1998-07-27 14:29:05 cg Exp $'
  1160 ! !
  1167 ! !