Develop and Download Open Source Software

Browse CVS Repository

Contents of /exerb/exerbtk/test/common_dialog.rb

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.3 - (show annotations) (download)
Fri Feb 13 17:23:33 2004 UTC (20 years, 1 month ago) by yuya
Branch: MAIN
CVS Tags: HEAD
Changes since 1.2: +49 -50 lines
* 記述スタイルを変更

1 #! /usr/bin/ruby
2
3 #==============================================================================#
4 # $Id: common_dialog.rb,v 1.2 2004/02/13 15:05:04 yuya Exp $
5 #==============================================================================#
6
7 require 'etk/etk'
8
9 #==============================================================================#
10
11 class MyForm < Etk::Form
12
13 def initialize
14 self.suspend_layout {
15 self.text = "$Id: common_dialog.rb,v 1.2 2004/02/13 15:05:04 yuya Exp $"
16 self.border_style = Etk::Form::BORDER_STYLE_FIXED_SINGLE
17 self.maximize_box = false
18 self.set_client_size(170, 230)
19
20 self << Etk::Button.new(:btn1, "OpenFileDialog", 10, 10, 150, 30)
21 self << Etk::Button.new(:btn2, "SaveFileDialog", 10, 40, 150, 30)
22 self << Etk::Button.new(:btn3, "FolderBrowserDialog", 10, 70, 150, 30)
23 self << Etk::Button.new(:btn4, "ColorDialog", 10, 100, 150, 30)
24 self << Etk::Button.new(:btn5, "FontDialog", 10, 130, 150, 30)
25 self << Etk::Button.new(:btn6, "PageSetupDialog", 10, 160, 150, 30)
26 self << Etk::Button.new(:btn7, "PrintDialog", 10, 190, 150, 30)
27 }
28 end
29
30 def on_btn1_click(arg)
31 dialog = Etk::OpenFileDialog.new
32 p(dialog.show)
33 p(dialog.filename)
34 end
35
36 def on_btn2_click(arg)
37 dialog = Etk::SaveFileDialog.new
38 p(dialog.show)
39 p(dialog.filename)
40 end
41
42 def on_btn3_click(arg)
43 dialog = Etk::FolderBrowserDialog.new
44 p(dialog.show)
45 end
46
47 def on_btn4_click(arg)
48 dialog = Etk::ColorDialog.new
49 p(dialog.show)
50 end
51
52 def on_btn5_click(arg)
53 dialog = Etk::FontDialog.new
54 p(dialog.show)
55 end
56
57 def on_btn6_click(arg)
58 dialog = Etk::PageSetupDialog.new
59 p(dialog.show)
60 end
61
62 def on_btn7_click(arg)
63 dialog = Etk::PrintDialog.new
64 p(dialog.show)
65 end
66
67 end
68
69 #==============================================================================#
70
71 Etk.main(MyForm.new)
72
73 #==============================================================================#
74 #==============================================================================#

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26