greencolor - 博客园

2011年5月5日

摘要： package require Itclpackage require Itkpackage require Iwidgetsnamespace import ::itcl::*namespace import ::itk::*class BottomClass { inherit itk::Widget itk_option define -wang wang Wang "" { } itk_option define -charlie charlie Charlie "" { puts "new value for -charlie: $i 阅读全文

posted @ 2011-05-05 16:35 greencolor 阅读(219) 评论(0) 推荐(0)

2011年5月4日

itk_interior

摘要： itk_interior contains the window path name for the "hull" component. 阅读全文

posted @ 2011-05-04 23:08 greencolor 阅读(126) 评论(0) 推荐(0)

BluIce structure

摘要： BluIce::createHutchTab HutchTab $childsite.hBluIce::createSampleTab SampleTab $childsite.sampleBluIce::createCollectTab DCS::CollectTab $childsite.sBluIce::createQueueTab QueueTab $childsite.q BluIce::createScreeningTab ScreeningTab $childsite.s BluIce::createScanTab DCS::ScanWidget $childsite.scan 阅读全文

posted @ 2011-05-04 22:37 greencolor 阅读(189) 评论(0) 推荐(0)

BluIce itk_component

摘要： BluIce is a widget classclass BluIce { inherit ::itk::Widget .. .. constructor {args} { itk_component add notebook { ... ... } {}BluIce [.pw childsite 0].bluice \ -detectorType Q315CCD \ - ....[.pw childsite 0].bluice .pw.pane0.childsite.bluiceitk_component(hull) .pw.pane0.childsite.bluiceitk_compon 阅读全文

posted @ 2011-05-04 21:34 greencolor 阅读(145) 评论(0) 推荐(0)

info tcl tk

摘要： info proc info commands 阅读全文

posted @ 2011-05-04 20:35 greencolor 阅读(160) 评论(0) 推荐(0)

DCS::TabNotebook

摘要： ExeDCS::TabNotebook .pw.pane0.childsite.bluice.n .pw.pane0.childsite.bluice.n add tabName ?arg arg ...? .pw.pane0.childsite.bluice.n addAttribute attribute_ accessor_ .pw.pane0.childsite.bluice.n addChildVisibilityControl widget attribute visibleTrigger .pw.pane0.childsite.bluice.n announceDestructi 阅读全文

posted @ 2011-05-04 16:23 greencolor 阅读(136) 评论(0) 推荐(0)

BluIce class

摘要： Execute BluIce .pw.pane0.childsite.bluice.pw.pane0.childsite.bluice cget option .pw.pane0.childsite.bluice component ?name? ?arg arg ...? .pw.pane0.childsite.bluice config ?option? ?arg arg ...? .pw.pane0.childsite.bluice configure ?option? ?arg arg ...? .pw.pane0.childsite.bluice createCollectTab . 阅读全文

posted @ 2011-05-04 15:58 greencolor 阅读(225) 评论(0) 推荐(0)

itk_component

摘要： itk::Widget itk_component add scrollbar { scrollbar $itk_interior.sbar ---- } pack $itk_component 阅读全文

posted @ 2011-05-04 15:21 greencolor 阅读(127) 评论(0) 推荐(0)

Iwidgets class tcl tk

摘要： package require Iwidgetsnamespace import itcl::*namespace import itk::*option add *TextDisplay.wrap none widgetDefaultoption add *TextDisplay.textBackground ivory widgetDefaultoption add *TextDisplay.width 40 widgetDefaultoption add *TextDisplay.height 10 widgetDefaultclass TextDisplay { inherit itk 阅读全文

posted @ 2011-05-04 14:20 greencolor 阅读(272) 评论(0) 推荐(0)

2011年5月3日

scrolled canvas tcl tk

摘要： iwidgets::scrolledcanvas .sc \-textbackground gray \-width 300 \-height 300 \-vscrollmode dynamic \-hscrollmode dynamic \-labeltext "Scrolledcanvas Example".sc create rectangle 100 100 200 200 -fill red.sc create rectangle 300 300 400 400 -fill green.sc create rectangle 200 200 300 300 -fi 阅读全文

posted @ 2011-05-03 22:22 greencolor 阅读(292) 评论(0) 推荐(0)

公告