TkMAME patch

[TKMAME]

Here is a patch for TkMAME for psudo-backwards compatibility between new
xmame and old xmame rom search path.

At least I think this works ;-)

Regards,
Chris


--- tkmame.tcl~ Fri Sep 10 15:32:59 1999
+++ tkmame.tcl  Fri Nov 12 10:35:21 1999
@@ -1101,8 +1101,12 @@
     if { [is_unix] } {
        set newrompath ""
        foreach dir [split $rom_path :] {
-         set dir [string trim $dir]
-         append newrompath "$dir/roms:"
+           set dir [string trim $dir]
+           if [file isdirectory [file join / $dir roms]] {
+               append newrompath "$dir/roms:"
+           } else {
+               append newrompath "$dir:"
+           }
        }
        set rom_path [string trimright $newrompath :]
     }