BrowserView.st
changeset 4858 6995b1a8eecd
parent 4842 5212e61a6c78
child 4933 7e3a4fb72aad
equal deleted inserted replaced
4857:a44999f84640 4858:6995b1a8eecd
 13349     ^ topView withWaitCursorDo:aBlock
 13349     ^ topView withWaitCursorDo:aBlock
 13350 
 13350 
 13351     "Created: 18.8.1997 / 15:41:52 / cg"
 13351     "Created: 18.8.1997 / 15:41:52 / cg"
 13352 ! !
 13352 ! !
 13353 
 13353 
 13354 !BrowserView methodsFor:'private - defaults'!
 13354 !BrowserView methodsFor:'private-defaults'!
 13355 
 13355 
 13356 canvasIcon
 13356 canvasIcon
 13357     "answer an icon to mark canvas (windowSpec) methods"
 13357     "answer an icon to mark canvas (windowSpec) methods"
 13358 
 13358 
 13359     ^ self fetchIcon:#canvas selector:#canvasIcon
 13359     ^ self fetchIcon:#canvas selector:#canvasIcon
 13466     "answer an icon to mark traced methods"
 13466     "answer an icon to mark traced methods"
 13467 
 13467 
 13468     ^ self fetchIcon:#trace selector:#traceIcon
 13468     ^ self fetchIcon:#trace selector:#traceIcon
 13469 ! !
 13469 ! !
 13470 
 13470 
 13471 !BrowserView methodsFor:'private queries'!
 13471 !BrowserView methodsFor:'private-queries'!
 13472 
 13472 
 13473 hasClassCategorySelected
 13473 hasClassCategorySelected
 13474         ^ currentClassCategory notNil
 13474         ^ currentClassCategory notNil
 13475 !
 13475 !
 13476 
 13476 
 14648 ! !
 14648 ! !
 14649 
 14649 
 14650 !BrowserView class methodsFor:'documentation'!
 14650 !BrowserView class methodsFor:'documentation'!
 14651 
 14651 
 14652 version
 14652 version
 14653     ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.757 2003-04-24 09:48:08 penk Exp $'
 14653     ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.758 2003-05-07 14:05:56 cg Exp $'
 14654 ! !
 14654 ! !
 14655 
 14655 
 14656 BrowserView initialize!
 14656 BrowserView initialize!