[fixed] selection effect of journal menu tabpanel

locations/journal.qsrc

@@ -35,16 +35,25 @@ end
 if $ARGS[0]='journalmenu':
 	*clr & cla
 	gs 'stat'
-	if $start_type[1] ! 'nomagic':
-        $tablebody = '<tr><th><a href="exec:menutrack = 0 & gs ''journal'', ''magictab''">Magic</a></th><th><a href="exec:menutrack = 1 & gs ''Journal'', ''housingtab''">Housing</a></th><th><a href="exec:menutrack = 2 & gs ''journal_work'', ''start''">Work</a></th><th><a href="exec:menutrack = 2 & gs ''journal_quests'', ''start''">Quests</a></th><th><a href="exec:menutrack = 4 & gs ''journal'', ''relationstab''">Relations</a></th><th><a href="exec:menutrack = 5 & gs ''journal'', ''generaltab''">Game Information</a></th><th><a href="exec:menutrack = 6 & gs ''journal'', ''notestab''">Notes</a></th></tr>'
 
-    else
-        $tablebody ='<tr><th><a href="exec:menutrack = 1 & gs ''Journal'', ''housingtab''">Housing</a></th><th><a href="exec:menutrack = 2 & gs ''journal_work'', ''start''">Work</a></th><th><a href="exec:menutrack = 2 & gs ''journal_quests'', ''start''">Quests</a></th><th><a href="exec:menutrack = 4 & gs ''journal'', ''relationstab''">Relations</a></th><th><a href="exec:menutrack = 5 & gs ''journal'', ''generaltab''">Game Information</a></th><th><a href="exec:menutrack = 6 & gs ''journal'', ''notestab''">Notes</a></th></tr>'
-    ! menu
-    end
 	!display the table here.
-
-	'<center><table width="90%" align="center" width="90%" cellspacing="0" cellpadding="0" valign="top"><tr><<$tablebody>></tr></table></center>'
+	if $start_type[1] ! 'nomagic':
+		$tabsname[] = 'Magic'
+		$tabsaction[] = 'menutrack = 0 & gs ''journal'', ''magictab'''
+	end
+	$tabsname[] = 'Housing'
+	$tabsaction[] = 'menutrack = 1 & gs ''Journal'', ''housingtab'''
+	$tabsname[] = 'Work'
+	$tabsaction[] = 'menutrack = 2 & gs ''journal_work'', ''start'''
+	$tabsname[] = 'Quests'
+	$tabsaction[] = 'menutrack = 3 & gs ''journal_quests'', ''start'''
+	$tabsname[] = 'Relations'
+	$tabsaction[] = 'menutrack = 4 & gs ''journal'', ''relationstab'''
+	$tabsname[] = 'Game Information'
+	$tabsaction[] = 'menutrack = 5 & gs ''journal'', ''generaltab'''
+	$tabsname[] = 'Notes'
+	$tabsaction[] = 'menutrack = 6 & gs ''journal'', ''notestab'''
+	gs 'tabhead', iif($start_type[1] ! 'nomagic',menutrack,menutrack-1)
 
 	if $jumploc = '' or jclose = 1:
 		if $start_type[1] ! 'nomagic':