1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
| procedure Get_Wopr_Attributes(Main_Window : Main_Window_access) is
Vbox : Gtk_Vbox;
Ok : Gtk.Widget.Gtk_Widget;
cancel : Gtk.Widget.Gtk_Widget;
begin
Gtk_New(Main_Window.Wopr_Window.Dialog, "Get Wopr coordonates", Main_Window.Main_window, Gtk.dialog.modal);
Ok := Gtk.Dialog.Add_Button(Main_Window.Wopr_Window.Dialog, "Ok", Gtk.Dialog.Gtk_Response_Ok);
Cancel := Gtk.Dialog.Add_Button(Main_Window.Wopr_Window.Dialog, "Cancel", Gtk.Dialog.Gtk_Response_Cancel);
Vbox := Get_Vbox(Main_Window.Wopr_Window.Dialog);
Set_Position(Main_Window.Wopr_Window.dialog, Win_Pos_Center);
Gtk_New(Main_Window.Wopr_Window.Degr_Lat, -90.0, 90.0, 1.0);
Gtk_New(Main_Window.Wopr_Window.Minu_Lat, 0.0, 60.0, 1.0);
Gtk_New(Main_Window.Wopr_Window.Seco_Lat, 0.0, 60.0, 1.0);
Gtk_New(Main_Window.Wopr_Window.Degr_Lon, -180.0, 180.0, 1.0);
Gtk_New(Main_Window.Wopr_Window.Minu_Lon, 0.0, 60.0, 1.0);
Gtk_New(Main_Window.Wopr_Window.Seco_Lon, 0.0, 60.0, 1.0);
Gtk_New_Hbox(Main_Window.Wopr_Window.Lat_Hbox);
Gtk_New_Hbox(Main_Window.Wopr_Window.Lon_Hbox);
Gtk_New(Main_Window.Wopr_Window.Lat_Label, "Latitude :");
Gtk_New(Main_Window.Wopr_Window.Lon_Label, "Longitude :");
Gtk_New_Hbox(Main_Window.Wopr_Window.Lat_Hbox);
Gtk_New_Hbox(Main_Window.Wopr_Window.Lon_Hbox);
Pack_Start(Main_Window.Wopr_Window.Lat_Hbox, Main_Window.Wopr_Window.Lat_Label);
Pack_Start(Main_Window.Wopr_Window.Lat_Hbox, Main_Window.Wopr_Window.Degr_lat);
Pack_Start(Main_Window.Wopr_Window.Lat_Hbox, Main_Window.Wopr_Window.Minu_lat);
Pack_Start(Main_Window.Wopr_Window.Lat_Hbox, Main_Window.Wopr_Window.Seco_lat);
Pack_Start(Main_Window.Wopr_Window.Lon_Hbox, Main_Window.Wopr_Window.Lon_Label);
Pack_Start(Main_Window.Wopr_Window.Lon_Hbox, Main_Window.Wopr_Window.Degr_Lon);
Pack_Start(Main_Window.Wopr_Window.Lon_Hbox, Main_Window.Wopr_Window.Minu_Lon);
Pack_Start(Main_Window.Wopr_Window.Lon_Hbox, Main_Window.Wopr_Window.Seco_Lon);
Pack_Start(Vbox, Main_Window.Wopr_Window.Lat_Hbox);
Pack_Start(Vbox, Main_Window.Wopr_Window.Lon_Hbox);
Text_Io.Put_Line("Packstart Ok ! ");
Show_All(Main_Window.Wopr_Window.Dialog);
Text_Io.Put_Line("Show_all Ok ! ");
case Gtk.Dialog.Run(Main_Window.Wopr_Window.Dialog) is
when Gtk.Dialog.Gtk_Response_Ok =>
Create_Wopr(null, Main_Window);
Gtk.Dialog.Destroy(Main_Window.Wopr_Window.Dialog);
when Gtk.Dialog.Gtk_Response_Cancel =>
Gtk.Dialog.Destroy(Main_Window.Wopr_Window.Dialog);
when others =>
Gtk.Dialog.Destroy(Main_Window.Wopr_Window.Dialog);
end case;
end Get_Wopr_Attributes; |
Partager