FileDialog(Zenity)

[alexfish]

Hi All

Terminal Programs

Sometimes we need a method of finding files to load or save

Here is a Zenity example : do not mix with Hug else change the Function Name

Have Fun

+ BR

Alex



DECLARE SaveAs =0 TYPE int
DECLARE OpenAs =1 TYPE int
FUNCTION FILEDIALOG(int type ) TYPE STRING
LOCAL f_name TYPE STRING
IF NOT(type) THEN
  f_name = EXEC$("zenity --name Save-File --file-selection --save")
ELSE
  f_name = EXEC$("zenity --name Open-File --file-selection")
END IF
RETURN f_name
END FUNCTION


LOCAL filename TYPE STRING

filename = FILEDIALOG(SaveAs)

PRINT filename

REM Rest of Code Here

[ptitjoz]

Hello
it works. Thank you for your work.

However, if I want to include hug.bac upstream, there is a conflict. but it's probably normal because FILEDIALOG exists in hug.bac

Warning: variable 'type' in function header at line 6 in file '/home/joz/Programmation/Bacon/Tests/filedialog.bac' was defined previously!

Converting '/home/joz/Programmation/Bacon/Tests/filedialog.bac'... done, 2991 lines were processed in 1.111 seconds.
Compiling '/home/joz/Programmation/Bacon/Tests/filedialog.bac'... cc -c filedialog.bac.c
Compiler error:

Description:
file './../Lib/hug.bac' line 0: REM --------------------------------------------------------------------------------------------------
Cause:
conflicting types for 'FILEDIALOG'

Regards

[alexfish]

Hi ptitjoz

That is mentioned in the post :

also post suggests 'if so change the function name'

say something like

FUNCTION ZEN_FILEDIALOG()

the intended or suggested use = for Terminal programs

BR
Alex