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

Contents 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 61981 - (show annotations)
Sun Jul 30 06:07:40 2006 UTC (13 years, 7 months ago) by manus
File size: 2655 byte(s)
EiffelStudio docking branch. It only contains modified classes needed to get the docking version of EiffelStudio.
1 indexing
2 description : "Command to toggle display of feature assigner name."
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_ASSIGNER_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 assigner name
28 do
29 target.features_tool.toggle_assigner
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_assigner_icon
38 end
39
40 feature {NONE} -- Implementation
41
42 pixmap: EV_PIXMAP is
43 -- Pixmap representing the command.
44 do
45 end
46
47 tooltip: STRING is
48 -- Tooltip for the toolbar button.
49 do
50 if is_selected then
51 Result := Interface_names.f_hide_assigner
52 else
53 Result := Interface_names.f_show_assigner
54 end
55 end
56
57 is_selected: BOOLEAN is
58 do
59 Result := target.features_tool.is_assigner_enabled
60 end
61
62 description: STRING is
63 -- Description for this command.
64 do
65 Result := Interface_names.l_toggle_assigner
66 end
67
68 name: STRING is "Toggle_feature_assigner";
69 -- Name of the command. Used to store the command in the
70 -- preferences.
71
72 indexing
73 copyright: "Copyright (c) 1984-2006, Eiffel Software"
74 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
75 licensing_options: "http://www.eiffel.com/licensing"
76 copying: "[
77 This file is part of Eiffel Software's Eiffel Development Environment.
78
79 Eiffel Software's Eiffel Development Environment is free
80 software; you can redistribute it and/or modify it under
81 the terms of the GNU General Public License as published
82 by the Free Software Foundation, version 2 of the License
83 (available at the URL listed under "license" above).
84
85 Eiffel Software's Eiffel Development Environment is
86 distributed in the hope that it will be useful, but
87 WITHOUT ANY WARRANTY; without even the implied warranty
88 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
89 See the GNU General Public License for more details.
90
91 You should have received a copy of the GNU General Public
92 License along with Eiffel Software's Eiffel Development
93 Environment; if not, write to the Free Software Foundation,
94 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
95 ]"
96 source: "[
97 Eiffel Software
98 356 Storke Road, Goleta, CA 93117 USA
99 Telephone 805-685-1006, Fax 805-685-6869
100 Website http://www.eiffel.com
101 Customer support http://support.eiffel.com
102 ]"
103
104 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23