Module: TkProperties

Defined in:
ext/ae-rad/lib/tk/al-tk.rb

Class Method Summary collapse

Class Method Details

.activebackground(_obj) ⇒ Object 



1738
1739
1740
1741
1742
1743
1744
1745
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1738

def TkProperties.activebackground(_obj)
  {'name'=>'activebackground',
    'get'=> proc{_obj.cget('activebackground')},
    'set'=> proc{|activebackground| _obj.configure('activebackground'=>activebackground)},
    'def'=> '',
    'type'=> TkType::TkagColor
  }
end

.activeforeground(_obj) ⇒ Object 



1747
1748
1749
1750
1751
1752
1753
1754
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1747

def TkProperties.activeforeground(_obj)
  {'name'=>'activeforeground',
    'get'=> proc{_obj.cget('activeforeground')},
    'set'=> proc{|activeforeground| _obj.configure('activeforeground'=>activeforeground)},
    'def'=> '',
    'type'=> TkType::TkagColor
  }
end

.anchor(_obj) ⇒ Object 



1937
1938
1939
1940
1941
1942
1943
1944
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1937

def TkProperties.anchor(_obj)
  {'name'=>'anchor',
    'get'=> proc{_obj.cget('anchor')},
    'set'=> proc{|a| _obj.configure('anchor'=>a)},
    'def'=> "",
    'type'=> TkType::TkagAnchor
  }
end

.background(_obj) ⇒ Object 



1668
1669
1670
1671
1672
1673
1674
1675
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1668

def TkProperties.background(_obj)
  {'name'=>'background',
    'get'=> proc{_obj.cget('background')},
    'set'=> proc{|background| _obj.configure('background'=>background)},
    'def'=> '',
    'type'=> TkType::TkagColor
  }
end

.bitmap(_obj) ⇒ Object 



1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1874

def TkProperties.bitmap(_obj)
  {'name'=>'bitmap',
    'get'=> proc{_obj.cget('bitmap')},
    'set'=> proc{|j| _obj.configure('bitmap'=>TkAllPhotoImage.new('file' => j))},
    'def'=> proc{|x|
      if x.to_s.length > 2
        "bitmap TkAllPhotoImage.new('file' => #{x})"
      else
        ""
      end
    },
    'type'=> TkType::TkagFile
  }
end

.border(_obj) ⇒ Object 



1899
1900
1901
1902
1903
1904
1905
1906
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1899

def TkProperties.border(_obj)
  {'name'=>'border',
    'default'=> 0,
    'get'=> proc{_obj.cget('border')},
    'set'=> proc{|b| _obj.configure('border'=>b)},
    'def'=> ""
  }
end

.borderwidth(_obj) ⇒ Object 



1890
1891
1892
1893
1894
1895
1896
1897
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1890

def TkProperties.borderwidth(_obj)
  {'name'=>'borderwidth',
    #'default'=> 2,
    'get'=> proc{_obj.cget('borderwidth')},
    'set'=> proc{|b| _obj.configure('borderwidth'=>b)},
    'def'=> ""
  }
end

.class(_obj) ⇒ Object 



1982
1983
1984
1985
1986
1987
1988
1989
1990
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1982

def TkProperties.class(_obj)
  {'name'=>'class',
    'default'=> AG.near_class_wrapped(_obj).to_s,
    'get'=> proc{_obj.cget('class')},
    'set'=> proc{|r| _obj.configure('class'=>r)},
    'def'=> "",
    'kind'=>'on-create'
  }
end

.colormap(_obj) ⇒ Object 



1992
1993
1994
1995
1996
1997
1998
1999
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1992

def TkProperties.colormap(_obj)
  {'name'=>'colormap',
    'get'=> proc{_obj.cget('colormap')},
    'set'=> proc{|r| _obj.configure('colormap'=>r)},
    'def'=> "",
    'type'=> EnumType.new('new','')
  }
