Module DemoManager

# File ext/tk/sample/tkextlib/bwidget/manager.rb, line 34
def self._mainframe(parent)
  labf1 = Tk::BWidget::LabelFrame.new(parent, :text=>'Toolbar',
                                      :side=>:top, :anchor=>:w,
                                      :relief=>:sunken, :borderwidth=>2)
  subf = labf1.get_frame
  chk1 = TkCheckbutton.new(subf, :text=>'View toolbar 1',
                           :variable=>DemoVar.toolbar1,
                           :command=>proc{
                             DemoVar.mainframe.show_toolbar(
                                0, DemoVar.toolbar1.value
                             )
                           })
  chk2 = TkCheckbutton.new(subf, :text=>'View toolbar 2',
                           :variable=>DemoVar.toolbar2,
                           :command=>proc{
                             DemoVar.mainframe.show_toolbar(
                                1, DemoVar.toolbar2.value
                             )
                           })

  Tk.pack(chk1, chk2, :anchor=>:w, :fill=>:x)
  labf1.pack(:fill=>:both)

  labf2 = Tk::BWidget::LabelFrame.new(parent, :text=>'Status bar',
                                      :side=>:top, :anchor=>:w,
                                      :relief=>:sunken, :borderwidth=>2)
  subf = labf2.get_frame
  chk1 = TkCheckbutton.new(subf, :text=>"Show Progress\nindicator",
                           :justify=>:left, :variable=>@@progress,
                           :command=>proc{ _show_progress })
  chk1.pack(:anchor=>:w, :fill=>:x)

  Tk.pack(labf1, labf2, :side=>:left, :padx=>4, :fill=>:both)
end

# File ext/tk/sample/tkextlib/bwidget/manager.rb, line 69
def self._notebook(parent)
  TkCheckbutton.new(parent, :text=>'Homogeneous label',
                    :variable=>@@homogeneous,
                    :command=>proc{
                      DemoVar.notebook[:homogeneous] = @@homogeneous.value
                    }).pack(:side=>:left, :anchor=>:n, :fill=>:x)
end

# File ext/tk/sample/tkextlib/bwidget/manager.rb, line 77
def self._paned(parent)
  pw1   = Tk::BWidget::PanedWindow.new(parent, :side=>:top)
  pane  = pw1.add(:minsize=>100)

  pw2   = Tk::BWidget::PanedWindow.new(pane, :side=>:left)
  pane1 = pw2.add(:minsize=>100)
  pane2 = pw2.add(:minsize=>100)

  pane3 = pw1.add(:minsize=>100)

  [pane1, pane2].each{|pane|
    sw = Tk::BWidget::ScrolledWindow.new(pane)
    lb = TkListbox.new(sw, :height=>8, :width=>20, :highlightthickness=>0)
    (1..8).each{|i| lb.insert('end', "Valur #{i}") }
    sw.set_widget(lb)
    sw.pack(:fill=>:both, :expand=>true)
  }

  sw = Tk::BWidget::ScrolledWindow.new(pane3, :relief=>:sunken,
                                       :borderwidth=>2)
  sf = Tk::BWidget::ScrollableFrame.new(sw)
  sw.set_widget(sf)
  subf = sf.get_frame
  lab = TkLabel.new(subf, :text=>'This is a ScrollableFrame')
  chk = TkCheckbutton.new(subf, :text=>'Constrained with',
                          :variable=>@@constw, :command=>proc{
                            sf['constrainedwidth'] = @@constw.value
                          })
  lab.pack
  chk.pack(:anchor=>:w)
  chk.bind('FocusIn', proc{sf.see(chk)})
  (0..20).each{|i|
    ent = TkEntry.new(subf, :width=>50).pack(:fill=>:x, :pady=>4)
    ent.bind('FocusIn', proc{sf.see(ent)})
    ent.insert('end', "Text field #{i}")
  }

  Tk.pack(sw, pw2, pw1, :fill=>:both, :expand=>true)
end

# File ext/tk/sample/tkextlib/bwidget/manager.rb, line 117
def self._show_progress
  unless @@afterobj
    @@afterobj = TkTimer.new(30, -1, proc{_update_progress})
  end
  if @@progress.bool
    DemoVar.status.value = 'Compute in progress...'
    DemoVar.prgindic.value = 0
    DemoVar.mainframe.show_statusbar(:progression)
    @@afterobj.start unless @@afterobj.running?
  else
    DemoVar.status.value = ''
    DemoVar.mainframe.show_statusbar(:status)
    @@afterobj.stop
  end
end

# File ext/tk/sample/tkextlib/bwidget/manager.rb, line 133
def self._update_progress
  if @@progress.bool
    if DemoVar.prgindic.numeric < 100
      DemoVar.prgindic.numeric += 5
    else
      @@progress.value = false
      DemoVar.mainframe.show_statusbar(:status)
      DemoVar.status.value = 'Done'
      @@afterobj.stop
      Tk.after(500, proc{ DemoVar.status.value = '' })
    end
  else
    @@afterobj.stop
  end
end

# File ext/tk/sample/tkextlib/bwidget/manager.rb, line 15
def self.create(nb)
  frame = nb.insert('end', 'demoManager', :text=>'Manager')

  topf = TkFrame.new(frame)
  titf1 = Tk::BWidget::TitleFrame.new(topf, :text=>"MainFrame")
  titf2 = Tk::BWidget::TitleFrame.new(topf, :text=>"NoteBook")
  titf3 = Tk::BWidget::TitleFrame.new(frame, :text=>"Paned & ScrolledWindow")

  _mainframe(titf1.get_frame)
  _notebook(titf2.get_frame)
  _paned(titf3.get_frame)

  Tk.pack(titf1, titf2, :padx=>4, :side=>:left, :fill=>:both, :expand=>true)
  Tk.pack(topf, :fill=>:x, :pady=>2)
  Tk.pack(titf3, :pady=>2, :padx=>4, :fill=>:both, :expand=>true)

  frame
end