ProcessMonitor.st
changeset 1349 1d0a92deed03
parent 1301 6c2fd40d502f
child 1504 ca559ae2710a
equal deleted inserted replaced
1348:f958dbefe269 1349:1d0a92deed03
   163         processes notNil ifTrue:[
   163         processes notNil ifTrue:[
   164             oldSelection := listView selection.
   164             oldSelection := listView selection.
   165             oldSelection notNil ifTrue:[
   165             oldSelection notNil ifTrue:[
   166                 oldSelection := oldSelection collect:[:idx | |pI|
   166                 oldSelection := oldSelection collect:[:idx | |pI|
   167                                                 pI := idx-numHeaderLines.
   167                                                 pI := idx-numHeaderLines.
   168                                                 pI > processes size ifTrue:[
   168                                                 (pI > processes size or:[pI < 1]) ifTrue:[
   169                                                     nil
   169                                                     nil
   170                                                 ] ifFalse:[
   170                                                 ] ifFalse:[
   171                                                     processes at:pI
   171                                                     processes at:pI
   172                                                 ]
   172                                                 ]
   173                                              ].
   173                                              ].
   652 ! !
   652 ! !
   653 
   653 
   654 !ProcessMonitor class methodsFor:'documentation'!
   654 !ProcessMonitor class methodsFor:'documentation'!
   655 
   655 
   656 version
   656 version
   657     ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.56 1997-08-22 15:54:40 cg Exp $'
   657     ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.57 1997-10-16 14:42:01 cg Exp $'
   658 ! !
   658 ! !