Browse CVS Repository
Contents of /exerb/exerb/example/rubytk.rb
 Parent Directory
|  Revision Log
|  Revision Graph
Revision 1.3 -
( show annotations)
( download)
Thu Jul 6 04:26:40 2006 UTC
(17 years, 9 months ago)
by yuya
Branch: MAIN
CVS Tags: release510, release500, release400, release520, release420, ChangeLog, release461, release430, release450, release480, release470, release440, release410, release530, release490, release460, release540, HEAD
Changes since 1.2: +3 -10 lines
* 実装を整理
| 1 |
|
| 2 |
#==============================================================================# |
| 3 |
# $Id: rubytk.rb,v 1.2 2006/07/06 02:26:32 yuya Exp $ |
| 4 |
#==============================================================================# |
| 5 |
|
| 6 |
def autoload(mod, fname) |
| 7 |
end |
| 8 |
|
| 9 |
TkEvent = Module.new |
| 10 |
TkPack = Module.new |
| 11 |
TkWinfo = Module.new |
| 12 |
|
| 13 |
require "tk" |
| 14 |
require "tk/event" |
| 15 |
require "tk/winfo" |
| 16 |
require "tk/button" |
| 17 |
require "tk/pack" |
| 18 |
|
| 19 |
#==============================================================================# |
| 20 |
|
| 21 |
TkButton.new(nil, |
| 22 |
:text => 'hello', |
| 23 |
:command => proc{print "hello\n"}).pack(:fill=>'x') |
| 24 |
|
| 25 |
TkButton.new(nil, |
| 26 |
:text => 'quit', |
| 27 |
:command => proc{exit}).pack(:fill=>'x') |
| 28 |
|
| 29 |
#==============================================================================# |
| 30 |
|
| 31 |
Tk.mainloop |
| 32 |
|
| 33 |
#==============================================================================# |
| 34 |
#==============================================================================# |
| |
Parent Directory
Revision Log
Revision Graph