OpenEuphoria

File extensions

• Posted by Tony Steward <figjam at nlc.net.au> Feb 13, 2001
• 480 views

Hi all,
Ok I am writin a prog using EDB but I want to use my own extensions. The 
idea is that there is two databases the main file with extension KTM 
(KeyTrackerMain) and the second file KTH (KeyTrackerHistory).
when the user selects "Open" from the menu they will only see the KTM 
file. The procedure below does this but I can't create the second file 
with the KTH i always get filename.KTH.KTM


procedure OpenChoice_onClick ()
filenamemain = getOpenFileName( 
    MainWindow,                  -- parent window 
    "",                         -- no default name 
    { "KeyTrack File", "*.KTM"} )
    if length( filenamemain ) = 0 then 
        return 
    end if

filenamehist = filenamemain[1..length(filenamemain)-4] & ".KTH"


Come visit me at www.locksdownunder.com