Commit 1d6b0844 authored by stolpmann's avatar stolpmann

Fix in the error handling of ui:select


git-svn-id: https://godirepo.camlcity.org/svn/wdialog/trunk@219 f54c9a64-0731-4a92-b797-30fd5898f27c
parent 999c778f
......@@ -21,7 +21,7 @@
* </>
*)
(* $Id: wd_transform.ml,v 3.24 2005-06-11 14:24:14 stolpmann Exp $
(* $Id: wd_transform.ml,v 3.25 2005-08-31 14:51:31 stolpmann Exp $
* ----------------------------------------------------------------------
*
*)
......@@ -2805,15 +2805,13 @@ class uiselect =
self # dyn_enum_variable dlg base baseindex
with
Not_found ->
begin try
begin
match (dlg # variable_decl vname).var_type with
Enum_type e -> e.enum_definition
| Dyn_enum_type -> v
| String_type ->
raise(Runtime_error("ui:select is tied to a string variable, but a base variable is missing"))
| _ -> assert false
with
_ -> assert false
end
in
......@@ -4323,7 +4321,10 @@ let pxp_spec() = !tag_map;;
* History:
*
* $Log: wd_transform.ml,v $
* Revision 3.24 2005-06-11 14:24:14 stolpmann
* Revision 3.25 2005-08-31 14:51:31 stolpmann
* Fix in the error handling of ui:select
*
* Revision 3.24 2005/06/11 14:24:14 stolpmann
* Extension of bracket expressions: many new functions.
* Functions in bracket expressions may now lazily evaluate their arguments.
* ui:if and ui:ifvar may refer to any functions defined for bracket
......
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