+
+case $# in
+1) dir=$1 ;;
+*) printf 'usage: %s [options] directory\n' "$0" 1>&2
+esac
+
+size=`$xaspect -dimensions`
+find $1 -maxdepth 1 -name "*$size.png" -print0 -exec $thumber {} \; |
+ awk -F '\0' '{
+ gsub(/["\\]/, "\\\\&");
+ caption = gensub(/.*\/(.*)\..*/, "\\1", 1, $1);
+ print "AddToMenu", menuname, "\"" caption "*" $2 "*\"",
+ funcname, "\"" $1 "\""
+ }' "menuname=$menu" "funcname=$func"