05 2011 档案
摘要:TickleSharpFrom the TickleSharp project page, Scott Adams said that: TickSharp is a portable binding to the Tcl/Tk scripting language for the .NET platform. The assembly consists of two files, one is a small C wrapper library that allows for Callbacks into your .NET code, and the other is the assemb
阅读全文
摘要:class Dataab {inherit ::itk::Widgetconstructor { args } {itk_component add pw_v { iwidgets::panedwindow $itk_interior.pw \ -orient vertical} { }itk_component add label { label $itk_interior.l1 -text "Data " }## From here we will test to add a new button, and then to see what happenitk_comp
阅读全文
摘要:import c / c++ project into Eclipsewith makefile c / c++ projectFile -> New Project -> Makefile project with the existing code -> browse the code and get poject Check Builder SettingsDo not select Generate Makefiles automatically select Expand Env Variable Refs in Makefilescheck build direc
阅读全文
摘要:nm基本用法命令 nm用来列出目标文件的符号清单。下面是nm命令的格式: nm [-a|--debug-syms] [-g|--extern-only] [-B][-C|--demangle] [-D|--dynamic] [-s|--print-armap][-o|--print-file-name] [-n|--numeric-sort][-p|--no-sort] [-r|--reverse-sort] [--size-sort][-u|--undefined-only] [-l|--line-numbers] [--help][--version] [-t radix|--radix=
阅读全文
摘要:1.ar基本用法 ar命令可以用来创建、修改库,也可以从库中提出单个模块。库是一单独的文件,里面包含了按照特定的结构组织起来的其它的一些文件(称做此库文件的member)。原始文件的内容、模式、时间戳、属主、组等属性都保留在库文件中。 下面是ar命令的格式: ar [-]{dmpqrtx}[abcfilNoPsSuvV] [membername] [count] archive files... 例如我们可以用ar rv libtest.a hello.o hello1.o来生成一个库,库名字是test,链接时可以用-ltest链接。该库中存放了两个模块hello.o和hello1.o。选项前
阅读全文
摘要:Here is a list of 'vi' commands to move the cursor on text area of the screen: [n]h Move left n times [n]l Move right n times [n]j Move down n times [n]k Move up n times [n]w Move to next word n times [n]b Move to previous word n times $ Move to the end of the line ^ Move to the beginning of
阅读全文
摘要:usingSystem.Text.RegularExpressions;stringstr="aaajsbbbjsccc";string[]sArray=Regex.Split(str,"js",RegexOptions.IgnoreCase);foreach(stringiinsArray)Response.Write(i.ToString()+"<br>");
阅读全文
摘要:setStandardOptionsgetBluIceDirectoriesDCS::Config config (set NickName)loadConfig $beamlinecreateControlSystemInterfacestartBluIce ::config::iwidgets::panedwindow .pw.pw add BluIce.pw add Logger -minimum 10set statusBar [StatusBar .sb]set bluice [BluIce .pw.childsite.0.bluice]set logView [DCS::LogVi
阅读全文
摘要:objectMediator mediator mediator announceDestruction object mediator announceExistence object mediator cget -option mediator configure ?-option? ?value -option value...? mediator getUniqueInitiatorId mediator isa className mediator printStatus mediator register lstnr target attribute callback ?alias
阅读全文
摘要:proc getMachineType { } { global env if {[info exists env(OS)]} { return nt } else { set os [exec uname] switch -exact -- $os { OSF1 { return decunix } IRIX64 { return irix } Linux { set mach [exec uname -m] switch -exact -- $mach { i686 { return linux } x86_64 { return linux64 } ia64 { return ia64
阅读全文
摘要:DCS::DcssUserProtocol dcss \ |---> no space $dcssHostName \ $dcssPort \ -useSSL [::config getDcssUseSSL] \ -authProtocol $authProtocol \ -_reconnectTime 1000 \ -callback "" \ -networkErrorCallback ""
阅读全文
摘要:class ::DCS::Set {# public methodspublic method constructor {} {}public method add { member }public method remove { member }public method get {}public method clear {}public method isMember { member }# private dataprivate variable memberList {}}body ::DCS::Set::clear {} {# set the list of current mem
阅读全文
摘要:::iwidgets::panedwindow .pw class TimeWidget { inherit ::itk::Widget private common midhighlight #e0e0f0 private common smallFont *-helvetica-bold-r-normal--34-*-*-*-*-*-*-* public method updateTime constructor {args} { # the time widget itk_component add time { iwidgets::timefield $itk_interior.t \
阅读全文
摘要:class Destroyer {inherit ::itk::Widget constructor {args} { } destructor {killFast} private method killFast {} { global errorInfo #check for an error message that is always there on clean shutdown if { [string first .help_shell $errorInfo] == -1 } { #print the last error puts $errorInfo } #kill this
阅读全文
摘要:body createDataprocessTab {} { set childsite [$itk_component(notebook) add Dataprocess -label "Dataprocess"] itk_component add dataprocessTab { label $itk_interior.dataprocessTab } { keep -background keep -font }#$itk_component(hutchTab) addChildVisibilityControl $itk_component(notebook) a
阅读全文
摘要:$itk_componentarray abort .sb.stop activeButton.sb.active clientStatusLabel.sb.cs destroyer .sb.destroyer hull .sb l_shutter .sb.l_shutter login .sb.login shutter .sb.shutter spear .sb.spear sys_status .sb.sysStatus time .sb.t
阅读全文
摘要:class Singleton { private common _instance {} ;# static instance variable # # Define a "static method" Instance. # proc Instance {} { if { $_instance == {} } { set _instance [Singleton ABC] } return $_instance } # end of Instance constructor {} { set caller [info level [expr [info level] -
阅读全文
摘要:BluIce classBluIce .pw.pane0.childsite.bluicehull .pw.pane0.childsite.bluicenotebook.pw.pane0.childsite.bluice.n /from the BluIce create a new childsite /named as: .pw.pane0.childsite.bluice.n.canvas.notebook.cs.page1.cs HutchTab class .pw.pane0.childsite.bluice.n.canvas.notebook.cs.page1.cs.hHutchO
阅读全文
摘要:using System.Net;using System.Windows.Forms;string url = "http://www.com";string result = null;try{ WebClient client = new WebClient(); result = client.DownloadString( url );}catch (Exception ex){ // handle error MessageBox.Show( ex.Message );}
阅读全文
摘要:configbody DCS::MotorViewEntry::extraDevice { if {$itk_option(-extraDevice) == $lastExtraDevice} { return } set m_extraDeviceReady 0 if {$lastExtraDevice != ""} {::mediator unregister $this $lastExtraDevice scaledPosition }if { $itk_option(-extraDevice) != "" } { set device $itk_
阅读全文
摘要:package require Itclitcl::class sampleconf { ;# a sample class with a single public variable public variable publicv ;# this var is adjusted using the configure -publicv... constructor {} { } method setpublicv {dn} { set publicv "$dn" puts $dn } method shwopublicv {} { puts $publicv } }# c
阅读全文
摘要:deviceFactory0 cget -option deviceFactory0 configure ?-option? ?value -option value...? deviceFactory0 createCassetteOwnerString name ?arg arg ...? deviceFactory0 createCoreDevices deviceFactory0 createDefaultSignals deviceFactory0 createEncoder name ?arg arg ...? deviceFactory0 createHardwareContr.
阅读全文
摘要:dcss abort dcss addAttribute attribute_ accessor_ dcss addLoginWidget widget_ dcss announceDestruction dcss announceExist dcss becomeActive dcss becomePassive dcss breakConnection dcss cget -option dcss configure ?-option? ?value -option value...? dcss connect dcss dcsConfigure dcss exportSubCompone
阅读全文
摘要: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
阅读全文
摘要:itk_interior contains the window path name for the "hull" component.
阅读全文
摘要: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
阅读全文
摘要: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
阅读全文
摘要:info proc info commands
阅读全文
摘要: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
阅读全文
摘要: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 .
阅读全文
摘要:itk::Widget itk_component add scrollbar { scrollbar $itk_interior.sbar ---- } pack $itk_component
阅读全文
摘要: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
阅读全文
摘要: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
阅读全文
摘要:iwidgets::regexpfield .fname \ -labeltext "Enter First Name:" \ -fixed 12 \ -regexp {^[a-zA-Z]+$}iwidgets::Labeledwidget::alignlabels .fnamepack .fname\ -fill x \ -expand 1
阅读全文
摘要:iwidgets::pushbutton .pb \-text "Go ahead, hit me..." \-command {puts OUCH!!} \-defaultring 1pack .pb \-padx 12 \-pady 12
阅读全文
摘要:iwidgets::promptdialog .pd \-labeltext "Enter your security key" \-title "Accessing Security Site" \-modality application####Hide Apply; don't need it. Bring##back Help though; it is hidden by##default##.pd show Help.pd hide Apply.pd buttonconfigure Help \-command {puts "
阅读全文
摘要:proc selectProc {} {set os [.om get]puts "The OS chosen is $os"return}; # end selectProc prociwidgets::optionmenu .om \-labeltext "Operating Systems:" \-command selectProcpack .om \-padx 10 \-pady 10####Insert items into the list##foreach o {SunOS HP/UX AIX OS/2 Windows DOS Linux
阅读全文
摘要:foreach m {file edit view} { puts $m}fileeditviewset aa [list ab te se]foreach g $aa {puts $g}abtese
阅读全文
摘要:iwidgets::hyperhelp .hh \ -topics demo \ -helpdir [file join /home/you/Desktop] \ -maxhistory 30####display the topic in the iwidget##when the iwidget is activated##.hh showtopic demo####Activate the iwidget##update idletasks.hh activate.hh configure \ -title "aaHyperhelp Example"
阅读全文
摘要:package require Iwidgetswm title . "Feedback Example"wm geometry . 225x75##=========================================================## Create a Feedback iwidget##=========================================================##iwidgets::feedback .fb \ -steps 50 \ -labeltext "Loading File...
阅读全文
摘要:iwidgets::extfileselectionbox .efsb \ -mask "*.html" \ -directory "../" \ -fileslabel "HTML Files" \ -dirslabel "Iwidgets HTML Dir" \ -selectdircommand {print dir} \ -selectfilecommand {print file}pack .efsb \ -fill both \ -expand true
阅读全文
摘要:iwidgets::toolbar .tb \ -balloonbackground \ -ballonforeground \ -balloondelay1 \ -balloondelay2 \ -helpvariable .tb add iwidgets::extbutton $b \ -balloonstr \ -helpstr \ -text \ -imagepos \ -command \ -relief \ -image label .stat \ -textvariable \ -relief \ -background \ -foreground \ -width pack .
阅读全文
摘要:package require Iwidgetswm title . "Checkbox Example"####wrap in a dialog user interaction##iwidgets::dialog .d \-title "Checkbox Example"#.d hide Help#.d hide Apply.d buttonconfigure OK \-text "Update"set cs [.d childsite]##=============================================
阅读全文