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

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

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

revision 62170 by manus, Sun Jul 30 06:40:47 2006 UTC revision 62171 by larryl, Tue Aug 1 01:27:17 2006 UTC
# Line 92  feature -- Basic operations Line 92  feature -- Basic operations
92                                          end                                          end
93                                  else                                  else
94                                          create explain_dialog.make_with_text (Interface_names.e_Diagram_add_class_figure_relations)                                          create explain_dialog.make_with_text (Interface_names.e_Diagram_add_class_figure_relations)
95                                          explain_dialog.show_modal_to_window (tool.development_window.window)                                          explain_dialog.show_modal_to_window (tool.develop_window.window)
96                                  end                                  end
97                          end                          end
98                  end                  end
# Line 392  feature {NONE} -- Implementation Line 392  feature {NONE} -- Implementation
392                          end                          end
393                  end                  end
394    
395            pixel_buffer: EV_PIXEL_BUFFER is
396                            -- Pixel buffer representing the command.
397                    do
398                            inspect
399                                    selected_implementation
400                            when adds_suppliers then
401                                    Result := pixmaps.icon_pixmaps.class_supliers_icon_buffer
402                            when adds_clients then
403                                    Result := pixmaps.icon_pixmaps.class_clients_icon_buffer
404                            when adds_descendents then
405                                    Result := pixmaps.icon_pixmaps.class_descendents_icon_buffer
406                            when adds_ancestors then
407                                    Result := pixmaps.icon_pixmaps.class_ancestors_icon_buffer
408                            end
409                    end
410    
411          description: STRING is          description: STRING is
412                          -- Description for this command.                          -- Description for this command.
413                  do                  do

Legend:
Removed from v.62170  
changed lines
  Added in v.62171

  ViewVC Help
Powered by ViewVC 1.1.23