[interchange-cvs] interchange - ton modified code/Widget/imagehelper.widget

[interchange-core@icdevgroup.org]

User:      ton
Date:      2003-06-15 10:46:45 GMT
Modified:  code/Widget imagehelper.widget
Log:
	Fixed errorneous call to list_images routine.

Revision  Changes    Path
1.2       +1 -1      interchange/code/Widget/imagehelper.widget


rev 1.2, prev_rev 1.1
Index: imagehelper.widget
===================================================================
RCS file: /var/cvs/interchange/code/Widget/imagehelper.widget,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- imagehelper.widget	3 Feb 2002 22:01:57 -0000	1.1
+++ imagehelper.widget	15 Jun 2003 10:46:45 -0000	1.2
@@ -19,7 +19,7 @@
 	my $of_widget;
 	if($path =~ s!/\*(?:\.([^/]+))?$!!) {
 		my $spec = $1;
-		my @files = list_images($path, $spec);
+		my @files = UI::Primitive::list_images($path, $spec);
 		unshift(@files, "=(none)");
 		my $passed = join ",", map { s/,/,/g; $_} @files;
 		my $opt = {