- Timestamp:
- Feb 3, 2011, 5:23:10 PM (14 years ago)
- Location:
- trunk
- Files:
-
- 1 added
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/builder/scripts/Makefile.in
r2081 r2082 24 24 $(srcdir)/objpath.tcl \ 25 25 $(srcdir)/slideframes.tcl \ 26 $(srcdir)/tool.rp \ 26 27 $(srcdir)/tweener.tcl 27 28 -
trunk/builder/scripts/filmstrip.tcl
r2081 r2082 278 278 279 279 # fix up the scrolling region to include all of these items 280 set x1 0 281 set y1 0 280 282 foreach {x0 y0 x1 y1} [$itk_component(strip) bbox all] break 281 283 set x1 [expr {$x1+$itk_option(-padding)}] -
trunk/builder/scripts/main.tcl
r2081 r2082 109 109 lappend Rappture::icon::iconpath [file join $dir images] 110 110 111 # automatically load all Rappture object types 112 if {[catch {Rappture::objects::init} err]} { 113 puts stderr "Error loading object definitions:\n$err" 114 exit 1 115 } 116 if {[catch {Rappture::objects::load [file join $dir tool.rp]} err]} { 117 puts stderr "Error loading tool object definition:\n$err" 118 exit 1 119 } 120 111 121 # ---------------------------------------------------------------------- 112 122 # HACK ALERT! Make it so the Analyzer can't possibly enable its … … 814 824 set f [$win.pager page analyzer] 815 825 # note: simcontrol on but disabled due to _simState code above 816 Rappture::Analyzer $f.analyze $ToolPreview -simcontrol on 826 Rappture::Analyzer $f.analyze $ToolPreview -simcontrol on \ 827 -notebookpage about 817 828 pack $f.analyze -expand yes -fill both 818 829 … … 896 907 pack $iwin.strip -expand yes -fill both 897 908 898 foreach name [ Rappture::objects::get] {909 foreach name [lsort [Rappture::objects::get]] { 899 910 set imh [Rappture::objects::get $name -image] 900 911 if {"" == $imh} { -
trunk/gui/apps/launcher.tcl
r2081 r2082 61 61 lappend alist -tool $toolxml 62 62 } 63 -t estdir - -nosim {63 -tool - -testdir - -nosim { 64 64 lappend alist $opt [lindex $argv 0] 65 65 set argv [lrange $argv 1 end] … … 87 87 } 88 88 89 # if we didn't find a tool.xml file, then look for one here90 if {$toolxml eq ""} {91 if {![file exists tool.xml]} {92 puts stderr "rappture: can't find tool definition file \"tool.xml\""93 puts stderr " Use the -tool option to specify the location of this file."94 exit 195 }96 set alist [linsert $alist 0 -tool tool.xml]97 }98 99 89 # invoke the main program with the args 100 90 eval exec wish [list $mainscript] $alist -
trunk/lang/tcl/scripts/library.tcl
r2080 r2082 16 16 namespace eval Rappture { 17 17 variable stdlib "" 18 }19 20 # automatically load all Rappture object types21 if {[catch {Rappture::objects::init} err]} {22 puts stderr "Error loading object definitions:\n$err"23 exit 124 18 } 25 19 -
trunk/lang/tcl/scripts/objects.tcl
r2081 r2082 79 79 # load supporting type definitions 80 80 foreach fname [glob [file join $installdir types *.tcl]] { 81 source $fname81 uplevel #0 source $fname 82 82 } 83 83 84 84 # load supporting validation procs 85 85 foreach fname [glob [file join $installdir validations *.tcl]] { 86 source $fname86 uplevel #0 source $fname 87 87 } 88 88 … … 137 137 set errs($tname) 1 138 138 } 139 } else { 140 lappend newilist $obj 139 141 } 140 142 $objDefs($name) configure -inherit $newilist
Note: See TracChangeset
for help on using the changeset viewer.