class Gui

# File lib/gui.rb, line 37
def self.button(its_text, its_command, x, y, xx, yy)
button = TkButton.new(root){
text "#{its_text}"
command(its_command)
borderwidth 4
font TkFont.new('times 10 bold')
background  "green"
relief    "groove" 
justify  "left"  
}.grid('row' => x, 'column' => y, 'rowspan' => xx, 'columnspan' => yy)
#button_click = Proc.new{system 'notepad'}
#button.command = button_click
end

# File lib/gui.rb, line 69
def self.entry(var, x, y, xx, yy)
  TkEntry.new(root){
    textvariable var
        borderwidth 5
   }.grid('row' => x, 'column' => y, 'rowspan' => xx, 'columnspan' => yy)
end

# File lib/gui.rb, line 15
def self.header(text, x, y, xx, yy)
$header = TkLabel.new(root){
text "#{text}"
font TkFont.new('Times 14 bold')
borderwidth 4
relief    "groove" 
justify  "left"  
}.grid('row' => x, 'column' => y, 'rowspan' => xx, 'columnspan' => yy, 'sticky' => 'WE')
end

# File lib/gui.rb, line 25
def self.label(text, x, y, xx, yy)
$header = TkLabel.new(root){
text "#{text}"
font TkFont.new('Times 14 bold')
borderwidth 4
background  "yellow"
relief    "groove" 
justify  "left"  
}.grid('row' => x, 'column' => y, 'rowspan' => xx, 'columnspan' => yy)
end

# File lib/gui.rb, line 52
def self.listbox(name, listvar, x, y, xx, yy)
name = TkListbox.new(root){
setgrid 1
height 5
width 20
font TkFont.new('Tahoma 14 normal')
listvariable listvar
}.grid('row' => x, 'column' => y, 'rowspan' => xx, 'columnspan' => yy)
end

# File lib/gui.rb, line 112
def self.menu
TkOption.add '*tearOff', 0
$folder =TkVariable.new
#___________________________________
default = Proc.new{$folder = $default}
#________________________
chooseDir = Proc.new{
$folder = " "
$folder = Tk::chooseDirectory
$text.delete(1.0, 'end')
$text.insert('end', "#$folder")
}
#___________________________________
closefile = Proc.new{$text.delete(1.0, 'end')}
exitapp = Proc.new{exit}
###################### Menu ###################
file_menu = TkMenu.new(root)
#______________________________
file_menu.add('command',
              'label'     => "Default Folder",
              'command'   => default,
              'underline' => 0)
file_menu.add('command',
              'label'     => "Choose Folder",
              'command'   => chooseDir,
              'underline' => 0)
file_menu.add('command',
              'label'     => 'Close',
              'command'   => closefile,
              'underline' => 0)
file_menu.add('command',
              'label'     => "Exit",
              'command'   => exitapp,
              'underline' => 3)
#_________________________________________
menu_bar = TkMenu.new
menu_bar.add('cascade',
             'menu'  => file_menu,
             'label' => "Directory")
root.menu(menu_bar)
end

# File lib/gui.rb, line 7
def self.root
root = TkRoot.new{
title "#$title"
}
end

# File lib/gui.rb, line 95
def self.scrollbar
$scrollbar = TkScrollbar.new(root){command proc{ |*args| 
list_right.yview(* args)
list_left.yview(* args)}
}

list_right.yscrollcommand(proc { |first, last| 
scrollbar1.set(first, last)
}
)

list_left.yscrollcommand(proc { |first, last| 
scrollbar1.set(first, last)
}
)
end

# File lib/gui.rb, line 154
def self.show
Tk.mainloop
end

# File lib/gui.rb, line 76
def self.textfield(data, x, y, xx, yy)
$text = TkText.new(root) do
  width 70
  height 20
  setgrid   'true'
  background "black"
  foreground  "white"
  font TkFont.new('tahoma 16 normal')
  wrap 'word'
  insertbackground "yellow"
  insertwidth 10
  cursor  "draft_large"
end.grid('row' => x, 'column' => y, 'rowspan' => xx, 'columnspan' => yy)
 
$text.focus
$text.insert('1.0', "#{data}")
end