Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-06-05 06:54:49 +08:00
Code Issues Actions 28 Packages Projects Releases Wiki Activity

shortnames in settings, autoscroll to bottom in alarm window

Browse Source
This commit is contained in:
Pascal Brisset
2006-10-20 07:08:50 +00:00
parent 3c3106b23a
commit cff81da3d1
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/ground_segment/cockpit/pages.ml
+7 -1
View File
@@ -47,6 +47,12 @@ class alert (widget: GBin.frame) =
view#buffer#insert (sprintf "%02d:%02d:%02d " l.Unix.tm_hour l.Unix.tm_min l.Unix.tm_sec);
view#buffer#insert text;
view#buffer#insert "\n";
(* Scroll to the bottom line *)
let end_iter = view#buffer#end_iter in
let end_mark = view#buffer#create_mark end_iter in
view#scroll_mark_onscreen (`MARK end_mark);
last <- text
end
end
@@ -200,7 +206,7 @@ let one_setting = fun i do_change packing s (tooltips:GData.tooltips) strip ->
and step_incr = f "step" in
let hbox = GPack.hbox ~packing () in
let text = ExtXml.attrib s "var" in
let text = try ExtXml.attrib s "shortname" with _ -> ExtXml.attrib s "var" in
let _l = GMisc.label ~width:100 ~text ~packing:hbox#pack () in
let _v = GMisc.label ~width:50 ~text:"N/A" ~packing:hbox#pack () in