end

.command(_obj) ⇒ Object 



1785
1786
1787
1788
1789
1790
1791
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1785

def TkProperties.command(_obj)
  {'name'=>'command',
    'get'=> proc{eval('@c = _obj.command_script'); @c},
    'set'=> proc{|r| _obj.configure('command'=>r)},
    'def'=> ""
  }
end

.compound(_obj) ⇒ Object 



1811
1812
1813
1814
1815
1816
1817
1818
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1811

def TkProperties.compound(_obj)
  {'name'=>'compound',
    'get'=> proc{_obj.cget('compound')},
    'set'=> proc{|compound| _obj.configure('compound'=>compound)},
    'def'=> '',
    'type'=> TkType::TkagCompound
  }
end

.container(_obj) ⇒ Object 



2001
2002
2003
2004
2005
2006
2007
2008
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 2001

def TkProperties.container(_obj)
  {'name'=>'container',
    'get'=> proc{_obj.cget('container')},
    'set'=> proc{|r| _obj.configure('container'=>r)},
    'def'=> "",
    'type'=> TkType::TkagBool
  }
end

.cursor(_obj) ⇒ Object 



1955
1956
1957
1958
1959
1960
1961
1962
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1955

def TkProperties.cursor(_obj)
  {'name'=>'cursor',
    'get'=> proc{_obj.cget('cursor')},
    'set'=> proc{|o| _obj.configure('cursor'=>o)},
    'def'=> "",
    'type'=> TkType::TkagCursor
  }
end

.disabledforeground(_obj) ⇒ Object 



1729
1730
1731
1732
1733
1734
1735
1736
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1729

def TkProperties.disabledforeground(_obj)
  {'name'=>'disabledforeground',
    'get'=> proc{_obj.cget('disabledforeground')},
    'set'=> proc{|foreground| _obj.configure('disabledforeground'=>foreground)},
    'def'=> '',
    'type'=> TkType::TkagColor
  }
end

.font(_obj) ⇒ Object 



1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1820

def TkProperties.font(_obj)
  {'name'=>'font',
    'get'=> proc{font = _obj.cget('font')
      if font.kind_of?(TkFont)
        keys = Hash.new
        font.configinfo.each{|key,value| keys[key]=value }
        keys['family']+"\s"+keys['size'].to_s+"\s"+keys['weight'].to_s
      else
        nil
      end
    },
    'set'=> proc{|f| _obj.configure('font'=>f)},
    'def'=> "",
    'type'=> TkType::TkagFont
  }
end

.foreground(_obj) ⇒ Object 



1720
1721
1722
1723
1724
1725
1726
1727
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1720

def TkProperties.foreground(_obj)
  {'name'=>'foreground',
    'get'=> proc{_obj.cget('foreground')},
    'set'=> proc{|foreground| _obj.configure('foreground'=>foreground)},
    'def'=> '',
    'type'=> TkType::TkagColor
  }
end

.generic_color(_name, _obj) ⇒ Object 



1658
1659
1660
1661
1662
1663
1664
1665
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1658

def TkProperties.generic_color(_name, _obj)
  {'name'=>_name,
    'get'=> proc{_obj.cget(_name)},
    'set'=> proc{|value| _obj.configure(_name=>value)},
    'def'=> '',
    'type'=> TkType::TkagColor
  }
end

.height(_obj) ⇒ Object 



1694
1695
1696
1697
1698
1699
1700
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1694

def TkProperties.height(_obj)
  {'name'=>'height',
    'get'=> proc{_obj.cget('height')},
    'set'=> proc{|t| _obj.configure('height'=>t)},
    'def'=> ""
  }
end

.highlightbackground(_obj) ⇒ Object 



1677
1678
1679
1680
1681
1682
1683
1684
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1677

