/[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 59980 - (hide annotations)
Mon Jun 19 23:44:30 2006 UTC (13 years, 7 months ago) by paulb
Original Path: trunk/Src/Eiffel/interface/new_graphical/commands/eb_editor_paste_command.e
File size: 2907 byte(s)
Remapped icons
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 king 56753 pixmap: EV_PIXMAP is
53     -- Pixmap representing the command.
54 manus 26913 do
55 paulb 59980 Result := pixmaps.icon_pixmaps.general_paste_icon
56 manus 26913 end
57    
58     tooltip: STRING is
59     -- Tooltip for the toolbar button.
60     do
61     Result := Interface_names.f_Paste
62     end
63    
64 king 46337 tooltext: STRING is
65     -- Text for the toolbar button.
66     do
67     Result := Interface_names.b_Paste
68     end
69    
70 manus 26913 editor: EB_EDITOR is
71     -- Editor corresponding to Current
72     do
73 etienne 27125 Result := target.current_editor
74 manus 26913 end
75    
76     description: STRING is
77     -- Description for current command
78     do
79     Result := Interface_names.e_Paste
80     end
81    
82 manus 56535 name: STRING is "Editor_paste";
83 manus 26913 -- Name of the command. Used to store the command in the
84     -- preferences.
85    
86    
87 manus 56535 indexing
88     copyright: "Copyright (c) 1984-2006, Eiffel Software"
89 manus 58027 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
90 manus 56535 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 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