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