Commit a0ed60b5 authored by Allan Blanchard's avatar Allan Blanchard

[wp] Induction tactic base defaults to 0

parent 6684c86a
...@@ -198,6 +198,7 @@ class mkcomposer ...@@ -198,6 +198,7 @@ class mkcomposer
Wutil.on filter (fun f -> wvalid <- f) ; Wutil.on filter (fun f -> wvalid <- f) ;
Wutil.on range (fun r -> ranged <- r) ; Wutil.on range (fun r -> ranged <- r) ;
ignore vmin ; ignore vmax ; ignore vmin ; ignore vmax ;
self#updated
end end
end end
......
...@@ -98,7 +98,13 @@ class induction = ...@@ -98,7 +98,13 @@ class induction =
| _ -> | _ ->
None None
method select _feedback (s : Tactical.selection) = method select feedback (s : Tactical.selection) =
begin match self#get_field vbase with
| Empty ->
self#set_field vbase (Tactical.int 0) ;
feedback#update_field vbase
| _ -> ()
end ;
let value = Tactical.selected s in let value = Tactical.selected s in
if F.is_int value then if F.is_int value then
match self#get_base () with match self#get_base () with
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment