equal
deleted
inserted
replaced
1526 , ' 2>&1' ). |
1526 , ' 2>&1' ). |
1527 stream notNil ifTrue:[ |
1527 stream notNil ifTrue:[ |
1528 [ |
1528 [ |
1529 |codeView lines| |
1529 |codeView lines| |
1530 |
1530 |
|
1531 stream buffered:true. |
1531 codeView := subView. |
1532 codeView := subView. |
1532 |
1533 |
1533 replace ifTrue:[ |
1534 replace ifTrue:[ |
1534 codeView list:nil. |
1535 codeView list:nil. |
1535 lnr := 1. |
1536 lnr := 1. |
1536 ]. |
1537 ]. |
1537 |
1538 |
1538 [stream atEnd] whileFalse:[ |
1539 [stream atEnd] whileFalse:[ |
1539 (stream readWaitWithTimeoutMs:50) ifFalse:[ |
1540 (stream readWaitWithTimeoutMs:50) ifFalse:[ |
1540 " |
1541 " |
1541 data available |
1542 data available; read up to 50 lines |
|
1543 and insert as a single junk. This speeds up |
|
1544 display of long output (less line-scrolling). |
1542 " |
1545 " |
1543 lines := OrderedCollection new:50. |
1546 lines := OrderedCollection new:50. |
1544 line := stream nextLine. |
1547 line := stream nextLine. |
1545 line notNil ifTrue:[lines add:line]. |
1548 line notNil ifTrue:[lines add:line]. |
1546 |
1549 |
1633 subView size > 10000 ifTrue:[ |
1636 subView size > 10000 ifTrue:[ |
1634 self warn:'text quite large now - please cut off some lines' |
1637 self warn:'text quite large now - please cut off some lines' |
1635 ] |
1638 ] |
1636 |
1639 |
1637 "Modified: 21.9.1995 / 11:18:46 / claus" |
1640 "Modified: 21.9.1995 / 11:18:46 / claus" |
1638 "Modified: 12.5.1996 / 16:56:06 / cg" |
1641 "Modified: 13.9.1996 / 09:03:17 / cg" |
1639 ! |
1642 ! |
1640 |
1643 |
1641 doFileGet:viaDoubleClick |
1644 doFileGet:viaDoubleClick |
1642 "get selected file - show contents in subView" |
1645 "get selected file - show contents in subView" |
1643 |
1646 |
2642 ! ! |
2645 ! ! |
2643 |
2646 |
2644 !FileBrowser class methodsFor:'documentation'! |
2647 !FileBrowser class methodsFor:'documentation'! |
2645 |
2648 |
2646 version |
2649 version |
2647 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.94 1996-07-11 12:11:26 cg Exp $' |
2650 ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.95 1996-09-13 07:04:01 cg Exp $' |
2648 ! ! |
2651 ! ! |