/[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 27125 - (hide 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 manus 26913 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 etienne 27125 Result := target.current_editor
66 manus 26913 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