/[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 58951 by jasonw, Sun May 14 00:32:48 2006 UTC revision 58955 by jasonw, Mon May 15 17:19:02 2006 UTC
# Line 406  feature {NONE} -- Initialization Line 406  feature {NONE} -- Initialization
406                          -- Fill the accelerator of `window' with the accelerators of the `toolbarable_commands'.                          -- Fill the accelerator of `window' with the accelerators of the `toolbarable_commands'.
407                  local                  local
408                          cmds: ARRAYED_LIST [EB_TOOLBARABLE_COMMAND]                          cmds: ARRAYED_LIST [EB_TOOLBARABLE_COMMAND]
409                            i: INTEGER
410                  do                  do
411                                  --| Accelerators related to toolbarable_commands                                  --| Accelerators related to toolbarable_commands
412                          from                          from
# Line 434  feature {NONE} -- Initialization Line 435  feature {NONE} -- Initialization
435                                  end                                  end
436                                  cmds.forth                                  cmds.forth
437                          end                          end
438    
439                                    --| Accelerators related to external commands
440                            from
441                                    i := 0
442                            until
443                                    i > 9
444                            loop
445                                    window.accelerators.extend (edit_external_commands_cmd.accelerators.item (i))
446                                    i := i + 1
447                            end
448                  end                  end
449    
450          build_formatters is          build_formatters is
# Line 2299  feature -- Resource Update Line 2310  feature -- Resource Update
2310                          -- Refresh the list of external commands.                          -- Refresh the list of external commands.
2311                  local                  local
2312                          ms: LIST [EB_COMMAND_MENU_ITEM]                          ms: LIST [EB_COMMAND_MENU_ITEM]
                         l_external_cmds: LIST [EB_EXTERNAL_COMMAND]  
                         l_accelerators: ARRAY [EV_ACCELERATOR]  
2313                          l_sep: EV_MENU_SEPARATOR                          l_sep: EV_MENU_SEPARATOR
                         i: INTEGER  
                         l_accelerator: EV_ACCELERATOR  
                         l_window_acc: EV_ACCELERATOR_LIST  
                         done: BOOLEAN  
2314                  do                  do
2315                                  -- Remove all the external commands, which are at the end of the menu.                                  -- Remove all the external commands, which are at the end of the menu.
2316                          from                          from
# Line 2316  feature -- Resource Update Line 2321  feature -- Resource Update
2321                                  tools_menu.remove                                  tools_menu.remove
2322                          end                          end
2323                          ms := Edit_external_commands_cmd.menus                          ms := Edit_external_commands_cmd.menus
                         l_external_cmds := edit_external_commands_cmd.existing_commands  
                         l_accelerators := edit_external_commands_cmd.accelerators.twin  
                         l_accelerators.compare_objects  
2324                          number_of_displayed_external_commands := ms.count                          number_of_displayed_external_commands := ms.count
2325    
2326                          if not ms.is_empty and not tools_menu.is_empty then                          if not ms.is_empty and not tools_menu.is_empty then
# Line 2330  feature -- Resource Update Line 2332  feature -- Resource Update
2332                                  end                                  end
2333                          end                          end
2334    
                         l_window_acc := window.accelerators  
                         from  
                                 l_window_acc.start  
                         until  
                                 l_window_acc.after or done  
                         loop  
                                 l_accelerator := l_window_acc.item  
                                 if l_accelerators.has (l_accelerator) then  
                                         l_window_acc.remove  
                                 else  
                                         l_window_acc.forth  
                                 end  
                         end  
2335                          from                          from
2336                                  ms.start                                  ms.start
                                 l_external_cmds.start  
2337                          until                          until
2338                                  ms.after                                  ms.after
2339                          loop                          loop
2340                                  tools_menu.extend (ms.item)                                  tools_menu.extend (ms.item)
2341                                  add_recyclable (ms.item)                                  add_recyclable (ms.item)
                                 l_window_acc.extend (l_external_cmds.item.accelerator_key)  
2342                                  ms.forth                                  ms.forth
                                 l_external_cmds.forth  
2343                          end                          end
2344                  end                  end
2345    

Legend:
Removed from v.58951  
changed lines
  Added in v.58955

  ViewVC Help
Powered by ViewVC 1.1.23