incrTclのクラスの書きかた をテンプレートにして作成

Start:
incrTclは有名な拡張で、継承や非公開メソッドとか、クラス変... ***その１（基本） [#j5380db0] package require Itcl namespace import itcl::* class Man { variable _name "" constructor {name} { set _name $name } method greet {} { puts "Hello, My name is $_name" } } Man he "Joe" he greet find objects -class Man delete object he ***その２ [#jaa45236] package require Tk package require Itcl namespace import itcl::* wm withdraw . class Win { variable name constructor {args} { set name .[string trimleft $this {::}] toplevel $name button $name.pr -text proc -command [code procP... button $name.mt -text method -command [code $this... pack $name.pr $name.mt -side left } destructor { destroy $name } #クラスメソッド private proc procPuts {} { puts aaa } #メソッド private method methodPuts {} { puts bbb } } tclsh から起動して、sourceして、 Win winA とかするとwinAのウィンドウがでるので、ボタンを押してみて... codeというのは、コマンドの名前空間をキャプチャーするitcl... ---- [[CategoryTclTk]]

End:
incrTclは有名な拡張で、継承や非公開メソッドとか、クラス変... ***その１（基本） [#j5380db0] package require Itcl namespace import itcl::* class Man { variable _name "" constructor {name} { set _name $name } method greet {} { puts "Hello, My name is $_name" } } Man he "Joe" he greet find objects -class Man delete object he ***その２ [#jaa45236] package require Tk package require Itcl namespace import itcl::* wm withdraw . class Win { variable name constructor {args} { set name .[string trimleft $this {::}] toplevel $name button $name.pr -text proc -command [code procP... button $name.mt -text method -command [code $this... pack $name.pr $name.mt -side left } destructor { destroy $name } #クラスメソッド private proc procPuts {} { puts aaa } #メソッド private method methodPuts {} { puts bbb } } tclsh から起動して、sourceして、 Win winA とかするとwinAのウィンドウがでるので、ボタンを押してみて... codeというのは、コマンドの名前空間をキャプチャーするitcl... ---- [[CategoryTclTk]]

Page: