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

Contents of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_editor_paste_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: 3079 byte(s)
First commit docking tabbed Eiffel Studio.
1 indexing
2 description : "Command to perform a clipboard-paste operation"
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_EDITOR_PASTE_COMMAND
10
11 inherit
12 EB_CLIPBOARD_COMMAND
13 redefine
14 executable,
15 tooltext,
16 pixel_buffer
17 end
18
19 EB_DEVELOPMENT_WINDOW_COMMAND
20 redefine
21 executable
22 end
23
24 create
25 make
26
27 feature -- Status report
28
29 executable: BOOLEAN is
30 -- Is the operation possible?
31 do
32 --| FIXME ARNAUD: waiting for Vision2 clipboard.
33 Result := is_sensitive
34 end
35
36 feature -- Execution
37
38 execute is
39 -- Execute the copy/copy/paste operation
40 do
41 --| FIXME ARNAUD: waiting for Vision2 clipboard.
42 editor.paste
43 end
44
45 feature {NONE} -- Implementation
46
47 menu_name: STRING is
48 -- Name as it appears in the menu (with & symbol).
49 do
50 Result := Interface_names.m_Paste
51 end
52
53 pixmap: EV_PIXMAP is
54 -- Pixmap representing the command.
55 do
56 Result := pixmaps.icon_pixmaps.general_paste_icon
57 end
58
59 pixel_buffer: EV_PIXEL_BUFFER is
60 -- Pixel buffer representing the command.
61 do
62 Result := pixmaps.icon_pixmaps.general_paste_icon_buffer
63 end
64
65 tooltip: STRING is
66 -- Tooltip for the toolbar button.
67 do
68 Result := Interface_names.f_Paste
69 end
70
71 tooltext: STRING is
72 -- Text for the toolbar button.
73 do
74 Result := Interface_names.b_Paste
75 end
76
77 editor: EB_EDITOR is
78 -- Editor corresponding to Current
79 do
80 Result := target.uis.current_editor
81 end
82
83 description: STRING is
84 -- Description for current command
85 do
86 Result := Interface_names.e_Paste
87 end
88
89 name: STRING is "Editor_paste";
90 -- Name of the command. Used to store the command in the
91 -- preferences.
92
93
94 indexing
95 copyright: "Copyright (c) 1984-2006, Eiffel Software"
96 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
97 licensing_options: "http://www.eiffel.com/licensing"
98 copying: "[
99 This file is part of Eiffel Software's Eiffel Development Environment.
100
101 Eiffel Software's Eiffel Development Environment is free
102 software; you can redistribute it and/or modify it under
103 the terms of the GNU General Public License as published
104 by the Free Software Foundation, version 2 of the License
105 (available at the URL listed under "license" above).
106
107 Eiffel Software's Eiffel Development Environment is
108 distributed in the hope that it will be useful, but
109 WITHOUT ANY WARRANTY; without even the implied warranty
110 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
111 See the GNU General Public License for more details.
112
113 You should have received a copy of the GNU General Public
114 License along with Eiffel Software's Eiffel Development
115 Environment; if not, write to the Free Software Foundation,
116 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
117 ]"
118 source: "[
119 Eiffel Software
120 356 Storke Road, Goleta, CA 93117 USA
121 Telephone 805-685-1006, Fax 805-685-6869
122 Website http://www.eiffel.com
123 Customer support http://support.eiffel.com
124 ]"
125
126 end -- class EB_EDITOR_PASTE_COMMAND

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23