DebugView.st
changeset 6971 ef52630187a5
parent 6849 e95621a873be
child 7000 3302ab5a819e
equal deleted inserted replaced
6970:9e23d1301d4b 6971:ef52630187a5
  5428     "Created: / 17.11.2001 / 21:50:55 / cg"
  5428     "Created: / 17.11.2001 / 21:50:55 / cg"
  5429     "Modified: / 18.11.2001 / 00:12:29 / cg"
  5429     "Modified: / 18.11.2001 / 00:12:29 / cg"
  5430 !
  5430 !
  5431 
  5431 
  5432 confirm:aString
  5432 confirm:aString
  5433     "redefined here, to answer true, if exclusice Debugger, which
  5433     "open a modal yes-no dialog.
  5434      cannot handle popup boxes"
  5434      Redefined here, to answer true, if exclusice Debugger, which cannot handle popup boxes"
  5435 
  5435 
  5436     (exclusive or:[windowGroup isNil]) ifTrue:[
  5436     (exclusive or:[windowGroup isNil]) ifTrue:[
  5437         ^ true
  5437         ^ true
  5438     ].
  5438     ].
  5439     ^ super confirm:aString.
  5439     ^ super confirm:aString.
  6009 ! !
  6009 ! !
  6010 
  6010 
  6011 !DebugView class methodsFor:'documentation'!
  6011 !DebugView class methodsFor:'documentation'!
  6012 
  6012 
  6013 version
  6013 version
  6014     ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.400 2006-08-07 11:03:23 cg Exp $'
  6014     ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.401 2006-08-24 09:24:51 cg Exp $'
  6015 ! !
  6015 ! !
  6016 
  6016 
  6017 DebugView initialize!
  6017 DebugView initialize!