From: <m97...@us...> - 2008-12-20 21:14:28
|
Revision: 8413 http://openmsx.svn.sourceforge.net/openmsx/?rev=8413&view=rev Author: m9710797 Date: 2008-12-20 21:14:26 +0000 (Sat, 20 Dec 2008) Log Message: ----------- filter on .dsk file-extension (was .rom) in disk selection menu Modified Paths: -------------- openmsx/trunk/share/scripts/osd_menu.tcl Modified: openmsx/trunk/share/scripts/osd_menu.tcl =================================================================== --- openmsx/trunk/share/scripts/osd_menu.tcl 2008-12-20 19:41:39 UTC (rev 8412) +++ openmsx/trunk/share/scripts/osd_menu.tcl 2008-12-20 21:14:26 UTC (rev 8413) @@ -348,8 +348,8 @@ RIGHT { cycle scale_algorithm }}}}}] -proc __ls { directory } { - set roms [glob -nocomplain -tails -directory $directory -type f *.{rom,zip,gz}] +proc __ls { directory extensions } { + set roms [glob -nocomplain -tails -directory $directory -type f *.{$extensions}] set dirs [glob -nocomplain -tails -directory $directory -type d *] set dirs2 [list] foreach dir $dirs { @@ -374,7 +374,7 @@ } proc __menu_create_ROM_list { path } { - return [__prepare_menu_list [__ls $path] \ + return [__prepare_menu_list [__ls $path "rom,zip,gz"] \ 10 \ { execute __menu_select_rom bg-color 0x000000a0 @@ -405,7 +405,7 @@ } proc __menu_create_disk_list { path } { - set disks [concat "--eject--" [__ls $path]] + set disks [concat "--eject--" [__ls $path "dsk,zip,gz"]] return [__prepare_menu_list $disks \ 10 \ { execute __menu_select_disk This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |