Save File Dialog Box

BlitzMax Forums/MaxGUI Module/Save File Dialog Box

Captain Wicker (crazy hillbilly)

(Posted 2012) [#1]

How can I create a file saving dialog box thing in MaxGUI? Please, Help Me!

rs22	(Posted 2012) [#2]

RequestFile

It's part of BRL.System, so that's probably why you couldn't find it.

Captain Wicker (crazy hillbilly)

(Posted 2012) [#3]

here is my code. I do not understand why the text file isn't saving and in Windows, the clipboard (copy, paste, cut) doesn't show up. Can you help me?

?Linux
Import maxgui.fltkmaxgui
?Win32
Import maxgui.win32maxguiex
Import maxgui.xpmanifest
?MacOs
Import maxgui.cocoamaxgui
?

appname$="SATE" 'Simple All-round Text Editor

AutoMidHandle True
AppTitle = appname:String


Loading:TGadget=CreateWindow(appname$,DesktopWidth()/3,DesktopHeight()/3,220,150)
Local progbar:TGadget=CreateProgBar(10,10,200,20,Loading)

CreateTimer 5

CreateLabel "1. Loading Workspace...",10,40,200,20,Loading

While WaitEvent()
	Select EventID()
		Case EVENT_TIMERTICK
			Local t=EventData()
			
			UpdateProgBar progbar,t/5.0
			
			If t=5
				DisableGadget(progbar)
				CreateLabel "2. Workspace Loaded.",10,60,200,20,Loading
				Goto mainprog
			EndIf
	EndSelect
go=1
Wend

#mainprog
'MAIN PROGRAM
win:TGadget=CreateWindow(appname$,DesktopWidth()/3,DesktopHeight()/3,300,200)

file:TGadget=CreateMenu("&File",0,WindowMenu(win),0,0)
edit:TGadget=CreateMenu("&Edit",0,WindowMenu(win),0,0)
help:TGadget=CreateMenu("&Help",0,WindowMenu(win),0,0)

edit_copy:TGadget=CreateMenu("&Copy",0,edit,0,0)
edit_cut:TGadget=CreateMenu("&Cut",0,edit,0,0)
edit_paste:TGadget=CreateMenu("&Paste",0,edit,0,0)

file_new:TGadget=CreateMenu("&New",0,file,0,0)
file_open:TGadget=CreateMenu("&Open",0,file,0,0)
file_save:TGadget=CreateMenu("&Save",0,file,0,0)


blank_1:TGadget=CreateMenu("",0,file,0,0)
file_exit:TGadget=CreateMenu("&Exit",0,file,0,0)
help_about:TGadget=CreateMenu("&About",0,help,0,0)

DisableMenu(file_save)


initial_path$=""
'DisableMenu(blank)
UpdateWindowMenu(win)

While WaitEvent() And go=1

	Select EventID()
		Case EVENT_WINDOWCLOSE
			Notify("Thank you for trying "+appname$+"!",False)
			Exit
		Case EVENT_MENUACTION
			If EventSource()=help_about
				Notify("Welcome to SATE (Simple All-Round Text Editor). SATE is created and maintained by Captain Wicker Interactive Software and it's affiliates. © 2013 Austin Wicker")
			EndIf
			If EventSource()=file_exit
				Notify("Thank you for trying"+appname$+"!",False)
				Exit
			EndIf
			If EventSource()=file_new
				go2=1
				newtext=CreateTextArea(0,0,GadgetWidth(win),GadgetHeight(win),win,TEXTAREA_WORDWRAP)
				panel=CreatePanel(0,0,ClientWidth(win),ClientHeight(win),win,PANEL_ACTIVE)
				EnableMenu(file_save)
			EndIf	
		
			If EventSource()=file_save
				filter$="Text Files:txt;All Files:*"
				filename$=RequestFile( "Save File Where?",filter$,True,initial_path$)
				'opentext=CreateTextArea(0,0,GadgetWidth(win),GadgetHeight(win),win,TEXTAREA_WORDWRAP)
				SaveText(TextAreaText(newtext),initial_path$)
			EndIf
			If EventSource()=file_open
				go3=1
				filter$="Text Files:txt;All Files:*"
				filename$=RequestFile( "Select file to open",filter$ )
				opentext=CreateTextArea(0,0,GadgetWidth(win),GadgetHeight(win),win,TEXTAREA_WORDWRAP)
				panelOp=CreatePanel(0,0,ClientWidth(win),ClientHeight(win),win,PANEL_ACTIVE)
				SetTextAreaText(opentext,LoadText(filename$),0,TEXTAREA_ALL,TEXTAREA_CHARS)
				EnableMenu(file_save)
			EndIf
			If EventSource()=edit_cut And go2=1
				GadgetCut(newtext)
			ElseIf EventSource()=edit_cut And go3=1
				GadgetCut(newtext)
			EndIf
			If EventSource()=edit_copy And go2=1
				GadgetCopy(newtext)
			ElseIf EventSource()=edit_copy And go3=1
				GadgetCopy(newtext)
			EndIf
			If EventSource()=edit_paste And go2=1
				GadgetPaste(newtext)
			ElseIf EventSource()=edit_paste And go3=1
				GadgetPaste(newtext)
			EndIf
			Case EVENT_MOUSEDOWN
				If EventData()=2 PopupWindowMenu win,edit
			
	EndSelect

	If go2=1
		SetGadgetShape(newtext,0,0,GadgetWidth(win),GadgetHeight(win))

		SetGadgetShape(panel,0,0,GadgetWidth(win),GadgetHeight(win))
	EndIf
	If go3=1
		SetGadgetShape(opentext,0,0,GadgetWidth(win),GadgetHeight(win))
		SetGadgetShape(panelOp,0,0,GadgetWidth(win),GadgetHeight(win))
	EndIf
		
Wend

:)

Last edited 2012

Brucey

(Posted 2012) [#4]

You are saving it to "initial_path", and not "filename".