Class: Gui

Inherits:
Object
  • Object
show all
Defined in:
lib/gui.rb

Class Method Summary collapse

Class Method Details

.button(its_text, its_command, x, y, xx, yy) ⇒ Object

__ BUTTON __



37
38
39
40
41
42
43
44
45
46
47
48
49
 
# 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

.entry(var, x, y, xx, yy) ⇒ Object

method to draw an entry field sending value to variable (var)[ use $var1 to $var3]



69
70
71
72
73
74
 
# 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

.header(text, x, y, xx, yy) ⇒ Object

_ LABELS _



15
16
17
18
19
20
21
22
23
 
# 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

.label(text, x, y, xx, yy) ⇒ Object 



25
26
27
28
29
30
31
32
33
34
 
# 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

.listbox(name, listvar, x, y, xx, yy) ⇒ Object

_ LISTBOXES __



52
53
54
55
56
57
58
59
60
 
# 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

.menu ⇒ Object

_MENU___



112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
 
# 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

.root ⇒ Object

__ ROOT __



7
8
9
10
11
 
# File 'lib/gui.rb', line 7

def self.root
root = TkRoot.new{
title "#$title"
}
end

.scrollbar ⇒ Object

__ SCROLLBARS _



95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
 
# 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

.show ⇒ Object

__ SHOW _



154
155
156
 
# File 'lib/gui.rb', line 154

def self.show
Tk.mainloop
end

.textfield(data, x, y, xx, yy) ⇒ Object

__ TEXT __



76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
 
# 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