Class: AGTktable

Inherits:
AGTkBase
  • Object
show all
Defined in:
ext/ae-rad/lib/tkext/al-tktable.rb

Instance Method Summary collapse

Instance Method Details

#newobject ⇒ Object

il combo si compone di un entry un button e un frame



11
12
13
 
# File 'ext/ae-rad/lib/tkext/al-tktable.rb', line 11

def newobject
  @obj = Tktable.new(@ag_parent.obj)
end

#properties ⇒ Object 



15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
# File 'ext/ae-rad/lib/tkext/al-tktable.rb', line 15

def properties
  super()


  publish('property','name'=>'cache',
  'get'=> proc{@obj.cget('cache')},
  'set'=> proc{|cache| @obj.configure('cache'=>cache)},
  'def'=> "",
  'type'=> TkType::TkagBool
  )
  publish('property','name'=>'cols',
    'get'=> proc{@obj.cget('cols')},
    'set'=> proc{|cols| @obj.configure('cols'=>cols)},
    'def'=> ""
  )
  publish('property','name'=>'rows',
    'get'=> proc{@obj.cget('rows')},
    'set'=> proc{|rows| @obj.configure('rows'=>rows)},
    'def'=> ""
  )
  publish('property','name'=>'borderwidth',
    'get'=> proc{@obj.cget('borderwidth')},
    'set'=> proc{|borderwidth| @obj.configure('borderwidth'=>borderwidth)},
    'def'=> ""
  )
end