Workspace.st
changeset 6801 15d100b9b7ed
parent 6745 ab14bc6731e8
child 6810 ddebfcfad415
equal deleted inserted replaced
6800:5d1367f2f32a 6801:15d100b9b7ed
  2727     ^ nil
  2727     ^ nil
  2728 ! !
  2728 ! !
  2729 
  2729 
  2730 !Workspace methodsFor:'queries'!
  2730 !Workspace methodsFor:'queries'!
  2731 
  2731 
       
  2732 canDivertOutput
       
  2733     ^ false
       
  2734 !
       
  2735 
  2732 isWorkspace
  2736 isWorkspace
  2733     "back-query from the compiler to ask if this is an interactive view
  2737     "back-query from the compiler to ask if this is an interactive view
  2734      (for error feedback)"
  2738      (for error feedback)"
  2735 
  2739 
  2736     ^ true
  2740     ^ true