/[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 62171 - (hide annotations)
Tue Aug 1 01:27:17 2006 UTC (13 years, 5 months ago) by larryl
File size: 3079 byte(s)
First commit docking tabbed Eiffel Studio.
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 larryl 62171 tooltext,
16     pixel_buffer
17 manus 26913 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 king 56753 pixmap: EV_PIXMAP is
54     -- Pixmap representing the command.
55 manus 26913 do
56 paulb 59980 Result := pixmaps.icon_pixmaps.general_paste_icon
57 manus 26913 end
58    
59 larryl 62171 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 manus 26913 tooltip: STRING is
66     -- Tooltip for the toolbar button.
67     do
68     Result := Interface_names.f_Paste
69     end
70    
71 king 46337 tooltext: STRING is
72     -- Text for the toolbar button.
73     do
74     Result := Interface_names.b_Paste
75     end
76    
77 manus 26913 editor: EB_EDITOR is
78     -- Editor corresponding to Current
79     do
80 larryl 62171 Result := target.uis.current_editor
81 manus 26913 end
82    
83     description: STRING is
84     -- Description for current command
85     do
86     Result := Interface_names.e_Paste
87     end
88    
89 manus 56535 name: STRING is "Editor_paste";
90 manus 26913 -- Name of the command. Used to store the command in the
91     -- preferences.
92    
93    
94 manus 56535 indexing
95     copyright: "Copyright (c) 1984-2006, Eiffel Software"
96 manus 58027 license: "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
97 manus 56535 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 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