Browse CVS Repository
Contents of /exerb/exerbtk/test/label.rb
 Parent Directory
|  Revision Log
|  Revision Graph
Revision 1.7 -
( show annotations)
( download)
Fri Feb 13 15:05:04 2004 UTC
(20 years, 2 months ago)
by yuya
Branch: MAIN
CVS Tags: HEAD
Changes since 1.6: +2 -2 lines
* etk/etk.rb経由でetklib.soを読み込むように変更
| 1 |
#! /usr/bin/ruby |
| 2 |
|
| 3 |
#==============================================================================# |
| 4 |
# $Id: label.rb,v 1.6 2004/01/15 09:35:35 yuya Exp $ |
| 5 |
#==============================================================================# |
| 6 |
|
| 7 |
require 'etk/etk' |
| 8 |
|
| 9 |
#==============================================================================# |
| 10 |
|
| 11 |
class MyForm < Etk::Form |
| 12 |
|
| 13 |
def initialize |
| 14 |
self.set_client_size(170, 90) |
| 15 |
self << Etk::Label.new(:label1, "Label 1", 10, 10, 70, 30) |
| 16 |
self << Etk::Label.new(:label2, "Label 2", 10, 50, 70, 30) |
| 17 |
self << Etk::Label.new(:label3, "Label 3", 90, 10, 70, 30) |
| 18 |
self << Etk::Label.new(:label4, "Label 4", 90, 50, 70, 30) |
| 19 |
end |
| 20 |
|
| 21 |
end |
| 22 |
|
| 23 |
#==============================================================================# |
| 24 |
|
| 25 |
Etk.main(MyForm.new) |
| 26 |
|
| 27 |
#==============================================================================# |
| 28 |
#==============================================================================# |
| |
Parent Directory
Revision Log
Revision Graph