/[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 56535 - (show annotations)
Tue Jan 17 01:37:10 2006 UTC (14 years ago) by manus
Original Path: trunk/Src/bench/Eiffel/interface/new_graphical/commands/eb_editor_paste_command.e
File size: 2954 byte(s)
Added text of the GPL license to all classes of the compiler.

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: ARRAY [EV_PIXMAP] is
53 -- Pixmaps representing the command (one for the
54 -- gray version, one for the color version).
55 do
56 Result := Pixmaps.Icon_paste
57 end
58
59 tooltip: STRING is
60 -- Tooltip for the toolbar button.
61 do
62 Result := Interface_names.f_Paste
63 end
64
65 tooltext: STRING is
66 -- Text for the toolbar button.
67 do
68 Result := Interface_names.b_Paste
69 end
70
71 editor: EB_EDITOR is
72 -- Editor corresponding to Current
73 do
74 Result := target.current_editor
75 end
76
77 description: STRING is
78 -- Description for current command
79 do
80 Result := Interface_names.e_Paste
81 end
82
83 name: STRING is "Editor_paste";
84 -- Name of the command. Used to store the command in the
85 -- preferences.
86
87
88 indexing
89 copyright: "Copyright (c) 1984-2006, Eiffel Software"
90 license: "GPL version 2 see http://www.eiffel.com/licensing/gpl.txt)"
91 licensing_options: "http://www.eiffel.com/licensing"
92 copying: "[
93 This file is part of Eiffel Software's Eiffel Development Environment.
94
95 Eiffel Software's Eiffel Development Environment is free
96 software; you can redistribute it and/or modify it under
97 the terms of the GNU General Public License as published
98 by the Free Software Foundation, version 2 of the License
99 (available at the URL listed under "license" above).
100
101 Eiffel Software's Eiffel Development Environment is
102 distributed in the hope that it will be useful, but
103 WITHOUT ANY WARRANTY; without even the implied warranty
104 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
105 See the GNU General Public License for more details.
106
107 You should have received a copy of the GNU General Public
108 License along with Eiffel Software's Eiffel Development
109 Environment; if not, write to the Free Software Foundation,
110 Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
111 ]"
112 source: "[
113 Eiffel Software
114 356 Storke Road, Goleta, CA 93117 USA
115 Telephone 805-685-1006, Fax 805-685-6869
116 Website http://www.eiffel.com
117 Customer support http://support.eiffel.com
118 ]"
119
120 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