/[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 46337 - (hide annotations)
Fri Nov 5 18:28:09 2004 UTC (15 years, 2 months ago) by king
Original Path: trunk/Src/bench/Eiffel/interface/new_graphical/commands/eb_editor_paste_command.e
File size: 1548 byte(s)
Implemented tooltext

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