src/gtk/newgui/gui_friends_base.ml

   1 class box () =
   2   let vbox = GPack.vbox ~homogeneous:false () in
   3   let evbox = GBin.event_box ~packing:(vbox#pack ~expand:false ~fill:false) () in
   4   let _anonymous_container_2 =
   5     GPack.hbox ~border_width:2 ~homogeneous:false ~packing:(evbox#add) ()
   6   in
   7   let label =
   8     GMisc.label ~text:(Gui_messages.uT_lb_uploaders)
   9       ~justify:`LEFT ~line_wrap:true
  10       ~packing:(_anonymous_container_2#pack ~expand:false ~fill:true ~padding:3) ()
  11   in
  12   let wtool1 =
  13     GButton.toolbar ~orientation:`HORIZONTAL ~style:`BOTH ~space_size:2
  14       ~space_style:`LINE ~tooltips:true ~button_relief:`NONE
  15       ~packing:(_anonymous_container_2#pack ~expand:false ~fill:true ~padding:2) ()
  16   in
  17   let wtool2 =
  18     GButton.toolbar ~orientation:`HORIZONTAL ~style:`BOTH ~space_size:2
  19       ~space_style:`LINE ~tooltips:true ~button_relief:`NONE
  20       ~packing:(_anonymous_container_2#pack ~expand:false ~fill:true ~padding:2) ()
  21   in
  22   object
  23     val vbox = vbox
  24     val evbox = evbox
  25     val label = label
  26     val wtool1 = wtool1
  27     val wtool2 = wtool2
  28     method vbox = vbox
  29     method evbox = evbox
  30     method label = label
  31     method wtool1 = wtool1
  32     method wtool2 = wtool2
  33     method coerce = vbox#coerce
  34   end
  35 class paned () =
  36   let vbox = GPack.vbox ~homogeneous:false () in
  37   let wpane =
  38     GPack.paned `HORIZONTAL ~packing:(vbox#pack ~expand:true ~fill:true) ()
  39   in
  40   let wpane2 =
  41     GPack.paned `VERTICAL ~packing:(wpane#add2) ()
  42   in
  43   let vbox2 = GPack.vbox ~homogeneous:false ~packing:(wpane2#add2) () in
  44   let evbox1 = GBin.event_box ~packing:(vbox2#pack ~expand:false ~fill:false) () in
  45   let hbox =
  46     GPack.hbox ~border_width:2 ~homogeneous:false ~spacing:5 ~packing:(evbox1#add) ()
  47   in
  48   let label =
  49     GMisc.label
  50       ~justify:`LEFT ~line_wrap:true ~text:(Gui_messages.fT_lb_messages)
  51       ~packing:(hbox#pack ~expand:false ~fill:true ~padding:3) ()
  52   in
  53   object
  54     val vbox = vbox
  55     val wpane = wpane
  56     val wpane2 = wpane2
  57     val vbox2 = vbox2
  58     val evbox1 = evbox1
  59     val label = label
  60     method vbox = vbox
  61     method wpane = wpane
  62     method wpane2 = wpane2
  63     method vbox2 = vbox2
  64     method evbox1 = evbox1
  65     method label = label
  66     method coerce = vbox#coerce
  67   end
  68 class dialog () =
  69   let box = GPack.vbox ~homogeneous:false () in
  70   let wscroll =
  71     GBin.scrolled_window ~hpolicy:`AUTOMATIC ~vpolicy:`AUTOMATIC
  72       ~placement:`TOP_LEFT ~packing:(box#pack ~expand:true ~fill:true) ()
  73   in
  74   let wt_dialog =
  75     GEdit.text ~editable:false ~word_wrap:true ~line_wrap:true
  76       ~packing:(wscroll#add) ()
  77   in
  78   let wtool1 =
  79     GButton.toolbar ~orientation:`HORIZONTAL ~style:`ICONS ~space_style:`EMPTY
  80       ~tooltips:true ~button_relief:`NORMAL
  81       ~packing:(box#pack ~expand:false ~fill:true) ()
  82   in
  83   let wtool2 =
  84     GButton.toolbar ~orientation:`HORIZONTAL ~style:`ICONS ~space_style:`EMPTY
  85       ~tooltips:true ~button_relief:`NORMAL
  86       ~packing:(box#pack ~expand:false ~fill:true) ()
  87   in
  88   let wt_input =
  89     GEdit.text ~height:50 ~editable:true ~word_wrap:true ~line_wrap:true
  90       ~packing:(box#pack ~expand:false ~fill:true) ()
  91   in
  92   object
  93     val box = box
  94     val wscroll = wscroll
  95     val wt_dialog = wt_dialog
  96     val wtool1 = wtool1
  97     val wtool2 = wtool2
  98     val wt_input = wt_input
  99     method box = box
 100     method wscroll = wscroll
 101     method wt_dialog = wt_dialog
 102     method wtool1 = wtool1
 103     method wtool2 = wtool2
 104     method wt_input = wt_input
 105     method coerce = box#coerce
 106   end