Eskil

                $m add command -label "Copy Block to other side" \
                        -command [list copyBlock $top $n $from $to]
            }
        }
    }

    $m add command -label "Save File" -command [list saveFile $top $n]
    $m add command -label "Save File, Reload" -command [list saveFileR $top $n]

    return 0
}

proc saveFile {top side} {
    if {$side == 1} {
        if {!$::eskil($top,leftEdit)} return

                    set save 1
                }
            }
        }
    }
    close $ch
}

# Save file and reload
proc saveFileR {top side} {
    saveFile $top $side
    # Redo
    redoDiff $top
    allowEdit $top
}

#####################################
# File dialog stuff
#####################################

# Check if a filename is a directory and handle starkits
proc FileIsDirectory {file {kitcheck 0}} {