/[eiffelstudio]/branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_toolbarable_and_menuable_command.e
ViewVC logotype

Diff of /branches/Eiffel_57_docking/Src/Eiffel/interface/new_graphical/commands/eb_toolbarable_and_menuable_command.e

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

revision 62170 by manus, Sun Jul 30 06:09:58 2006 UTC revision 62171 by larryl, Tue Aug 1 01:27:17 2006 UTC
# Line 29  feature -- Status setting Line 29  feature -- Status setting
29                  local                  local
30                          menu_items: like managed_menu_items                          menu_items: like managed_menu_items
31                          toolbar_items: like managed_toolbar_items                          toolbar_items: like managed_toolbar_items
32                            l_sd_toolbar_items: like managed_sd_toolbar_items
33                  do                  do
34                          if not is_sensitive then                          if not is_sensitive then
35                                          -- Enable menu items                                          -- Enable menu items
# Line 57  feature -- Status setting Line 58  feature -- Status setting
58                                          end                                          end
59                                  end                                  end
60    
61                                    l_sd_toolbar_items := managed_sd_toolbar_items
62                                    if l_sd_toolbar_items /= Void then
63                                            from
64                                                    l_sd_toolbar_items.start
65                                            until
66                                                    l_sd_toolbar_items.after
67                                            loop
68                                                    l_sd_toolbar_items.item.enable_sensitive
69                                                    l_sd_toolbar_items.forth
70                                            end
71                                    end
72    
73                                  is_sensitive := True                                  is_sensitive := True
74                          end                          end
75                  end                  end
# Line 66  feature -- Status setting Line 79  feature -- Status setting
79                  local                  local
80                          menu_items: like managed_menu_items                          menu_items: like managed_menu_items
81                          toolbar_items: like managed_toolbar_items                          toolbar_items: like managed_toolbar_items
82                            l_sd_tool_bar_items: like managed_sd_toolbar_items
83                  do                  do
84                          if is_sensitive then                          if is_sensitive then
85                                          -- Disable menu items                                          -- Disable menu items
# Line 93  feature -- Status setting Line 107  feature -- Status setting
107                                                  toolbar_items.forth                                                  toolbar_items.forth
108                                          end                                          end
109                                  end                                  end
110    
111                                    l_sd_tool_bar_items := managed_sd_toolbar_items
112                                    if l_sd_tool_bar_items /= Void then
113                                            from
114                                                    l_sd_tool_bar_items.start
115                                            until
116                                                    l_sd_tool_bar_items.after
117                                            loop
118                                                    l_sd_tool_bar_items.item.disable_sensitive
119                                                    l_sd_tool_bar_items.forth
120                                            end
121                                    end
122    
123                                  is_sensitive := False                                  is_sensitive := False
124                          end                          end
125                  end                  end

Legend:
Removed from v.62170  
changed lines
  Added in v.62171

  ViewVC Help
Powered by ViewVC 1.1.23