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

Contents of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_history_back_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: 2836 byte(s)
First commit docking tabbed Eiffel Studio.
1 indexing
2 description : "Command to go backward in the history."
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_HISTORY_BACK_COMMAND
10
11 inherit
12 EB_HISTORY_COMMAND
13 redefine
14 executable,
15 mini_pixmap
16 end
17
18 create
19 make
20
21 feature -- Access
22
23 executable: BOOLEAN is
24 -- Is `operate' possible (i.e. can we go back)?
25 do
26 Result := history_manager.is_back_possible
27 end
28
29 mini_pixmap: EV_PIXMAP is
30 -- Mini pixmap representing the command.
31 do
32 Result := pixmaps.mini_pixmaps.general_previous_icon
33 end
34
35 feature {NONE} -- Implementation
36
37 operate is
38 -- Move backward in the history.
39 do
40 history_manager.back
41 end
42
43 menu_name: STRING is
44 -- Name as it appears in the menu (with & symbol).
45 do
46 Result := Interface_names.m_History_back
47 end
48
49 pixmap: EV_PIXMAP is
50 -- Pixmaps representing the command.
51 do
52 Result := pixmaps.icon_pixmaps.view_previous_icon
53 end
54
55 pixel_buffer: EV_PIXEL_BUFFER is
56 -- Pixel buffer representing the command.
57 do
58 Result := pixmaps.icon_pixmaps.view_previous_icon_buffer
59 end
60
61 tooltip: STRING is
62 -- Tooltip for the toolbar button.
63 do
64 Result := Interface_names.f_history_back
65 end
66
67 description: STRING is
68 -- Description for this command.
69 do
70 Result := Interface_names.e_history_back
71 end
72
73 name: STRING is "History_back";
74 -- Name of the command. Used to store the command in the
75 -- preferences.
76
77 indexing
78 copyright: "Copyright (c) 1984-2006, Eiffel Software"
79 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
80 licensing_options: "http://www.eiffel.com/licensing"
81 copying: "[
82 This file is part of Eiffel Software's Eiffel Development Environment.
83
84 Eiffel Software's Eiffel Development Environment is free
85 software; you can redistribute it and/or modify it under
86 the terms of the GNU General Public License as published
87 by the Free Software Foundation, version 2 of the License
88 (available at the URL listed under "license" above).
89
90 Eiffel Software's Eiffel Development Environment is
91 distributed in the hope that it will be useful, but
92 WITHOUT ANY WARRANTY; without even the implied warranty
93 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
94 See the GNU General Public License for more details.
95
96 You should have received a copy of the GNU General Public
97 License along with Eiffel Software's Eiffel Development
98 Environment; if not, write to the Free Software Foundation,
99 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
100 ]"
101 source: "[
102 Eiffel Software
103 356 Storke Road, Goleta, CA 93117 USA
104 Telephone 805-685-1006, Fax 805-685-6869
105 Website http://www.eiffel.com
106 Customer support http://support.eiffel.com
107 ]"
108
109 end -- class EB_HISTORY_BACK_COMMAND

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23