/[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 46337 - (show 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 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 tooltext
14 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 tooltext: STRING is
64 -- Text for the toolbar button.
65 do
66 Result := Interface_names.b_Paste
67 end
68
69 editor: EB_EDITOR is
70 -- Editor corresponding to Current
71 do
72 Result := target.current_editor
73 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