1 tab instead of 2?

BlitzMax Forums/BlitzMax Beginners Area/1 tab instead of 2?
Guy Fawkes
(Posted 2009) [#1]
Why am I only seeing 1 tab instead of 2 tabs?
Import BRL.Pixmap
Import BRL.Max2D
Import BRL.EndianStream
Import BRL.StandardIO

Import brl.standardio
Import brl.bank
Import brl.httpstream

Import brl.pngloader
Import brl.glmax2d

Import MaxGui.Drivers

Extern "win32"
 Function SetWindowText(hwnd, lpString:Byte Ptr) = "SetWindowTextA@8"
 Function GetActiveWindow:Byte Ptr()
End Extern

Function rfile()
filename$=RequestFile("Load...",filter$)
End Function

Function WindowCaption(title:String)
	SetWindowText(Int(GetActiveWindow()),title.ToCString())
End Function

Global x1#
Global y1#

Global filter$="Image Files:png,jpg,bmp;Text Files:txt;All Files:*"

Global filename$

Local imageloc:String = filename$
Local image:TImage, bank:TBank

WindowCaption "x scale: "+x1#+":"+"y scale: "+y1#

bank = TBank.Load(imageloc)
image = LoadImage(bank)

'SetScale 1,1

Const Views = 1'3 ' Update this if you add more searches in DefData lines below!

Global HTML:TGadget [Views]

Global HTMLTitle$ [Views]
Global HTMLURL$ [Views]

gadheight = 24

For site = 0 To Views - 1
	ReadData HTMLTitle (site)
	ReadData HTMLURL (site)
Next

' Some random examples...

DefData "Blah", "javascript:document.write('hello');"
DefData "Blah2", "a"
'DefData "Google", "http://www.google.com/search?q="
'DefData "Yahoo", "http://search.yahoo.com/search?p="
'DefData "Merriam-Webster Dictionary", "http://www.m-w.com/cgi-bin/dictionary?"

Load = ReadFile ("window.dat")
If Load
	x = Int (ReadLine (Load))
	y = Int (ReadLine (Load))
	width = Int (ReadLine (Load))
	height = Int (ReadLine (Load))
EndIf

If x < 0 Then x = 0
If x > GadgetWidth (Desktop ()) x = 0

If y < 0 Then x = 0
If y > GadgetHeight (Desktop ()) x = 0

If width <= 0 width = 640
If height <= 0 height = 480

window:TGadget = CreateWindow ("Welcome", x, y, width, height)

htmlheight = (ClientHeight (window) - gadheight) / Views

If window

	file:TGadget = CreateMenu ("&File", 0, WindowMenu (window))
	open:TGadget = CreateMenu("&Open", 1, file)
	xit:TGadget = CreateMenu ("E&xit", 2, file)

	help:TGadget = CreateMenu ("&Help", 3, WindowMenu (window))
	about:TGadget = CreateMenu ("&About...", 4, help)

	UpdateWindowMenu window
	
	search:TGadget = CreateTextField (4, 4, ClientWidth (window) - 152, gadheight, window)

	go:TGadget = CreateButton ("Search!", ClientWidth (window) - 144, 4, 140, gadheight, window, BUTTON_OK)

	SetGadgetLayout search, 1, 1, 1, 0
	SetGadgetLayout go, 0, 1, 1, 0

	tab:TGadget = CreateTabber (0, gadheight+4, ClientWidth (window), ClientHeight (window) - gadheight - 4, window)	
	tab1:TGadget = CreateTabber (0, gadwidth+4, ClientWidth (window), ClientHeight (window) - gadheight - 4, window)	
	panel:TGadget = CreatePanel (0, 0, ClientWidth (tab), ClientHeight (tab), tab)

	SetGadgetLayout tab, 1, 1, 1, 1
	SetGadgetLayout tab1, 1, 1, 1, 1
	SetGadgetLayout panel, 1, 1, 1, 1
	
	For loop = 0 To Views - 1
		HTML (loop) = CreateHTMLView (0, 0, ClientWidth (panel), ClientHeight (panel), panel)
		SetGadgetLayout HTML (loop), 1, 1, 1, 1
		HideGadget HTML (loop)
		AddGadgetItem (tab, HTMLTitle (loop))
		AddGadgetItem (tab1, HTMLTitle (loop))
	Next
	
	ShowGadget HTML (0)
	SetStatusText window, "Done"
	
	urltimer:TTimer = CreateTimer (1)
	
	ActivateGadget search
	
	Repeat
	
		Select WaitEvent ()
'		Print CurrentEvent.toString()
'		Select EventID()

			Case EVENT_GADGETACTION
			
				If (EventSource () = go)' Or ((EventSource () = search) And (EventData () = KEY_ENTER))
					For site = 0 To Views - 1
						HtmlViewGo HTML (site), HTMLURL (site) + TextFieldText (search)
					Next
				EndIf

				If EventSource () = tab
					For loop = 0 To Views - 1
						HideGadget HTML (loop)
					Next
					ShowGadget HTML (SelectedGadgetItem (tab))
					ActivateGadget HTML (SelectedGadgetItem (tab))
				EndIf
				
				If EventSource () = tab1
					For loop = 0 To Views - 1
						HideGadget HTML (loop)
					Next
					ShowGadget HTML (SelectedGadgetItem (tab1))
					ActivateGadget HTML (SelectedGadgetItem (tab1))
				EndIf
				
			Case EVENT_WINDOWCLOSE
				SaveWindow (window); End

' ****** Not working!

			Case EVENT_TIMERTICK
'			DebugLog HtmlViewStatus (HTML (SelectedGadgetItem (tab)))
					If HtmlViewStatus (HTML (SelectedGadgetItem (tab))) 
						SetStatusText window, "Loading..."
					Else
						SetStatusText window, "Done"
					EndIf
If HtmlViewStatus (HTML (SelectedGadgetItem (tab1))) 
SetStatusText window, "Loading..."
Else
SetStatusText window, "Done"
EndIf

'			Case EVENT_GADGETDONE
'			DebugLog HtmlViewStatus (HTML (SelectedGadgetItem (tab)))
						
			Case EVENT_MENUACTION
If EventData () = 1 Then rfile()
				If EventData () = 2 Then Notify "Loading" SaveWindow (window); End
				If EventData () = 4 Then Notify ("Resizer")
			
		End Select
		
	Forever
	
EndIf

Function SaveWindow (window:TGadget)
	If window
		save = WriteFile ("window.dat")
		If save
			WriteLine save, GadgetX (window)
			WriteLine save, GadgetY (window)
			WriteLine save, GadgetWidth (window)
			WriteLine save, GadgetHeight (window)
			CloseFile save
		EndIf
	EndIf
End Function
Brucey
(Posted 2009) [#2]
That's cool! I didn't realise the demo version of BlitzMax came with MaxGUI :-)
Guy Fawkes
(Posted 2009) [#3]
it does ^^
Guy Fawkes
(Posted 2009) [#4]
Can someone PLEASE make it so that tab 2 opens up a blank tab, and if ur requested file is an image, it loads that image on screen?
Guy Fawkes
(Posted 2009) [#5]
also, after u activate a gadget, the exit function seems to load slower.