/[eiffelstudio]/branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_pretty_print_cmd.e
ViewVC logotype

Diff of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_pretty_print_cmd.e

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 26913 by manus, Sun Aug 12 23:50:20 2001 UTC revision 29952 by xavier, Thu Dec 27 23:35:40 2001 UTC
# Line 72  feature -- Access Line 72  feature -- Access
72                  do                  do
73                          Result := Precursor                          Result := Precursor
74                          Result.drop_actions.extend (~on_stone_dropped)                          Result.drop_actions.extend (~on_stone_dropped)
75                            Result.drop_actions.set_veto_pebble_function (~accepts_stone)
76                  end                  end
77    
78  feature -- Measurement  feature -- Measurement
# Line 168  feature {NONE} -- Implementation Line 169  feature {NONE} -- Implementation
169                          last_opened_dialog.set_stone (st)                          last_opened_dialog.set_stone (st)
170                  end                  end
171    
172            accepts_stone (st: OBJECT_STONE): BOOLEAN is
173                            -- Can the user drop `st'?
174                    do
175                            Result := (create {DUMP_VALUE}.make_object (st.object_address, st.dynamic_class)).has_formatted_output
176                    end
177    
178          opened_dialogs: ARRAYED_LIST [EB_PRETTY_PRINT_DIALOG]          opened_dialogs: ARRAYED_LIST [EB_PRETTY_PRINT_DIALOG]
179                          -- All pretty print dialogs that are appear on the screen (linked to `Current').                          -- All pretty print dialogs that are appear on the screen (linked to `Current').
180    

Legend:
Removed from v.26913  
changed lines
  Added in v.29952

  ViewVC Help
Powered by ViewVC 1.1.23