Changeset 2750

Timestamp:

Jan 5, 2012 8:10:09 PM (12 years ago)

Author:

mmc

Message:

Added an icondir proc to append new directories onto the icon path.
A little cleaner than appending directly to the iconpath variable,
especially when the icon code has not yet been autoloaded.

File:

• trunk/gui/scripts/icons.tcl (modified) (1 diff)

trunk/gui/scripts/icons.tcl

@@ -18 +18 @@
     variable iconpath [list [file join $RapptureGUI::library scripts images]]
     variable icons
+}
+
+# ----------------------------------------------------------------------
+# USAGE: Rappture::icondir ?<dirname> <dirname>...?
+#
+# Adds one or more directories onto the icon path searched when
+# locating icons in Rappture::icon.  You can do the same thing by
+# lappend'ing onto the "iconpath" variable, but this call avoids
+# duplicates and makes it easier
+# ----------------------------------------------------------------------
+proc Rappture::icondir {args} {
+    variable ::Rappture::icon::iconpath
+    foreach dir $args {
+        if {[file isdirectory $dir]} {
+            if {[lsearch $iconpath $dir] < 0} {
+                lappend iconpath $dir
+            }
+        }
+    }
 }