def TkProperties.highlightbackground(_obj)
  {'name'=>'highlightbackground',
    'get'=> proc{_obj.cget('highlightbackground')},
    'set'=> proc{|background| _obj.configure('highlightbackground'=>background)},
    'def'=> '',
    'type'=> TkType::TkagColor
  }
end

.highlightcolor(_obj) ⇒ Object 



1703
1704
1705
1706
1707
1708
1709
1710
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1703

def TkProperties.highlightcolor(_obj)
  {'name'=>'highlightcolor',
    'get'=> proc{_obj.cget('highlightcolor')},
    'set'=> proc{|background| _obj.configure('highlightcolor'=>background)},
    'def'=> '',
    'type'=> TkType::TkagColor
  }
end

.highlightthickness(_obj) ⇒ Object 



1712
1713
1714
1715
1716
1717
1718
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1712

def TkProperties.highlightthickness(_obj)
  {'name'=>'highlightthickness',
    'get'=> proc{_obj.cget('highlightthickness')},
    'set'=> proc{|x| _obj.configure('highlightthickness'=>x)},
    'def'=> ''
  }
end

.image(_obj) ⇒ Object 



1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1854

def TkProperties.image(_obj)
  {'name'=>'image',
    'get'=> proc{_ret = _obj.cget('image') 
    							 if ! _ret.kind_of?(String)		
    									_ret = _ret.cget('file')
    							 end
    							 _ret
    						},
    'set'=> proc{|j| _obj.configure('image'=>TkAllPhotoImage.new('file' => j))},
    'def'=> proc{|x|
      if x.to_s.length > 2
        "image TkPhotoImage.new('file' => #{x})"
      else
        ""
      end
    },
    'type'=> TkType::TkagFile
  }
end

.justify(_obj) ⇒ Object 



1964
1965
1966
1967
1968
1969
1970
1971
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1964

def TkProperties.justify(_obj)
  {'name'=>'justify',
    'get'=> proc{_obj.cget('justify')},
    'set'=> proc{|j| _obj.configure('justify'=>j)},
    'def'=> "",
    'type'=> TkType::TkagJustify
  }
end

.labelanchor(_obj) ⇒ Object 



1946
1947
1948
1949
1950
1951
1952
1953
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1946

def TkProperties.labelanchor(_obj)
  {'name'=>'labelanchor',
    'get'=> proc{_obj.cget('labelanchor')},
    'set'=> proc{|a| _obj.configure('labelanchor'=>a)},
    'def'=> "",
    'type'=> TkType::TkagAnchor
  }
end

.labelwidget(_obj) ⇒ Object 



2018
2019
2020
2021
2022
2023
2024
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 2018

def TkProperties.labelwidget(_obj)
  {'name'=>'labelwidget',
    'get'=> proc{_obj.cget('labelwidget')},
    'set'=> proc{|t| _obj.configure('labelwidget'=>t)},
    'def'=> ""
  }
end

.orient(_obj) ⇒ Object 



1928
1929
1930
1931
1932
1933
1934
1935
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1928

def TkProperties.orient(_obj)
  {'name'=>'orient',
    'get'=> proc{_obj.cget('orient')},
    'set'=> proc{|o| _obj.configure('orient'=>o)},
    'def'=> "",
    'type'=> TkType::TkagOrient
  }
end

.overrelief(_obj) ⇒ Object 



1775
1776
1777
1778
1779
1780
1781
1782
1783
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1775

def TkProperties.overrelief(_obj)
  {'name'=>'overrelief',
    #'default'=> 'ridge',
    'get'=> proc{_obj.cget('overrelief')},
    'set'=> proc{|r| _obj.configure('overrelief'=>r)},
    'def'=> "",
    'type'=> TkType::TkagRelief
  }
end

.padx(_obj) ⇒ Object 



1909
1910
1911
1912
1913
1914
1915
1916
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1909

