/[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 62171 - (show annotations)
Tue Aug 1 01:27:17 2006 UTC (13 years, 4 months ago) by larryl
File size: 2950 byte(s)
First commit docking tabbed Eiffel Studio.
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.develop_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 pixel_buffer: EV_PIXEL_BUFFER is
58 -- Pixel buffer representing the command.
59 do
60 -- Currently there is no pixel buffer for this command.
61 end
62
63 tooltip: STRING is
64 -- Tooltip for the toolbar button.
65 do
66 Result := Interface_names.f_diagram_history
67 end
68
69 name: STRING is "History_tool";
70 -- Name of the command. Used to store the command in the
71 -- preferences.
72
73 indexing
74 copyright: "Copyright (c) 1984-2006, Eiffel Software"
75 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
76 licensing_options: "http://www.eiffel.com/licensing"
77 copying: "[
78 This file is part of Eiffel Software's Eiffel Development Environment.
79
80 Eiffel Software's Eiffel Development Environment is free
81 software; you can redistribute it and/or modify it under
82 the terms of the GNU General Public License as published
83 by the Free Software Foundation, version 2 of the License
84 (available at the URL listed under "license" above).
85
86 Eiffel Software's Eiffel Development Environment is
87 distributed in the hope that it will be useful, but
88 WITHOUT ANY WARRANTY; without even the implied warranty
89 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
90 See the GNU General Public License for more details.
91
92 You should have received a copy of the GNU General Public
93 License along with Eiffel Software's Eiffel Development
94 Environment; if not, write to the Free Software Foundation,
95 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
96 ]"
97 source: "[
98 Eiffel Software
99 356 Storke Road, Goleta, CA 93117 USA
100 Telephone 805-685-1006, Fax 805-685-6869
101 Website http://www.eiffel.com
102 Customer support http://support.eiffel.com
103 ]"
104
105 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