src/gtk/newgui/gui_rooms_base.ml

   1 class box tb_style () =
   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_1 =
   5     GPack.hbox ~border_width:2 ~homogeneous:false ~spacing:5 ~packing:(evbox#add) ()
   6   in
   7   let label_rooms_messages =
   8     GMisc.label
   9       ~justify:`LEFT ~line_wrap:true ~text:(Gui_messages.rT_lb_rooms_messages)
  10       ~packing:(_anonymous_container_1#pack ~expand:false ~fill:true ~padding:3) ()
  11   in
  12   let wscroll =
  13     GBin.scrolled_window ~hpolicy:`AUTOMATIC ~vpolicy:`AUTOMATIC
  14       ~placement:`TOP_LEFT ~packing:(vbox#pack ~expand:true ~fill:true) ()
  15   in
  16   let wt_10 =
  17     GEdit.text ~editable:false ~word_wrap:true ~line_wrap:true
  18       ~packing:(wscroll#add) ()
  19   in
  20   let we_11 =
  21     GEdit.entry ~visibility:true ~editable:true
  22       ~packing:(vbox#pack ~expand:false ~fill:false) ()
  23   in
  24   object
  25     val vbox = vbox
  26     val evbox = evbox
  27     val label_rooms_messages = label_rooms_messages
  28     val wscroll = wscroll
  29     val wt_10 = wt_10
  30     val we_11 = we_11
  31     method vbox = vbox
  32     method evbox = evbox
  33     method label_rooms_messages = label_rooms_messages
  34     method wscroll = wscroll
  35     method wt_10 = wt_10
  36     method we_11 = we_11
  37     method coerce = vbox#coerce
  38   end
  39 class box2 () =
  40   let vbox =
  41     GPack.vbox ~width:0 ~height:0 ~border_width:0 ~homogeneous:false
  42       ~spacing:0 ()
  43   in
  44   let hpaned =
  45     GPack.paned `HORIZONTAL ~packing:(vbox#pack ~expand:true ~fill:true) ()
  46   in
  47   let rooms_pane = GPack.paned `VERTICAL ~packing:(hpaned#add2) () in
  48   let room_pane =
  49     GPack.paned `HORIZONTAL
  50       ~packing:(rooms_pane#add1) ()
  51   in
  52   object
  53     val vbox = vbox
  54     val hpaned = hpaned
  55     val rooms_pane = rooms_pane
  56     val room_pane = room_pane
  57     method vbox = vbox
  58     method hpaned = hpaned
  59     method rooms_pane = rooms_pane
  60     method room_pane = room_pane
  61     method coerce = vbox#coerce
  62   end