DebugView.st
changeset 1484 1e1e56b84b11
parent 1456 9bff6683235d
child 1486 6ae442626f20
equal deleted inserted replaced
1483:20842d41d0d0 1484:1e1e56b84b11
  2890     (sel == #withExecuteCursorDo:
  2890     (sel == #withExecuteCursorDo:
  2891     or:[sel == #withWaitCursorDo:]) ifTrue:[
  2891     or:[sel == #withWaitCursorDo:]) ifTrue:[
  2892         (mClass == DisplaySurface) ifTrue:[^ false].
  2892         (mClass == DisplaySurface) ifTrue:[^ false].
  2893     ].
  2893     ].
  2894 
  2894 
  2895     sel == #do: ifTrue:[
  2895     (sel == #do:
       
  2896     or:[sel == #from:to:do:]) ifTrue:[
  2896         mClass == Array ifTrue:[^ false].
  2897         mClass == Array ifTrue:[^ false].
  2897         mClass == OrderedCollection ifTrue:[^ false].
  2898         mClass == OrderedCollection ifTrue:[^ false].
  2898     ].
  2899     ].
  2899     (sel == #perform: 
  2900     (sel == #perform: 
  2900     or:[sel == #perform:with:
  2901     or:[sel == #perform:with:
  3775 ! !
  3776 ! !
  3776 
  3777 
  3777 !DebugView class methodsFor:'documentation'!
  3778 !DebugView class methodsFor:'documentation'!
  3778 
  3779 
  3779 version
  3780 version
  3780     ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.189 1998-02-05 16:15:55 cg Exp $'
  3781     ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.190 1998-02-21 14:47:01 cg Exp $'
  3781 ! !
  3782 ! !
  3782 DebugView initialize!
  3783 DebugView initialize!