diff options
Diffstat (limited to 'ext/tk/sample/demos-jp/tcolor')
| -rw-r--r-- | ext/tk/sample/demos-jp/tcolor | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/ext/tk/sample/demos-jp/tcolor b/ext/tk/sample/demos-jp/tcolor index 1c83a4b10b..f2d5458db4 100644 --- a/ext/tk/sample/demos-jp/tcolor +++ b/ext/tk/sample/demos-jp/tcolor @@ -1,20 +1,20 @@ #!/usr/bin/env ruby -# -*- coding: euc-jp -*- +# -*- coding: utf-8 -*- # # tcolor -- -# このスクリプトはRGB,HSB,CYM形式をサポートする -# 簡易カラーエディタです。 +# 鴻RGB,HSB,CYM綵√泣若 +# 膂≧若ｃ帥с # # Copyright (C) 1998 Takaaki Tateishi(ttate@jaist.ac.jp) # last update: Thu Jun 18 06:32:35 JST 1998 # -# まずはtk.rbを読み込む。 +# 障tk.rb茯粋昭 require "tk" -# Tkによって変更される変数はTkVariableのインスタンスを使う。 +# Tkｃ紊眼紊違TkVariableゃ潟鴻帥潟鴻篏帥 $colorSpace = TkVariable.new(:rgb) $master = nil @@ -32,13 +32,13 @@ $label2 = TkVariable.new("label2") $label3 = TkVariable.new("label3") -# リソースデータベースの設定 +# 純若鴻若帥若鴻荐絎 if (TkVarAccess.new('tcl_platform')['platform'] == 'unix') TkOptionDB.add('*Entry.background', 'white') end -# 各イベント用のメソッド +# ゃ潟＜純 def rgbToHsv(red,green,blue) @@ -277,7 +277,7 @@ end -# tcolor用のメニュー +# tcolor＜ャ class TkColorMenuFrame<TkFrame def initialize(parent) @@ -285,10 +285,10 @@ class TkColorMenuFrame<TkFrame "relief"=>"raised", "borderwidth"=>"2") - # Fileメニューボタンの生成 + # File＜ャ若帥潟 @file = TkMenubutton.new(self){|button| - # Fileメニューの作成 + # File＜ャ若篏 @file_menu = TkMenu.new(button){ add "radio", "label" => "RGB color space", @@ -326,7 +326,7 @@ class TkColorMenuFrame<TkFrame "command" => proc{exit} } - # FileメニューとFileボタンを関連付ける + # File＜ャ若File帥潟∫ｄ menu @file_menu text "File" @@ -338,7 +338,7 @@ class TkColorMenuFrame<TkFrame end -# 下部のフレームのためのクラス +# 筝若 class TkColorBotFrame<TkFrame def initialize(parent) super(parent, @@ -364,7 +364,7 @@ class TkColorBotFrame<TkFrame end -# 中段左のフレーム +# 筝罧球窪若 class TkColorMiddleLeftFrame<TkFrame def initialize(parent) super(parent) @@ -408,9 +408,9 @@ class TkColorMiddleLeftFrame<TkFrame end -# 中段中央のフレーム +# 筝罧灸賢紊若 class TkColorMiddleMiddleFrame<TkFrame - # @scale1,@scale2,@scale3を外部から参照のみ許可する。(変更不可) + # @scale1,@scale2,@scale3紊с粋┗(紊岩) attr_reader :scale1, :scale2, :scale3 def initialize(parent) @@ -485,7 +485,7 @@ end -# 中段のフレーム +# 筝罧泣若 class TkColorMiddleFrame<TkFrame attr_reader :left, :middle, :right @@ -529,6 +529,6 @@ end $root = TkColor.new -# イベントを待つ為にループに入る。 +# ゃ潟緇ょ冴若ャ changeColorSpace :rgb Tk.mainloop |