def TkProperties.padx(_obj)
  {'name'=>'padx',
    #'default'=> 0,
    'get'=> proc{_obj.cget('padx')},
    'set'=> proc{|b| _obj.configure('padx'=>b)},
    'def'=> ""
  }
end

.pady(_obj) ⇒ Object 



1918
1919
1920
1921
1922
1923
1924
1925
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1918

def TkProperties.pady(_obj)
  {'name'=>'pady',
    #'default'=> 0,
    'get'=> proc{_obj.cget('pady')},
    'set'=> proc{|b| _obj.configure('pady'=>b)},
    'def'=> ""
  }
end

.property(_name, _obj) ⇒ Object 



1651
1652
1653
1654
1655
1656
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1651

def TkProperties.property(_name, _obj)
  {'name'=>_name,
    'get'=> proc{_obj.cget(_name)},
    'set'=> proc{|value| _obj.configure(_name=>value)}
  }
end

.relief(_obj) ⇒ Object 



1765
1766
1767
1768
1769
1770
1771
1772
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1765

def TkProperties.relief(_obj)
  {'name'=>'relief',
    'get'=> proc{_obj.cget('relief')},
    'set'=> proc{|r| _obj.configure('relief'=>r)},
    'def'=> "",
    'type'=> TkType::TkagRelief
  }
end

.state(_obj) ⇒ Object 



1837
1838
1839
1840
1841
1842
1843
1844
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1837

def TkProperties.state(_obj)
  {'name'=>'state',
    'get'=> proc{_obj.cget('state')},
    'set'=> proc{|s| _obj.configure('state'=>s)},
    'def'=> "",
    'type'=> TkType::TkagState
  }
end

.takefocus(_obj) ⇒ Object 



1973
1974
1975
1976
1977
1978
1979
1980
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1973

def TkProperties.takefocus(_obj)
  {'name'=>'takefocus',
    'get'=> proc{_obj.cget('takefocus')},
    'set'=> proc{|j| _obj.configure('takefocus'=>j)},
    'def'=> "",
    'type'=> EnumType.new(0,1)
  }
end

.text(_obj) ⇒ Object 



2010
2011
2012
2013
2014
2015
2016
2017
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 2010

def TkProperties.text(_obj)
  {'name'=>'text',
    'start'=> '<...>',
    'get'=> proc{_obj.cget('text')},
    'set'=> proc{|t| _obj.configure('text'=>t)},
    'def'=> ""
  }
end

.width(_obj) ⇒ Object 



1686
1687
1688
1689
1690
1691
1692
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1686

def TkProperties.width(_obj)
  {'name'=>'width',
    'get'=> proc{_obj.cget('width')},
    'set'=> proc{|t| _obj.configure('width'=>t)},
    'def'=> ""
  }
end

.wraplength(_obj) ⇒ Object 



1846
1847
1848
1849
1850
1851
1852
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1846

def TkProperties.wraplength(_obj)
  {'name'=>'wraplength',
    'get'=> proc{_obj.cget('wraplength')},
    'set'=> proc{|w| _obj.configure('wraplength'=>w)},
    'def'=> ""
  }
end

.xscrollcommand(_obj) ⇒ Object 



1793
1794
1795
1796
1797
1798
1799
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1793

def TkProperties.xscrollcommand(_obj)
  {'name'=>'xscrollcommand',
    'get'=> proc{_obj.cget('xscrollcommand')},
    'set'=> proc{|r| _obj.configure('xscrollcommand'=>r)},
    'def'=> ""
  }
end

.yscrollcommand(_obj) ⇒ Object 



1801
1802
1803
1804
1805
1806
1807
 
# File 'ext/ae-rad/lib/tk/al-tk.rb', line 1801

def TkProperties.yscrollcommand(_obj)
  {'name'=>'yscrollcommand',
    'get'=> proc{_obj.cget('yscrollcommand')},
    'set'=> proc{|r| _obj.configure('yscrollcommand'=>r)},
    'def'=> ""
  }
end