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

Contents of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_show_physics_settings_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: 3551 byte(s)
First commit docking tabbed Eiffel Studio.
1 indexing
2 description: "Command to show the settings dialog for physics."
3 legal: "See notice at end of class."
4 status: "See notice at end of class."
5 author: "Benno Baumgartner"
6 date: "$Date$"
7 revision: "$Revision$"
8
9 class
10 EB_SHOW_PHYSICS_SETTINGS_COMMAND
11
12 inherit
13 EB_CONTEXT_DIAGRAM_COMMAND
14 redefine
15 new_toolbar_item,
16 description,
17 initialize
18 end
19
20 create
21 make
22
23 feature {NONE} -- Initialization
24
25 initialize is
26 -- Initialize default values.
27 do
28 create accelerator.make_with_key_combination (
29 create {EV_KEY}.make_with_code ({EV_KEY_CONSTANTS}.key_p),
30 True, False, True)
31 accelerator.actions.extend (agent execute)
32 end
33
34 feature -- Basic operations
35
36 execute is
37 -- Perform operation.
38 local
39 dialog: EB_FORCE_SETTINGS_DIALOG
40 do
41 if is_sensitive then
42 create dialog.make (tool.force_directed_layout, tool)
43 dialog.show_modal_to_window (tool.develop_window.window)
44 end
45 end
46
47 new_toolbar_item (display_text: BOOLEAN): EB_COMMAND_TOOL_BAR_BUTTON is
48 -- Create a new toolbar button for this command.
49 --
50 -- Call `recycle' on the result when you don't need it anymore otherwise
51 -- it will never be garbage collected.
52 do
53 create Result.make (Current)
54 current_button := Result
55 initialize_toolbar_item (Result, display_text)
56 Result.select_actions.extend (agent execute)
57 end
58
59 feature -- Access
60
61 tooltip: STRING is
62 -- Tooltip for the toolbar button.
63 do
64 Result := Interface_names.f_diagram_force_settings
65 end
66
67 feature {NONE} -- Implementation
68
69 pixmap: EV_PIXMAP is
70 -- Pixmap representing the command.
71 do
72 Result := pixmaps.icon_pixmaps.diagram_physics_settings_icon
73 end
74
75 pixel_buffer: EV_PIXEL_BUFFER is
76 -- Pixel buffer representing the command.
77 do
78 -- Currently there is no pixel buffer for this command.
79 end
80
81 description: STRING is
82 -- Description for this command.
83 do
84 Result := Interface_names.f_diagram_force_settings
85 end
86
87 name: STRING is "Force_settings"
88 -- Name of the command. Used to store the command in the
89 -- preferences.
90
91 feature {EB_CONTEXT_EDITOR} -- Implementation
92
93 current_button: EB_COMMAND_TOOL_BAR_BUTTON;
94 -- Current toggle button.
95
96 indexing
97 copyright: "Copyright (c) 1984-2006, Eiffel Software"
98 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
99 licensing_options: "http://www.eiffel.com/licensing"
100 copying: "[
101 This file is part of Eiffel Software's Eiffel Development Environment.
102
103 Eiffel Software's Eiffel Development Environment is free
104 software; you can redistribute it and/or modify it under
105 the terms of the GNU General Public License as published
106 by the Free Software Foundation, version 2 of the License
107 (available at the URL listed under "license" above).
108
109 Eiffel Software's Eiffel Development Environment is
110 distributed in the hope that it will be useful, but
111 WITHOUT ANY WARRANTY; without even the implied warranty
112 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
113 See the GNU General Public License for more details.
114
115 You should have received a copy of the GNU General Public
116 License along with Eiffel Software's Eiffel Development
117 Environment; if not, write to the Free Software Foundation,
118 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
119 ]"
120 source: "[
121 Eiffel Software
122 356 Storke Road, Goleta, CA 93117 USA
123 Telephone 805-685-1006, Fax 805-685-6869
124 Website http://www.eiffel.com
125 Customer support http://support.eiffel.com
126 ]"
127
128 end -- class EB_SHOW_PHYSICS_SETTINGS_COMMAND

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23