Function to Use Relative Window Sizes

// structure to store screen parameters
// values are RELATIVE SIZES
// POINTS: used for /W=() in tables and graphs
// PIXELS: used for /W=() in panels

STRUCTURE ScreenSizeParameters
	variable scrwpxl
	variable scrhpxl
	variable scrwpnt
	variable scrhpnt
ENDSTRUCTURE

// initialize the screen sizes

Static Function InitScreenParameters(ScrP)
	STRUCT ScreenSizeParameters &ScrP
	
	// get screen pixel sizes
	
	if (cmpstr(IgorInfo(2),"Macintosh")==0)
	
		// MacOS
		
		string IgorStuff=""
		variable scr0,scr1,scr2
	
		IgorStuff=IgorInfo(0)
		scr0 = strsearch(IgorStuff,"RECT",0)
		scr1 = strsearch(IgorStuff,",",scr0+9)
		scr2 = strlen(IgorStuff)-2		
		ScrP.scrwpxl = str2num(IgorStuff[scr0+9,scr1-1])/100
		ScrP.scrhpxl = str2num(IgorStuff[scr1+1,scr2])/100
	else

		// WinXX (must maximize the frame)

		MoveWindow/F 2, 2, 2, 2
		GetWindow kwFrameInner wsizeDC

		ScrP.scrwpxl = (v_right-v_left)/100
		ScrP.scrhpxl = (v_bottom-v_top)/100
	endif

	// set screen point sizes
	
	ScrP.scrwpnt = ScrP.scrwpxl*72/ScreenResolution
	ScrP.scrhpnt = ScrP.scrhpxl*72/ScreenResolution
	
	return 0
end

// EXAMPLE USEAGE
// Show Examples displays a graph and panel at 60%x40% of screen

Function ShowExamples()
	
	// define the screen parameter structure
	
	STRUCT ScreenSizeParameters ScrP
	
	// initialize it
	
	InitScreenParameters(ScrP)
	
	// show a graph window at 60% x 40% of screen
	
	display/W=(0,0,60*ScrP.scrwpnt,40*ScrP.scrhpnt) as "60 x 40 Graph"
	
        // show a table window at 60% x 40% of screen
	
	edit/W=(0,0,60*ScrP.scrwpnt,40*ScrP.scrhpnt) as "60 x 40 Table"
	
	// show a panel at 60% x 40% of screen
	
	NewPanel/W=(0,0,60*ScrP.scrwpxl,40*ScrP.scrhpxl) as "60 x 40 Panel"

	return 0
end