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

Annotation 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 - (hide 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 manus 26913 indexing
2     description : "Command to perform a clipboard-paste operation"
3 manus 56535 legal: "See notice at end of class."
4     status: "See notice at end of class."
5 manus 26913 date : "$Date$"
6     revision : "$Revision $"
7    
8     class
9     EB_EDITOR_PASTE_COMMAND
10    
11     inherit
12     EB_CLIPBOARD_COMMAND
13     redefine
14 king 46337 executable,
15     tooltext
16 manus 26913 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 king 46337 tooltext: STRING is
66     -- Text for the toolbar button.
67     do
68     Result := Interface_names.b_Paste
69     end
70    
71 manus 26913 editor: EB_EDITOR is
72     -- Editor corresponding to Current
73     do
74 etienne 27125 Result := target.current_editor
75 manus 26913 end
76    
77     description: STRING is
78     -- Description for current command
79     do
80     Result := Interface_names.e_Paste
81     end
82    
83 manus 56535 name: STRING is "Editor_paste";
84 manus 26913 -- Name of the command. Used to store the command in the
85     -- preferences.
86    
87    
88 manus 56535 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 manus 26913 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