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

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

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23