typo on colums

This commit is contained in:
Pascal Brisset
2008-10-22 18:45:56 +00:00
parent 7a12efa993
commit 45cd930cf3
+1 -1
View File
@@ -454,7 +454,7 @@ let rec find_widget_children = fun name xml ->
let xmls = Xml.children xml in
match String.lowercase (Xml.tag xml) with
"widget" when ExtXml.attrib xml "name" = name -> xmls
| "rows" | "colums" ->
| "rows" | "columns" ->
let rec loop = function
[] -> raise Not_found
| x::xs ->