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

Contents of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_diagram_history_command.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 62009 - (show annotations)
Sun Jul 30 06:13:13 2006 UTC (13 years, 4 months ago) by manus
File size: 2802 byte(s)
EiffelStudio docking branch. It only contains modified classes needed to get the docking version of EiffelStudio.
1 indexing
2 description : "Command to browse through the history of undoable diagram commands."
3 legal: "See notice at end of class."
4 status: "See notice at end of class."
5 date : "$Date$"
6 revision : "$Revision$"
7
8 class
9 EB_DIAGRAM_HISTORY_COMMAND
10
11 inherit
12 EB_CONTEXT_DIAGRAM_COMMAND
13 redefine
14 new_toolbar_item,
15 initialize
16 end
17
18 create
19 make
20
21 feature {NONE} -- Initialization
22
23 initialize is
24 -- Initialize default values.
25 do
26 create accelerator.make_with_key_combination (
27 create {EV_KEY}.make_with_code ({EV_KEY_CONSTANTS}.key_h),
28 True, False, False)
29 accelerator.actions.extend (agent execute)
30 end
31
32 feature -- Basic operations
33
34 execute is
35 -- Display history dialog.
36 do
37 if is_sensitive then
38 history.show_relative_to_window (tool.development_window.window)
39 end
40 end
41
42 new_toolbar_item (display_text: BOOLEAN): EB_COMMAND_TOOL_BAR_BUTTON is
43 -- Create a new toolbar button for this command.
44 do
45 Result := Precursor (display_text)
46 Result.select_actions.extend (agent execute)
47 end
48
49 feature {NONE} -- Implementation
50
51 pixmap: EV_PIXMAP is
52 -- Pixmap representing the command.
53 do
54 Result := pixmaps.icon_pixmaps.general_undo_history_icon
55 end
56
57 tooltip: STRING is
58 -- Tooltip for the toolbar button.
59 do
60 Result := Interface_names.f_diagram_history
61 end
62
63 name: STRING is "History_tool";
64 -- Name of the command. Used to store the command in the
65 -- preferences.
66
67 indexing
68 copyright: "Copyright (c) 1984-2006, Eiffel Software"
69 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
70 licensing_options: "http://www.eiffel.com/licensing"
71 copying: "[
72 This file is part of Eiffel Software's Eiffel Development Environment.
73
74 Eiffel Software's Eiffel Development Environment is free
75 software; you can redistribute it and/or modify it under
76 the terms of the GNU General Public License as published
77 by the Free Software Foundation, version 2 of the License
78 (available at the URL listed under "license" above).
79
80 Eiffel Software's Eiffel Development Environment is
81 distributed in the hope that it will be useful, but
82 WITHOUT ANY WARRANTY; without even the implied warranty
83 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
84 See the GNU General Public License for more details.
85
86 You should have received a copy of the GNU General Public
87 License along with Eiffel Software's Eiffel Development
88 Environment; if not, write to the Free Software Foundation,
89 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
90 ]"
91 source: "[
92 Eiffel Software
93 356 Storke Road, Goleta, CA 93117 USA
94 Telephone 805-685-1006, Fax 805-685-6869
95 Website http://www.eiffel.com
96 Customer support http://support.eiffel.com
97 ]"
98
99 end -- class EB_DIAGRAM_HISTORY_COMMAND

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision

  ViewVC Help
Powered by ViewVC 1.1.23