[Dew]

hi lisa,

i was wanting to do the same a while back but wasn't sure about it.
in AC3D\tcl the file ac3dops has i guess the info for it? lol i have never messed with .tcl stuff and not wanting to wreck myself and my AC3D i left it alone. but the section like below... i dunno can you just add more line as 4, 5, 6 ?
im prob not even at bat here but i cant see anything else

proc recent_file_menu_check { } {
global UI
global prefs_recentfiles0
global prefs_recentfiles1
global prefs_recentfiles2
global prefs_recentfiles3

    if  { ($prefs_recentfiles0 == "") && ($prefs_recentfiles1 == "") && ($prefs_recentfiles2 == "") && ($prefs_recentfiles3 == "") } {
        $UI(menu_file) entryconfigure 2 -state disabled
    } else {
        $UI(menu_file) entryconfigure 2 -state normal
    }
}


proc update_savefile_name { fname} {
global acfilename UI
global prefs_recentfiles0
global prefs_recentfiles1
global prefs_recentfiles2
global prefs_recentfiles3

#puts "update_savefile_name $fname"

    set r [file rootname $fname]
    set extU [file extension $fname]

    #force extensionto lower case
    set ext [ string tolower $extU ]

#    set acfilename "$r.ac"

#    puts "$r  $acfilename"

    if { $ext == ".ac" } {
        set acfilename $fname
    } else {
        set acfilename ""
    }

    update_savefile_menu

    set ver [ac3d get_version_string]

    # if blank filename (to save as ac3d file) - set untitled window label
    if { $ext != ".ac" } {
        wm title . "Inivis AC3D"
    } else {
        # put the file name in the titlebar
        wm title . "Inivis AC3D - $fname"
    }


    if { ($prefs_recentfiles0 != $fname ) && ($fname != "") } {
        set prefs_recentfiles3 $prefs_recentfiles2
        set prefs_recentfiles2 $prefs_recentfiles1
        set prefs_recentfiles1 $prefs_recentfiles0

        set prefs_recentfiles0 $fname

        $UI(menu_recent) entryconfigure 0 -label $prefs_recentfiles0 
        $UI(menu_recent) entryconfigure 1 -label $prefs_recentfiles1 
        $UI(menu_recent) entryconfigure 2 -label $prefs_recentfiles2 
        $UI(menu_recent) entryconfigure 3 -label $prefs_recentfiles3 
    }

    recent_file_menu_check
}


proc reset_recent_files_menu {} {
global prefs_recentfiles0
global prefs_recentfiles1
global prefs_recentfiles2
global prefs_recentfiles3
global UI

        $UI(menu_recent) entryconfigure 0 -label $prefs_recentfiles0 
        $UI(menu_recent) entryconfigure 1 -label $prefs_recentfiles1 
        $UI(menu_recent) entryconfigure 2 -label $prefs_recentfiles2 
        $UI(menu_recent) entryconfigure 3 -label $prefs_recentfiles3 

    recent_file_menu_check

}



# insert a file
proc menu_merge {} {
global acfilename
global prefs_load_file_path

set filetypes  {
{{ AC3D files} {.ac}}
{{ All files} *}
}
    set filename [get_loadfilename "Merge an AC3D file" $filetypes]
    if { $filename != "" } {
        ac3d load_file $filename
        set_unsaved_changes TRUE
    }
}