- 149 名前：デフォルトの名無しさん mailto:sage [2008/02/27(水) 09:31:30 ]
- >>140
# 1/2 : GUI 構築
require 'tk'
label = TkLabel.new(nil,:text=>'検索文字列入力')
label.pack(:side=>:top,:fill=>:x)
$entry = TkEntry.new(nil)
$entry.value = '検索文字列を入力'
$entry.pack(:side=>:top,:fill=>:x)
meta = TkButton.new(nil,:text=>'メタデータから検索')
meta.pack(:side=>:top)
text = TkButton.new(nil,:text=>'本文全体から検索')
text.pack(:side=>:top)
view = TkButton.new(nil,:text=>'ファイルの中身を表示')
view.pack(:side=>:top)
scr = TkScrollbar.new(nil)
$text = TkText.new(nil)
scr.command = '%s yview'%$text.path
$text.yscroll = '%s set'%scr.path
scr.pack(:side=>:left,:fill=>:y)
$text.pack(:side=>:left,:fill=>:both)
# 後半へ続く
|
 |
