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 阅读全文
posted @ 2011-05-31 20:49 greencolor 阅读(492) 评论(0) 推荐(0) 编辑
摘要: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 阅读全文
posted @ 2011-05-30 14:33 greencolor 阅读(123) 评论(0) 推荐(0) 编辑
摘要: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 阅读全文
posted @ 2011-05-28 22:56 greencolor 阅读(195) 评论(0) 推荐(0) 编辑
摘要: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= 阅读全文
posted @ 2011-05-27 22:29 greencolor 阅读(219) 评论(0) 推荐(0) 编辑
摘要: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。选项前 阅读全文
posted @ 2011-05-27 22:28 greencolor 阅读(128) 评论(0) 推荐(0) 编辑
摘要: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 阅读全文
posted @ 2011-05-26 20:59 greencolor 阅读(258) 评论(0) 推荐(0) 编辑
摘要:usingSystem.Text.RegularExpressions;stringstr="aaajsbbbjsccc";string[]sArray=Regex.Split(str,"js",RegexOptions.IgnoreCase);foreach(stringiinsArray)Response.Write(i.ToString()+"<br>"); 阅读全文
posted @ 2011-05-24 14:10 greencolor 阅读(153) 评论(0) 推荐(0) 编辑
摘要: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 阅读全文
posted @ 2011-05-23 22:07 greencolor 阅读(134) 评论(0) 推荐(0) 编辑
摘要: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 阅读全文
posted @ 2011-05-22 14:42 greencolor 阅读(148) 评论(0) 推荐(0) 编辑
摘要: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 阅读全文
posted @ 2011-05-20 21:57 greencolor 阅读(119) 评论(0) 推荐(0) 编辑
摘要:DCS::DcssUserProtocol dcss \ |---> no space $dcssHostName \ $dcssPort \ -useSSL [::config getDcssUseSSL] \ -authProtocol $authProtocol \ -_reconnectTime 1000 \ -callback "" \ -networkErrorCallback "" 阅读全文
posted @ 2011-05-19 16:13 greencolor 阅读(140) 评论(0) 推荐(0) 编辑
摘要: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 阅读全文
posted @ 2011-05-18 22:53 greencolor 阅读(203) 评论(0) 推荐(0) 编辑
摘要:::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 \ 阅读全文
posted @ 2011-05-17 22:52 greencolor 阅读(192) 评论(0) 推荐(0) 编辑
摘要: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 阅读全文
posted @ 2011-05-16 22:04 greencolor 阅读(136) 评论(0) 推荐(0) 编辑
摘要: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 阅读全文
posted @ 2011-05-15 22:53 greencolor 阅读(111) 评论(0) 推荐(0) 编辑
摘要:$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 阅读全文
posted @ 2011-05-15 16:18 greencolor 阅读(127) 评论(0) 推荐(0) 编辑
摘要: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] - 阅读全文
posted @ 2011-05-15 13:08 greencolor 阅读(205) 评论(0) 推荐(0) 编辑
摘要: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 阅读全文
posted @ 2011-05-11 23:14 greencolor 阅读(139) 评论(0) 推荐(0) 编辑
摘要: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 );} 阅读全文
posted @ 2011-05-11 03:25 greencolor 阅读(199) 评论(0) 推荐(0) 编辑
摘要: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_ 阅读全文
posted @ 2011-05-10 15:38 greencolor 阅读(188) 评论(0) 推荐(0) 编辑
摘要: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 阅读全文
posted @ 2011-05-10 14:36 greencolor 阅读(216) 评论(0) 推荐(0) 编辑
摘要: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. 阅读全文
posted @ 2011-05-06 12:03 greencolor 阅读(166) 评论(0) 推荐(0) 编辑
摘要: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 阅读全文
posted @ 2011-05-06 09:09 greencolor 阅读(466) 评论(0) 推荐(0) 编辑
摘要: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 阅读(212) 评论(0) 推荐(0) 编辑
摘要:itk_interior contains the window path name for the "hull" component. 阅读全文
posted @ 2011-05-04 23:08 greencolor 阅读(122) 评论(0) 推荐(0) 编辑
摘要: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 阅读(183) 评论(0) 推荐(0) 编辑
摘要: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 阅读(142) 评论(0) 推荐(0) 编辑
摘要:info proc info commands 阅读全文
posted @ 2011-05-04 20:35 greencolor 阅读(154) 评论(0) 推荐(0) 编辑
摘要: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 阅读(132) 评论(0) 推荐(0) 编辑
摘要: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 阅读(221) 评论(0) 推荐(0) 编辑
摘要:itk::Widget itk_component add scrollbar { scrollbar $itk_interior.sbar ---- } pack $itk_component 阅读全文
posted @ 2011-05-04 15:21 greencolor 阅读(115) 评论(0) 推荐(0) 编辑
摘要: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 阅读(261) 评论(0) 推荐(0) 编辑
摘要: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 阅读(284) 评论(0) 推荐(0) 编辑
摘要:iwidgets::regexpfield .fname \ -labeltext "Enter First Name:" \ -fixed 12 \ -regexp {^[a-zA-Z]+$}iwidgets::Labeledwidget::alignlabels .fnamepack .fname\ -fill x \ -expand 1 阅读全文
posted @ 2011-05-03 22:19 greencolor 阅读(154) 评论(0) 推荐(0) 编辑
摘要:iwidgets::pushbutton .pb \-text "Go ahead, hit me..." \-command {puts OUCH!!} \-defaultring 1pack .pb \-padx 12 \-pady 12 阅读全文
posted @ 2011-05-03 21:57 greencolor 阅读(152) 评论(0) 推荐(0) 编辑
摘要: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 " 阅读全文
posted @ 2011-05-03 21:41 greencolor 阅读(209) 评论(0) 推荐(0) 编辑
摘要: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 阅读全文
posted @ 2011-05-03 21:02 greencolor 阅读(222) 评论(0) 推荐(0) 编辑
摘要:foreach m {file edit view} { puts $m}fileeditviewset aa [list ab te se]foreach g $aa {puts $g}abtese 阅读全文
posted @ 2011-05-02 19:17 greencolor 阅读(254) 评论(0) 推荐(0) 编辑
摘要: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" 阅读全文
posted @ 2011-05-02 18:37 greencolor 阅读(199) 评论(0) 推荐(0) 编辑
摘要:package require Iwidgetswm title . "Feedback Example"wm geometry . 225x75##=========================================================## Create a Feedback iwidget##=========================================================##iwidgets::feedback .fb \ -steps 50 \ -labeltext "Loading File... 阅读全文
posted @ 2011-05-01 16:41 greencolor 阅读(195) 评论(0) 推荐(0) 编辑
摘要: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 阅读全文
posted @ 2011-05-01 16:05 greencolor 阅读(191) 评论(0) 推荐(0) 编辑
摘要: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 . 阅读全文
posted @ 2011-05-01 15:27 greencolor 阅读(194) 评论(0) 推荐(0) 编辑
摘要: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]##============================================= 阅读全文
posted @ 2011-05-01 11:09 greencolor 阅读(156) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示