warning about scrolled window removed

This commit is contained in:
Pascal Brisset
2007-06-17 10:48:54 +00:00
parent a0d7ebbed3
commit 71a3aac1a1
+1 -1
View File
@@ -112,7 +112,7 @@ end
class gps ?(visible = fun _ -> true) (widget: GBin.frame) =
let sw = GBin.scrolled_window ~hpolicy:`AUTOMATIC ~vpolicy:`AUTOMATIC ~packing:widget#add () in
let da = GMisc.drawing_area ~show:true ~packing:sw#add () in
let da = GMisc.drawing_area ~show:true ~packing:sw#add_with_viewport () in
object
val mutable active_cno = []