MaxGUI v1.33 RC1 is here!

Import maxgui.drivers
Global window:tgadget
		window=CreateWindow("test",100,100,400,300,,WINDOW_TITLEBAR|WINDOW_CENTER)

Local txt_0:tgadget=CreateTextField(10,10,200,20,window
Local txt_1:tgadget=CreateTextField(10,40,200,20,window,TEXTFIELD_PASSWORD)
Local txt_2:tgadget=CreateLabel(" ",10,80,200,20,window,label_sunkenframe)
		
SetGadgetText txt_0,"Type here something!"
CreateLabel("This gadget has Sensitivity activacted!",220,10,200,40,window)

SetGadgetSensitivity txt_0,SENSITIZE_MOUSE
SetGadgetColor txt_1,240,20,20


While WaitEvent()
      Select EventID()
	Case event_mousedown
		If EventSource()=txt_0
			SetGadgetText txt_0,""
		End If
	End Select
Wend
End

	Function KeyFilter(obj:Int) "C" nodebug
		Local	source:TFLWidget
		Local	event:TEvent
		Local	key,mods,text$,i
		source=TFLWidget(HandleToObject(obj))
		
		If flEventKey()=FL_KEY_Control_R Return 0
		If source And (source.eventfilter<>Null) Then
			key=BlitzKeyFromFlConst(flEventKey())
			text$=fleventtext()
			mods=flstatetomodifiers(flEventState())
			If key
				event=CreateEvent(EVENT_KEYDOWN,source,key,mods)
				If Not source.eventfilter(event,source.context) Then Return 0
				'Unlike the other platforms, text isn't set by FLTK when combining tab with modifier keys
				If Not text And key = KEY_TAB Then text="~t"
			EndIf
			For i=0 Until text.length
				key=text[ i]
				event=CreateEvent(EVENT_KEYCHAR,source,key,mods)
				If Not source.eventfilter(event,source.context) Then Return 0
			Next
		EndIf
		Return 1
	End Function

Function flReset(xdisplay,callback:Int(event),filter:Int(user:Int),mousehandler:Int(flwidget,user:Int),keyhandler:Int(flwidget,user:Int))

class Fl_AInput:public Fl_Input
{
public:
	Fl_AInput(int x,int y,int w,int h,const char *title=0):Fl_Input(x,y,w,h,title)
	{}
	
	int handle(int event)
	{
		int res = 0;
		switch (event)
		{
		case FL_DRAG:
		case FL_PUSH:
		case FL_RELEASE:
			mousehandler(this, user_data());
			res = 1;
			break;
		case FL_KEYDOWN:
			if (textfilter(user_data())==0) return 1;
			do_callback();
			break;
		}
		
		return Fl_Input::handle(event)||res;
	}
};

	Function Request:TWindowsFont(font:TGuiFont)
		Local	lf:LOGFONTW
		Local	cf:CHOOSEFONT
		Local	hwnd,n,i,hfont

		lf=New LOGFONTW
		cf=New CHOOSEFONT		
		cf.lStructSize=SizeOf(cf)
		cf.hwndOwner=TWindowsGUIDriver.GetActiveHwnd()
		cf.lpLogFont=lf
		cf.Flags=CF_BOTH
		If font
			Local p:Short Ptr=Short Ptr(Varptr lf.lfFaceName00)
			n=font.name.length
			If n>31 n=0
			For i=0 Until n
				p[i]=font.name[i]
			Next
			SetLogFontProperties( lf, font.style, font.size )			
			cf.Flags:|CF_INITTOLOGFONTSTRUCT
		EndIf
		hwnd=GetFocus()
		n=ChooseFontW(cf)
		SetFocus(hwnd)
		If Not n Return
		Local style
		If cf.nFontType&BOLD_FONTTYPE style:|FONT_BOLD
		If cf.nFontType&ITALIC_FONTTYPE style:|FONT_ITALIC
		'SetLogFontProperties( lf, style, cf.iPointSize/Double(10) )
		Return New TWindowsFont.LoadFromLogFont( lf,cf.iPointSize/Double(10), style  )
	EndFunction
	

//	bi.hwndOwner=GetActiveWindow();

' requestdir.bmx

path$=RequestDir("Select a Folder","C:\") 'Should open with the root of the C drive selected.

Print "directory selected was "+path

path$=RequestDir("Select a Folder","d:\") 'Should open with the root of the D drive selected.
Print "directory selected was "+path