151 }) |
151 }) |
152 |
152 |
153 |
153 |
154 /* controls */ |
154 /* controls */ |
155 |
155 |
156 private val controls = new Wrap_Panel(Wrap_Panel.Alignment.Right)( |
156 private val controls = |
157 new CheckBox("Auto update") { |
157 Wrap_Panel(alignment = Wrap_Panel.Alignment.Right, contents = |
158 selected = do_update |
158 List( |
159 reactions += { |
159 new CheckBox("Auto update") { |
160 case ButtonClicked(_) => |
160 selected = do_update |
161 do_update = this.selected |
161 reactions += { |
162 handle_update(do_update) |
162 case ButtonClicked(_) => |
163 } |
163 do_update = this.selected |
164 }, |
164 handle_update(do_update) |
165 new Button("Update") { |
165 } |
166 reactions += { |
166 }, |
167 case ButtonClicked(_) => |
167 new Button("Update") { |
168 handle_update(true) |
168 reactions += { |
169 } |
169 case ButtonClicked(_) => |
170 }, |
170 handle_update(true) |
171 new Separator(Orientation.Vertical), |
171 } |
172 new Button("Show trace") { |
172 }, |
173 reactions += { |
173 new Separator(Orientation.Vertical), |
174 case ButtonClicked(_) => |
174 new Button("Show trace") { |
175 show_trace() |
175 reactions += { |
176 } |
176 case ButtonClicked(_) => |
177 }, |
177 show_trace() |
178 new Button("Clear memory") { |
178 } |
179 reactions += { |
179 }, |
180 case ButtonClicked(_) => |
180 new Button("Clear memory") { |
181 Simplifier_Trace.clear_memory() |
181 reactions += { |
182 } |
182 case ButtonClicked(_) => |
183 } |
183 Simplifier_Trace.clear_memory() |
184 ) |
184 } |
|
185 })) |
185 |
186 |
186 private val answers = new Wrap_Panel(Wrap_Panel.Alignment.Left)() |
187 private val answers = Wrap_Panel(alignment = Wrap_Panel.Alignment.Left) |
187 |
188 |
188 add(controls.peer, BorderLayout.NORTH) |
189 add(controls.peer, BorderLayout.NORTH) |
189 add(answers.peer, BorderLayout.SOUTH) |
190 add(answers.peer, BorderLayout.SOUTH) |
190 } |
191 } |