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

Annotation of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_toggle_feature_assigner_command.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 62171 - (hide annotations)
Tue Aug 1 01:27:17 2006 UTC (13 years, 5 months ago) by larryl
File size: 2819 byte(s)
First commit docking tabbed Eiffel Studio.
1 alexk 51887 indexing
2     description : "Command to toggle display of feature assigner name."
3 manus 56535 legal: "See notice at end of class."
4     status: "See notice at end of class."
5 alexk 51887 date : "$Date$"
6     revision : "$Revision$"
7    
8     class
9     EB_TOGGLE_FEATURE_ASSIGNER_COMMAND
10    
11     inherit
12 jfiat 57251 EB_TOOLBARABLE_TOGGLE_COMMAND
13 alexk 51887 redefine
14 jfiat 57251 mini_pixmap
15 alexk 51887 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 assigner name
28     do
29 larryl 62171 target.tools.features_tool.toggle_assigner
30 alexk 51887 end
31    
32     feature -- Access
33    
34 king 56753 mini_pixmap: EV_PIXMAP is
35     -- Pixmap representing the command for mini toolbars.
36 alexk 51887 do
37 paulb 59955 Result := pixmaps.mini_pixmaps.completion_show_assigner_icon
38 alexk 51887 end
39    
40     feature {NONE} -- Implementation
41    
42 king 56753 pixmap: EV_PIXMAP is
43     -- Pixmap representing the command.
44 alexk 51887 do
45     end
46    
47 larryl 62171 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 alexk 51887 tooltip: STRING is
54     -- Tooltip for the toolbar button.
55     do
56 jfiat 57251 if is_selected then
57 alexk 53568 Result := Interface_names.f_hide_assigner
58     else
59     Result := Interface_names.f_show_assigner
60     end
61 alexk 51887 end
62    
63 jfiat 57251 is_selected: BOOLEAN is
64     do
65 larryl 62171 Result := target.tools.features_tool.is_assigner_enabled
66 jfiat 57251 end
67    
68 alexk 51887 description: STRING is
69     -- Description for this command.
70     do
71 alexk 53568 Result := Interface_names.l_toggle_assigner
72 alexk 51887 end
73    
74 jfiat 57251 name: STRING is "Toggle_feature_assigner";
75 alexk 51887 -- Name of the command. Used to store the command in the
76     -- preferences.
77    
78 manus 56535 indexing
79     copyright: "Copyright (c) 1984-2006, Eiffel Software"
80 manus 58027 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
81 manus 56535 licensing_options: "http://www.eiffel.com/licensing"
82     copying: "[
83     This file is part of Eiffel Software's Eiffel Development Environment.
84 manus 58027
85 manus 56535 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 manus 58027
91 manus 56535 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 manus 58027
97 manus 56535 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 alexk 51887 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23