[MAXGUI] Treeview Refresh

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Scaremonger

Can anyone help me with what looks like a refreshing problem?
Take the code below: When you double-click on a node in the Left treeview, it is added to the options on the Right treeview. Unfortunately the little [+] does not appear.

If you click on it, minimise/restore the window, drag it off the window and back on again, or resize the window; the option is visible so I'm guessing that all I need to do is redraw the Treeview; but how? Can I force a GadgetPaint action?

Strict 

Local window:TGadget=CreateWindow("My Window",50,50,410,240)
Local tvLeft:TGadget=CreateTreeView(0,0,200,200,window)
Local tvRight:TGadget=CreateTreeView(210,0,200,200,window)

SetGadgetLayout tvleft,2,2,2,2
SetGadgetLayout tvright,2,2,2,2

Local rootLeft:TGadget=TreeViewRoot(tvLeft)
Local rootRight:TGadget=TreeViewRoot(tvRight)

Local help:TGadget=AddTreeViewNode("Help",rootLeft)
AddTreeViewNode "topic 1",help
AddTreeViewNode "topic 2",help
Local projects:TGadget=AddTreeViewNode("Projects",rootLeft)
AddTreeViewNode "project 1",projects
AddTreeViewNode("project 2",projects)

Local options:TGadget=AddTreeViewNode("Options",rootRight)

While WaitEvent()
	Print CurrentEvent.ToString()
	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
		Case EVENT_GADGETACTION
			If EventSource() = tvLeft Then
				Local gad:TGadget = SelectedTreeViewNode( tvLeft )
				AddTreeViewNode( gad.getText(), options )
			End If
	End Select
Wend