/[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 27125 - (show annotations)
Wed Aug 22 00:20:28 2001 UTC (18 years, 5 months ago) by etienne
Original Path: trunk/Src/bench/Eiffel/interface/new_graphical/commands/eb_editor_paste_command.e
File size: 1430 byte(s)
Fixed bug in clipboard commands : they were using the mian editor instead of the focused editor.

1 indexing
2 description : "Command to perform a clipboard-paste operation"
3 date : "$Date$"
4 revision : "$Revision $"
5
6 class
7 EB_EDITOR_PASTE_COMMAND
8
9 inherit
10 EB_CLIPBOARD_COMMAND
11 redefine
12 executable
13 end
14
15 EB_DEVELOPMENT_WINDOW_COMMAND
16 redefine
17 executable
18 end
19
20 create
21 make
22
23 feature -- Status report
24
25 executable: BOOLEAN is
26 -- Is the operation possible?
27 do
28 --| FIXME ARNAUD: waiting for Vision2 clipboard.
29 Result := is_sensitive
30 end
31
32 feature -- Execution
33
34 execute is
35 -- Execute the copy/copy/paste operation
36 do
37 --| FIXME ARNAUD: waiting for Vision2 clipboard.
38 editor.paste
39 end
40
41 feature {NONE} -- Implementation
42
43 menu_name: STRING is
44 -- Name as it appears in the menu (with & symbol).
45 do
46 Result := Interface_names.m_Paste
47 end
48
49 pixmap: ARRAY [EV_PIXMAP] is
50 -- Pixmaps representing the command (one for the
51 -- gray version, one for the color version).
52 do
53 Result := Pixmaps.Icon_paste
54 end
55
56 tooltip: STRING is
57 -- Tooltip for the toolbar button.
58 do
59 Result := Interface_names.f_Paste
60 end
61
62 editor: EB_EDITOR is
63 -- Editor corresponding to Current
64 do
65 Result := target.current_editor
66 end
67
68 description: STRING is
69 -- Description for current command
70 do
71 Result := Interface_names.e_Paste
72 end
73
74 name: STRING is "Editor_paste"
75 -- Name of the command. Used to store the command in the
76 -- preferences.
77
78
79 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