Changeset 2750
- Timestamp:
- Jan 5, 2012, 8:10:09 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/icons.tcl
r1929 r2750 18 18 variable iconpath [list [file join $RapptureGUI::library scripts images]] 19 19 variable icons 20 } 21 22 # ---------------------------------------------------------------------- 23 # USAGE: Rappture::icondir ?<dirname> <dirname>...? 24 # 25 # Adds one or more directories onto the icon path searched when 26 # locating icons in Rappture::icon. You can do the same thing by 27 # lappend'ing onto the "iconpath" variable, but this call avoids 28 # duplicates and makes it easier 29 # ---------------------------------------------------------------------- 30 proc Rappture::icondir {args} { 31 variable ::Rappture::icon::iconpath 32 foreach dir $args { 33 if {[file isdirectory $dir]} { 34 if {[lsearch $iconpath $dir] < 0} { 35 lappend iconpath $dir 36 } 37 } 38 } 20 39 } 21 40
Note: See TracChangeset
for help on using the changeset viewer.