/[mldonkey]/mldonkey/src/gtk/gui/gui_queries_base.ml
ViewVC logotype

Contents of /mldonkey/src/gtk/gui/gui_queries_base.ml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations) (download)
Sun May 11 16:06:34 2003 UTC (20 years, 6 months ago) by simon_mld
Branch: MAIN
CVS Tags: release-3-1-3, release-2-5-30-12, release-2-5-30-11, release-2-5-30-10, release-2-5-30-17, release-2-5-30-16, release-3-1-5, release-3-1-4, release-2-4-3, release-2-4-2, release-2-4-1, release-2-4-0, release-2-4-5, release-2-4-4, release-2-5-rc3, release-2-5-rc2, release-2-5-rc1, release-2-5-30-13, release-3-1-2, release-3-1-1, release-3-1-0, release-2-5-30-15, release-2-5-30-14, release-2-6-5, release-2-6-4, release-2-6-7, release-2-6-6, release-2-6-1, release-2-6-0, release-2-6-3, release-2-6-2, release-2-9-2, release-2-9-3, release-2-9-0, release-2-9-1, release-2-9-6, release-2-9-7, release-2-9-4, release-2-9-5, release-2-5-30-7, release-2-5-30-6, release-2-5-30-5, release-2-5-30-4, release-2-5-30-3, release-2-5-30-2, release-2-5-30-1, release-2-5-4-8, release-2-5-30-9, release-2-5-30-8, release-3-0-6, release-3-0-7, release-3-0-4, release-3-0-5, release-3-0-2, release-3-0-3, release-3-0-0, release-3-0-1, release-2-5-8, release-2-5-9, release-2-5-6, release-2-5-7, release-2-5-4, release-2-5-5, release-2-5-2, release-2-5-3, release-2-5-1, release-2-5-devel-4, release-2-5-devel-6, release-2-5-30, release-2-7-4, release-2-7-5, release-2-7-0, release-2-7-1, release-2-7-2, release-2-7-3, release-2-5-29, release-2-5-28, release-2-7-6, release-2-7-7, release-2-5-25, release-2-5-24, release-2-5-27, release-2-5-26, release-2-5-21, release-2-5-20, release-2-5-23, release-2-5-22, release-2-8-7, release-2-8-6, release-2-8-5, release-2-8-4, release-2-8-3, release-2-8-2, release-2-8-1, release-2-8-0, release-2-5-18, release-2-5-19, release-2-5-10, release-2-5-11, release-2-5-14, release-2-5-15, release-2-5-16, release-2-5-17, release-2-5, HEAD
Branch point for: release-2-5-28-1, release-2-5-devel, release-2-5-1-patches
Changes since 1.1: +85 -0 lines
-

1 class box () =
2 let vbox = GPack.vbox ~homogeneous:false () in
3 let wtool1 =
4 GButton.toolbar ~orientation:`HORIZONTAL ~style:`BOTH ~space_style:`EMPTY
5 ~tooltips:true ~button_relief:`NORMAL
6 ~packing:(vbox#pack ~expand:false ~fill:true) ()
7 in
8 let wtool2 =
9 GButton.toolbar ~orientation:`HORIZONTAL ~style:`BOTH ~space_style:`EMPTY
10 ~tooltips:true ~button_relief:`NORMAL
11 ~packing:(vbox#pack ~expand:false ~fill:true) ()
12 in
13 let box_fields =
14 GPack.vbox ~homogeneous:false
15 ~packing:(vbox#pack ~expand:false ~fill:true) ()
16 in
17 let _anonymous_container_1 =
18 GPack.hbox ~homogeneous:false
19 ~packing:(vbox#pack ~expand:false ~fill:true) ()
20 in
21 let _ =
22 GMisc.label ~text:"Network : "
23 ~justify:`LEFT ~line_wrap:true
24 ~packing:(_anonymous_container_1#pack ~expand:false ~fill:true) ()
25 in
26 let (nets, nets_wcombo) = Gui_global.networks_combo true in
27 let _ =
28 _anonymous_container_1#pack nets_wcombo#coerce ~padding: 1
29 in
30 let _anonymous_container_2 =
31 GPack.hbox ~homogeneous:false
32 ~packing:(vbox#pack ~expand:false ~fill:true) ()
33 in
34 let _ =
35 GMisc.label ~text:(Gettext.gettext Gui_messages.max_hits ^ " : ")
36 ~justify:`LEFT ~line_wrap:true
37 ~packing:(_anonymous_container_2#pack ~expand:false ~fill:true) ()
38 in
39 let we_max_hits =
40 GEdit.entry ~text:"200" ~visibility:true ~editable:true
41 ~packing:(_anonymous_container_2#pack ~expand:false ~fill:true) ()
42 in
43 let hbox_show =
44 GPack.hbox ~homogeneous:false
45 ~packing:(vbox#pack ~expand:false ~fill:true) ()
46 in
47 let wchk_show =
48 GButton.check_button ~active:false ~draw_indicator:true
49 ~packing:(hbox_show#pack ~expand:false ~fill:true) ()
50 in
51 let _ =
52 GMisc.label ~text:(Gettext.gettext Gui_messages.show_hidden_fields)
53 ~justify:`LEFT ~line_wrap:true ~xpad:2
54 ~packing:(hbox_show#pack ~expand:false ~fill:true) ()
55 in
56 object
57 val vbox = vbox
58 val wtool1 = wtool1
59 val wtool2 = wtool2
60 val box_fields = box_fields
61 val we_max_hits = we_max_hits
62 val hbox_show = hbox_show
63 val wchk_show = wchk_show
64 val nets = nets
65 val nets_wcombo = nets_wcombo
66 method vbox = vbox
67 method wtool1 = wtool1
68 method wtool2 = wtool2
69 method box_fields = box_fields
70 method we_max_hits = we_max_hits
71 method hbox_show = hbox_show
72 method wchk_show = wchk_show
73 method coerce = vbox#coerce
74 end
75 class paned () =
76 let wnote_queries =
77 GPack.notebook ~tab_pos:`LEFT ~show_tabs:true ~homogeneous_tabs:true
78 ~show_border:true ~scrollable:true ~popup:true ()
79 in
80 object
81 val wnote_queries = wnote_queries
82 method wnote_queries = wnote_queries
83 method coerce = wnote_queries#coerce
84 end
85

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26