/[eiffelstudio]/branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/windows/eb_development_window.e
ViewVC logotype

Diff of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/windows/eb_development_window.e

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 27214 by xavier, Fri Aug 24 23:21:56 2001 UTC revision 27498 by xavier, Mon Sep 10 19:26:16 2001 UTC
# Line 168  feature {NONE} -- Initialization Line 168  feature {NONE} -- Initialization
168    
169          init_commands is          init_commands is
170                          -- Initialize commands.                          -- Initialize commands.
171                    local
172                            accel: EV_ACCELERATOR
173                  do                  do
174                          Precursor                          Precursor
175                          create toolbarable_commands.make (15)                          create toolbarable_commands.make (15)
# Line 253  feature {NONE} -- Initialization Line 255  feature {NONE} -- Initialization
255                          send_stone_to_context_cmd.set_menu_name (Interface_names.m_Send_stone_to_context)                          send_stone_to_context_cmd.set_menu_name (Interface_names.m_Send_stone_to_context)
256                          send_stone_to_context_cmd.set_name ("Send_to_context")                          send_stone_to_context_cmd.set_name ("Send_to_context")
257                          send_stone_to_context_cmd.add_agent (~send_stone_to_context)                          send_stone_to_context_cmd.add_agent (~send_stone_to_context)
258                            create accel.make_with_key_combination (
259                                    create {EV_KEY}.make_with_code (Kcst.Key_down), False, True, False
260                            )
261                            accel.actions.extend (~send_stone_to_context)
262                            send_stone_to_context_cmd.set_accelerator (accel)
263                          send_stone_to_context_cmd.disable_sensitive                          send_stone_to_context_cmd.disable_sensitive
264                          toolbarable_commands.extend (send_stone_to_context_cmd)                          toolbarable_commands.extend (send_stone_to_context_cmd)
265    
# Line 843  feature -- Graphical Interface Line 850  feature -- Graphical Interface
850                          hsep: EV_HORIZONTAL_SEPARATOR                          hsep: EV_HORIZONTAL_SEPARATOR
851                          hbox: EV_HORIZONTAL_BOX -- Contains HistoryToolbar (back, forth, current) + `address_bar'                          hbox: EV_HORIZONTAL_BOX -- Contains HistoryToolbar (back, forth, current) + `address_bar'
852                          cell: EV_CELL                          cell: EV_CELL
853                            accel: EV_ACCELERATOR
854                  do                  do
855                                  -- Create the toolbar                                  -- Create the toolbar
856                          create address_toolbar                          create address_toolbar
# Line 865  feature -- Graphical Interface Line 873  feature -- Graphical Interface
873    
874                                  -- Forward icon                                  -- Forward icon
875                          tb.extend (history_manager.forth_command.new_toolbar_item (False, False))                          tb.extend (history_manager.forth_command.new_toolbar_item (False, False))
876                            
877                                    -- Set up the accelerators.
878                            create accel.make_with_key_combination (
879                                    create {EV_KEY}.make_with_code (Kcst.Key_right), False, True, False
880                            )
881                            accel.actions.extend (~on_forth)
882                            window.accelerators.extend (accel)
883                            
884                            create accel.make_with_key_combination (
885                                    create {EV_KEY}.make_with_code (Kcst.Key_left), False, True, False
886                            )
887                            accel.actions.extend (~on_back)
888                            window.accelerators.extend (accel)
889    
890                          ------------------------------------------                          ------------------------------------------
891                          -- Address bar (Class name & feature name)                          -- Address bar (Class name & feature name)
# Line 2414  feature {NONE} -- Implementation Line 2435  feature {NONE} -- Implementation
2435                          address_manager.disable_formatters                          address_manager.disable_formatters
2436                  end                  end
2437    
2438            on_back is
2439                            -- User pressed Alt+left.
2440                            -- Go back in the history (or the context history).
2441                    do
2442                            if context_tool_has_focus then
2443                                    if context_tool.history_manager.is_back_possible then
2444                                            context_tool.history_manager.back_command.execute
2445                                    end
2446                            elseif history_manager.is_back_possible then
2447                                    history_manager.back_command.execute
2448                            end
2449                    end
2450    
2451            on_forth is
2452                            -- User pressed Alt+right.
2453                            -- Go forth in the history (or the context history).
2454                    do
2455                            if context_tool_has_focus then
2456                                    if context_tool.history_manager.is_forth_possible then
2457                                            context_tool.history_manager.forth_command.execute
2458                                    end
2459                            elseif history_manager.is_forth_possible then
2460                                    history_manager.forth_command.execute
2461                            end
2462                    end
2463    
2464            context_tool_has_focus: BOOLEAN is
2465                            -- Does the context tool or one of its children has the focus?
2466                    local
2467                            fw: EV_WIDGET
2468                            cont: EV_CONTAINER
2469                            wid: EV_WIDGET
2470                    do
2471                            fw := (create {EV_ENVIRONMENT}).application.focused_widget
2472                            wid := context_tool.explorer_bar_item.widget
2473                            if wid = fw then
2474                                    Result := True
2475                            elseif fw = Void then
2476                                    Result := False
2477                            else
2478                                    from
2479                                            cont := fw.parent
2480                                    until
2481                                            cont = wid or cont = Void
2482                                    loop
2483                                            cont := cont.parent
2484                                    end
2485                                    if cont = wid then
2486                                            Result := True
2487                                    end
2488                            end
2489                    end
2490    
2491          saved_cursor: CURSOR          saved_cursor: CURSOR
2492                          -- Saved cursor position for displaying the stack.                          -- Saved cursor position for displaying the stack.
2493    
# Line 2518  feature {NONE} -- Implementation / Menus Line 2592  feature {NONE} -- Implementation / Menus
2592    
2593  feature {EB_TOOL} -- Implementation / Commands  feature {EB_TOOL} -- Implementation / Commands
2594    
         history_forth_cmd: EB_HISTORY_FORTH_COMMAND  
                         -- Command to go forward in the history  
   
         history_back_cmd: EB_HISTORY_BACK_COMMAND  
                         -- Command to go back in the history  
   
2595          shell_cmd: EB_OPEN_SHELL_COMMAND          shell_cmd: EB_OPEN_SHELL_COMMAND
2596                          -- Command to use an external editor.                          -- Command to use an external editor.
2597    

Legend:
Removed from v.27214  
changed lines
  Added in v.27498

  ViewVC Help
Powered by ViewVC 1.1.23