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

Contents of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_history_forth_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: 2830 byte(s)
First commit docking tabbed Eiffel Studio.
1 indexing
2 description : "Command to go forward 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_FORTH_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 forth)?
25 do
26 Result := history_manager.is_forth_possible
27 end
28
29 mini_pixmap: EV_PIXMAP is
30 -- Mini pixmap representing the command.
31 do
32 Result := pixmaps.mini_pixmaps.general_next_icon
33 end
34
35 feature {NONE} -- Implementation
36
37 operate is
38 -- Move forward in the history.
39 do
40 history_manager.forth
41 end
42
43 pixmap: EV_PIXMAP is
44 -- Pixmaps representing the command.
45 do
46 Result :=pixmaps.icon_pixmaps.view_next_icon
47 end
48
49 pixel_buffer: EV_PIXEL_BUFFER is
50 -- Pixel buffer representing the command.
51 do
52 Result := pixmaps.icon_pixmaps.view_next_icon_buffer
53 end
54
55 menu_name: STRING is
56 -- Name as it appears in the menu (with & symbol).
57 do
58 Result := Interface_names.m_History_forth
59 end
60
61 tooltip: STRING is
62 -- Tooltip for the toolbar button.
63 do
64 Result := Interface_names.f_History_forth
65 end
66
67 description: STRING is
68 -- Description for this command.
69 do
70 Result := Interface_names.e_History_forth
71 end
72
73 name: STRING is "History_forth";
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_FORTH_COMMAND

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23