Cleaned-up old hand-made dialog event handlers. Fixed the "apprase" and "apprasal" typos. Fixed to update the placeholder [Pokémon] with the currently selected Pokémon at the first appraisal.

PokemonGoIV/0Main.vb

@@ -85,13 +85,13 @@ Function fnAskParam As aFindIVParam
 	
 	DialogLibraries.loadLibrary "PokemonGoIV"
 	oDialog = CreateUnoDialog (DialogLibraries.PokemonGoIV.DlgMain)
-	oDialog.getControl ("lstApprasal1").setVisible (False)
+	oDialog.getControl ("lstAppraisal1").setVisible (False)
 	oDialog.getControl ("txtBestBefore").setVisible (False)
 	oDialog.getControl ("lstBest").setVisible (False)
 	oDialog.getControl ("txtBestAfter").setVisible (False)
 	oDialog.getControl ("cbxBest2").setVisible (False)
 	oDialog.getControl ("cbxBest3").setVisible (False)
-	oDialog.getControl ("lstApprasal2").setVisible (False)
+	oDialog.getControl ("lstAppraisal2").setVisible (False)
 	
 	oDialog.getControl ("imgPokemon").getModel.setPropertyValue ( _
 	    "ImageURL", fnGetImageUrl ("Unknown"))
@@ -110,8 +110,8 @@ Function fnAskParam As aFindIVParam
 		.nHP = oDialog.getControl ("numHP").getValue
 		.nStarDust = CInt (oDialog.getControl ("lstStarDust").getSelectedItem)
 		.nPlayerLevel = CInt (oDialog.getControl ("lstPlayerLevel").getSelectedItem)
-		.nAppraisal1 = oDialog.getControl ("lstApprasal1").getSelectedItemPos + 1
+		.nAppraisal1 = oDialog.getControl ("lstAppraisal1").getSelectedItemPos + 1
-		.nAppraisal2 = oDialog.getControl ("lstApprasal2").getSelectedItemPos + 1
+		.nAppraisal2 = oDialog.getControl ("lstAppraisal2").getSelectedItemPos + 1
 		.bIsCancelled = False
 	End With
 	If oDialog.getControl ("cbxIsNew").getState = 1 Then
@@ -165,7 +165,7 @@ Function fnAskParam As aFindIVParam
 	fnAskParam = aQuery
 End Function
 
-' subBtnOKCheck: Checks whether Pokémon, CP, HP and star dust are all filled.
+' subBtnOKCheck: Checks whether the required columns are filled.
 Sub subBtnOKCheck (oEvent As object)
 	Dim oDialog As Object
 	Dim oPokemon As Object, oCP As Object
@@ -195,6 +195,7 @@ Sub subLstPokemonSelected (oEvent As object)
 	
 	oDialog = oEvent.Source.getContext
 	
+	' Updates the Pokémon image.
 	sPokemon = oDialog.getControl ("lstPokemon").getSelectedItem
 	sImageId = ""
 	If sPokemon = "Farfetch'd" Then
@@ -212,25 +213,18 @@ Sub subLstPokemonSelected (oEvent As object)
 	If sImageId = "" Then
 		sImageId = "Pokemon" & sPokemon
 	End If
-	
 	oImageModel = oDialog.getControl ("imgPokemon").getModel
 	oImageModel.setPropertyValue ("ImageURL", _
 		fnGetImageUrl (sImageId))
 	
+	' Updates the text of the first appraisal.
+	subUpdateAppraisal1 (oEvent, True)
+	' Checks if the required columns are filled.
 	subBtnOKCheck (oEvent)
 End Sub
 
-' subBtnOKCheck_textChanged: When the CP or HP is filled
+' subRdoTeamRedItemChanged: When the red team is selected.
-Sub subBtnOKCheck_textChanged (oEvent As object)
+Sub subRdoTeamRedItemChanged (oEvent As object)
-	subBtnOKCheck_itemStateChanged (oEvent)
-End Sub
-
-' subRdoTeamRedItemChanged_disposing: Dummy for the listener.
-Sub subRdoTeamRedItemChanged_disposing (oEvent As object)
-End Sub
-
-' subRdoTeamRedItemChanged_itemStateChanged: When the team is selected.
-Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
 	Dim oDialog As Object, oList As Object, oText As Object
 	Dim oImageModel As Object
 	Dim mItems () As String
@@ -240,7 +234,6 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
 	oImageModel = oDialog.getControl ("imgTeamLogo").getModel
 	oImageModel.setPropertyValue ("ImageURL", _
 		fnGetImageUrl ("TeamLogoValor"))
-	oDialog.getControl ("imgTeamLeader").setVisible (True)
 	oImageModel = oDialog.getControl ("imgTeamLeader").getModel
 	oImageModel.setPropertyValue ("ImageURL", _
 		fnGetImageUrl ("TeamLeaderCandela"))
@@ -249,15 +242,8 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
 	oText.setVisible (True)
 	oText.setText (fnGetResString ("AppraiseFromCandela"))
 	
-	mItems = Array ( _
+	' Updates the text of the first appraisal.
-		"Overall, your [Pokémon] simply amazes me. It can accomplish anything!", _
+	subUpdateAppraisal1 (oEvent, False)
-		"Overall, your [Pokémon] is a strong Pokémon. You should be proud!", _
-		"Overall, your [Pokémon] is a decent Pokémon.", _
-		"Overall, your [Pokémon] may not be great in battle, but I still like it!")
-	oList = oDialog.getControl ("lstApprasal1")
-	oList.removeItems (0, oList.getItemCount())
-	oList.addItems (mItems, 0)
-	oList.setVisible (True)
 	
 	oText = oDialog.getControl ("txtBestBefore")
 	oText.setPosSize (-1, -1, 20, -1, _
@@ -290,18 +276,14 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
 		"It's got excellent stats! How exciting!", _
 		"Its stats indicate that in battle, it'll get the job done.", _
 		"Its stats don't point to greatness in battle.")
-	oList = oDialog.getControl ("lstApprasal2")
+	oList = oDialog.getControl ("lstAppraisal2")
 	oList.removeItems (0, oList.getItemCount())
 	oList.addItems (mItems, 0)
 	oList.setVisible (True)
 End Sub
 
-' subRdoTeamBlueItemChanged_disposing: Dummy for the listener.
+' subRdoTeamBlueItemChanged: When the blue team is selected.
-Sub subRdoTeamBlueItemChanged_disposing (oEvent As object)
+Sub subRdoTeamBlueItemChanged (oEvent As object)
-End Sub
-
-' subRdoTeamBlueItemChanged_itemStateChanged: When the blue team is selected.
-Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
 	Dim oDialog As Object, oList As Object, oText As Object
 	Dim oImageModel As Object
 	Dim mItems () As String
@@ -311,7 +293,6 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
 	oImageModel = oDialog.getControl ("imgTeamLogo").getModel
 	oImageModel.setPropertyValue ("ImageURL", _
 		fnGetImageUrl ("TeamLogoMystic"))
-	oDialog.getControl ("imgTeamLeader").setVisible (True)
 	oImageModel = oDialog.getControl ("imgTeamLeader").getModel
 	oImageModel.setPropertyValue ("ImageURL", _
 		fnGetImageUrl ("TeamLeaderBlanche"))
@@ -320,15 +301,8 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
 	oText.setVisible (True)
 	oText.setText (fnGetResString ("AppraiseFromBlanche"))
 	
-	mItems = Array ( _
+	' Updates the text of the first appraisal.
-		"Overall, your [Pokémon] is a wonder! What a breathtaking Pokémon!", _
+	subUpdateAppraisal1 (oEvent, False)
-		"Overall, your [Pokémon] has certainly caught my attention.", _
-		"Overall, your [Pokémon] is above average.", _
-		"Overall, your [Pokémon] is not likely to make much headway in battle.")
-	oList = oDialog.getControl ("lstApprasal1")
-	oList.removeItems (0, oList.getItemCount())
-	oList.addItems (mItems, 0)
-	oList.setVisible (True)
 	
 	oText = oDialog.getControl ("txtBestBefore")
 	oText.setPosSize (-1, -1, 200, -1, _
@@ -361,18 +335,14 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
 		"I am certainly impressed by its stats, I must say.", _
 		"Its stats are noticeably trending to the positive.", _
 		"Its stats are not out of the norm, in my opinion.")
-	oList = oDialog.getControl ("lstApprasal2")
+	oList = oDialog.getControl ("lstAppraisal2")
 	oList.removeItems (0, oList.getItemCount())
 	oList.addItems (mItems, 0)
 	oList.setVisible (True)
 End Sub
 
-' subRdoTeamYellowItemChanged_disposing: Dummy for the listener.
+' subRdoTeamYellowItemChanged: When the yellow team is selected.
-Sub subRdoTeamYellowItemChanged_disposing (oEvent As object)
+Sub subRdoTeamYellowItemChanged (oEvent As object)
-End Sub
-
-' subRdoTeamYellowItemChanged_itemStateChanged: When the yellow team is selected.
-Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
 	Dim oDialog As Object, oList As Object, oText As Object
 	Dim oImageModel As Object
 	Dim mItems () As String
@@ -382,7 +352,6 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
 	oImageModel = oDialog.getControl ("imgTeamLogo").getModel
 	oImageModel.setPropertyValue ("ImageURL", _
 		fnGetImageUrl ("TeamLogoInstinct"))
-	oDialog.getControl ("imgTeamLeader").setVisible (True)
 	oImageModel = oDialog.getControl ("imgTeamLeader").getModel
 	oImageModel.setPropertyValue ("ImageURL", _
 		fnGetImageUrl ("TeamLeaderSpark"))
@@ -391,15 +360,8 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
 	oText.setVisible (True)
 	oText.setText (fnGetResString ("AppraiseFromSpark"))
 	
-	mItems = Array ( _
+	' Updates the text of the first appraisal.
-		"Overall, your [Pokémon] looks like it can really battle with the best of them!", _
+	subUpdateAppraisal1 (oEvent, False)
-		"Overall, your [Pokémon] is really strong!", _
-		"Overall, your [Pokémon] is pretty decent!", _
-		"Overall, your [Pokémon] has room for improvement as far as battling goes.")
-	oList = oDialog.getControl ("lstApprasal1")
-	oList.removeItems (0, oList.getItemCount())
-	oList.addItems (mItems, 0)
-	oList.setVisible (True)
 	
 	oText = oDialog.getControl ("txtBestBefore")
 	oText.setPosSize (-1, -1, 115, -1, _
@@ -432,18 +394,14 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
 		"Its stats are really strong! Impressive.", _
 		"It's definitely got some good stats. Definitely!", _
 		"Its stats are all right, but kinda basic, as far as I can see.")
-	oList = oDialog.getControl ("lstApprasal2")
+	oList = oDialog.getControl ("lstAppraisal2")
 	oList.removeItems (0, oList.getItemCount())
 	oList.addItems (mItems, 0)
 	oList.setVisible (True)
 End Sub
 
-' subLstBestItemChanged_disposing: Dummy for the listener.
+' subLstBestItemChanged: When the best stat is selected.
-Sub subLstBestItemChanged_disposing (oEvent As object)
+Sub subLstBestItemChanged (oEvent As object)
-End Sub
-
-' subLstBestItemChanged_itemStateChanged: When the best stat is selected.
-Sub subLstBestItemChanged_itemStateChanged (oEvent As object)
 	Dim oDialog As Object, oCheckBox As Object
 	
 	oDialog = oEvent.Source.getContext
@@ -543,6 +501,60 @@ Sub subLstBestItemChanged_itemStateChanged (oEvent As object)
 	End If
 End Sub
 
+' subUpdateAppraisal1: Updates the text of the first appraisal.
+Sub subUpdateAppraisal1 (oEvent As Object, bIsKeepSelected As Boolean)
+	Dim oDialog As Object, sPokemon As String
+	Dim oList As Object, nSelected As Integer
+	Dim mItems () As String, nI As Integer
+	
+	oDialog = oEvent.Source.getContext
+	
+	If oDialog.getControl ("rdoTeamRed").getState Then
+	    mItems = Array ( _
+		    "Overall, your [Pokémon] simply amazes me. It can accomplish anything!", _
+		    "Overall, your [Pokémon] is a strong Pokémon. You should be proud!", _
+		    "Overall, your [Pokémon] is a decent Pokémon.", _
+		    "Overall, your [Pokémon] may not be great in battle, but I still like it!")
+	End If
+	If oDialog.getControl ("rdoTeamBlue").getState Then
+	    mItems = Array ( _
+		    "Overall, your [Pokémon] is a wonder! What a breathtaking Pokémon!", _
+		    "Overall, your [Pokémon] has certainly caught my attention.", _
+		    "Overall, your [Pokémon] is above average.", _
+		    "Overall, your [Pokémon] is not likely to make much headway in battle.")
+	End If
+	If oDialog.getControl ("rdoTeamYellow").getState Then
+	    mItems = Array ( _
+		    "Overall, your [Pokémon] looks like it can really battle with the best of them!", _
+		    "Overall, your [Pokémon] is really strong!", _
+		    "Overall, your [Pokémon] is pretty decent!", _
+		    "Overall, your [Pokémon] has room for improvement as far as battling goes.")
+	End If
+	' The team was not selected yet.
+	If UBound (mItems) = -1 Then
+	    Exit sub
+	End If
+	
+	sPokemon = oDialog.getControl ("lstPokemon").getSelectedItem
+	If sPokemon <> "" Then
+	    For nI = 0 To UBound (mItems)
+	        mItems (nI) = fnReplace (mItems (nI), _
+	            "[Pokémon]", sPokemon)
+	    Next nI
+	End If
+	
+	oList = oDialog.getControl ("lstAppraisal1")
+	If bIsKeepSelected Then
+	    nSelected = oList.getSelectedItemPos
+	End If
+	oList.removeItems (0, oList.getItemCount())
+	oList.addItems (mItems, 0)
+	If bIsKeepSelected Then
+	    oList.selectItemPos (nSelected, True)
+	End If
+	oList.setVisible (True)
+End Sub
+
 ' fnFindIV: Finds the possible individual values of the Pokémon
 Function fnFindIV (aQuery As aFindIVParam) As Variant
 	Dim aBaseStats As New aStats, maIV () As New aStats
@@ -1049,6 +1061,19 @@ Function fnGetEmptyEvolvedFormArray () As Variant
 	fnGetEmptyEvolvedFormArray = mData
 End Function
 
+' fnReplace: Replaces all occurrances of a term to another.
+Function fnReplace (sText As String, sFrom As String, sTo As String) As String
+    Dim nPos As Integer
+    
+    nPos = InStr (sText, sFrom)
+    Do While nPos <> 0
+        sText = Left (sText, nPos - 1) & sTo _
+            & Right (sText, Len (sText) - nPos - Len (sFrom) + 1)
+        nPos = InStr (nPos + Len (sTo), sText, sFrom)
+    Loop
+    fnReplace = sText
+End Function
+
 ' subReadCPM: Reads the CPM table.
 Sub subReadCPM
 	If UBound (mCPM) = -1 Then

TODO

@@ -1,5 +1,4 @@
 PokemonGoIV TODO
 
-* Clean-up event handlers.
 * LibreOffice compability.
 * Center the dialog.

oxt/PokemonGoIV/0Main.xba

@@ -87,13 +87,13 @@ Function fnAskParam As aFindIVParam
 	
 	DialogLibraries.loadLibrary "PokemonGoIV"
 	oDialog = CreateUnoDialog (DialogLibraries.PokemonGoIV.DlgMain)
-	oDialog.getControl ("lstApprasal1").setVisible (False)
+	oDialog.getControl ("lstAppraisal1").setVisible (False)
 	oDialog.getControl ("txtBestBefore").setVisible (False)
 	oDialog.getControl ("lstBest").setVisible (False)
 	oDialog.getControl ("txtBestAfter").setVisible (False)
 	oDialog.getControl ("cbxBest2").setVisible (False)
 	oDialog.getControl ("cbxBest3").setVisible (False)
-	oDialog.getControl ("lstApprasal2").setVisible (False)
+	oDialog.getControl ("lstAppraisal2").setVisible (False)
 	
 	oDialog.getControl ("imgPokemon").getModel.setPropertyValue ( _
 	    "ImageURL", fnGetImageUrl ("Unknown"))
@@ -112,8 +112,8 @@ Function fnAskParam As aFindIVParam
 		.nHP = oDialog.getControl ("numHP").getValue
 		.nStarDust = CInt (oDialog.getControl ("lstStarDust").getSelectedItem)
 		.nPlayerLevel = CInt (oDialog.getControl ("lstPlayerLevel").getSelectedItem)
-		.nAppraisal1 = oDialog.getControl ("lstApprasal1").getSelectedItemPos + 1
+		.nAppraisal1 = oDialog.getControl ("lstAppraisal1").getSelectedItemPos + 1
-		.nAppraisal2 = oDialog.getControl ("lstApprasal2").getSelectedItemPos + 1
+		.nAppraisal2 = oDialog.getControl ("lstAppraisal2").getSelectedItemPos + 1
 		.bIsCancelled = False
 	End With
 	If oDialog.getControl ("cbxIsNew").getState = 1 Then
@@ -167,7 +167,7 @@ Function fnAskParam As aFindIVParam
 	fnAskParam = aQuery
 End Function
 
-' subBtnOKCheck: Checks whether Pokémon, CP, HP and star dust are all filled.
+' subBtnOKCheck: Checks whether the required columns are filled.
 Sub subBtnOKCheck (oEvent As object)
 	Dim oDialog As Object
 	Dim oPokemon As Object, oCP As Object
@@ -197,6 +197,7 @@ Sub subLstPokemonSelected (oEvent As object)
 	
 	oDialog = oEvent.Source.getContext
 	
+	' Updates the Pokémon image.
 	sPokemon = oDialog.getControl ("lstPokemon").getSelectedItem
 	sImageId = ""
 	If sPokemon = "Farfetch'd" Then
@@ -214,25 +215,18 @@ Sub subLstPokemonSelected (oEvent As object)
 	If sImageId = "" Then
 		sImageId = "Pokemon" & sPokemon
 	End If
-	
 	oImageModel = oDialog.getControl ("imgPokemon").getModel
 	oImageModel.setPropertyValue ("ImageURL", _
 		fnGetImageUrl (sImageId))
 	
+	' Updates the text of the first appraisal.
+	subUpdateAppraisal1 (oEvent, True)
+	' Checks if the required columns are filled.
 	subBtnOKCheck (oEvent)
 End Sub
 
-' subBtnOKCheck_textChanged: When the CP or HP is filled
+' subRdoTeamRedItemChanged: When the red team is selected.
-Sub subBtnOKCheck_textChanged (oEvent As object)
+Sub subRdoTeamRedItemChanged (oEvent As object)
-	subBtnOKCheck_itemStateChanged (oEvent)
-End Sub
-
-' subRdoTeamRedItemChanged_disposing: Dummy for the listener.
-Sub subRdoTeamRedItemChanged_disposing (oEvent As object)
-End Sub
-
-' subRdoTeamRedItemChanged_itemStateChanged: When the team is selected.
-Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
 	Dim oDialog As Object, oList As Object, oText As Object
 	Dim oImageModel As Object
 	Dim mItems () As String
@@ -242,7 +236,6 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
 	oImageModel = oDialog.getControl ("imgTeamLogo").getModel
 	oImageModel.setPropertyValue ("ImageURL", _
 		fnGetImageUrl ("TeamLogoValor"))
-	oDialog.getControl ("imgTeamLeader").setVisible (True)
 	oImageModel = oDialog.getControl ("imgTeamLeader").getModel
 	oImageModel.setPropertyValue ("ImageURL", _
 		fnGetImageUrl ("TeamLeaderCandela"))
@@ -251,15 +244,8 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
 	oText.setVisible (True)
 	oText.setText (fnGetResString ("AppraiseFromCandela"))
 	
-	mItems = Array ( _
+	' Updates the text of the first appraisal.
-		"Overall, your [Pokémon] simply amazes me. It can accomplish anything!", _
+	subUpdateAppraisal1 (oEvent, False)
-		"Overall, your [Pokémon] is a strong Pokémon. You should be proud!", _
-		"Overall, your [Pokémon] is a decent Pokémon.", _
-		"Overall, your [Pokémon] may not be great in battle, but I still like it!")
-	oList = oDialog.getControl ("lstApprasal1")
-	oList.removeItems (0, oList.getItemCount())
-	oList.addItems (mItems, 0)
-	oList.setVisible (True)
 	
 	oText = oDialog.getControl ("txtBestBefore")
 	oText.setPosSize (-1, -1, 20, -1, _
@@ -292,18 +278,14 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
 		"It's got excellent stats! How exciting!", _
 		"Its stats indicate that in battle, it'll get the job done.", _
 		"Its stats don't point to greatness in battle.")
-	oList = oDialog.getControl ("lstApprasal2")
+	oList = oDialog.getControl ("lstAppraisal2")
 	oList.removeItems (0, oList.getItemCount())
 	oList.addItems (mItems, 0)
 	oList.setVisible (True)
 End Sub
 
-' subRdoTeamBlueItemChanged_disposing: Dummy for the listener.
+' subRdoTeamBlueItemChanged: When the blue team is selected.
-Sub subRdoTeamBlueItemChanged_disposing (oEvent As object)
+Sub subRdoTeamBlueItemChanged (oEvent As object)
-End Sub
-
-' subRdoTeamBlueItemChanged_itemStateChanged: When the blue team is selected.
-Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
 	Dim oDialog As Object, oList As Object, oText As Object
 	Dim oImageModel As Object
 	Dim mItems () As String
@@ -313,7 +295,6 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
 	oImageModel = oDialog.getControl ("imgTeamLogo").getModel
 	oImageModel.setPropertyValue ("ImageURL", _
 		fnGetImageUrl ("TeamLogoMystic"))
-	oDialog.getControl ("imgTeamLeader").setVisible (True)
 	oImageModel = oDialog.getControl ("imgTeamLeader").getModel
 	oImageModel.setPropertyValue ("ImageURL", _
 		fnGetImageUrl ("TeamLeaderBlanche"))
@@ -322,15 +303,8 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
 	oText.setVisible (True)
 	oText.setText (fnGetResString ("AppraiseFromBlanche"))
 	
-	mItems = Array ( _
+	' Updates the text of the first appraisal.
-		"Overall, your [Pokémon] is a wonder! What a breathtaking Pokémon!", _
+	subUpdateAppraisal1 (oEvent, False)
-		"Overall, your [Pokémon] has certainly caught my attention.", _
-		"Overall, your [Pokémon] is above average.", _
-		"Overall, your [Pokémon] is not likely to make much headway in battle.")
-	oList = oDialog.getControl ("lstApprasal1")
-	oList.removeItems (0, oList.getItemCount())
-	oList.addItems (mItems, 0)
-	oList.setVisible (True)
 	
 	oText = oDialog.getControl ("txtBestBefore")
 	oText.setPosSize (-1, -1, 200, -1, _
@@ -363,18 +337,14 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
 		"I am certainly impressed by its stats, I must say.", _
 		"Its stats are noticeably trending to the positive.", _
 		"Its stats are not out of the norm, in my opinion.")
-	oList = oDialog.getControl ("lstApprasal2")
+	oList = oDialog.getControl ("lstAppraisal2")
 	oList.removeItems (0, oList.getItemCount())
 	oList.addItems (mItems, 0)
 	oList.setVisible (True)
 End Sub
 
-' subRdoTeamYellowItemChanged_disposing: Dummy for the listener.
+' subRdoTeamYellowItemChanged: When the yellow team is selected.
-Sub subRdoTeamYellowItemChanged_disposing (oEvent As object)
+Sub subRdoTeamYellowItemChanged (oEvent As object)
-End Sub
-
-' subRdoTeamYellowItemChanged_itemStateChanged: When the yellow team is selected.
-Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
 	Dim oDialog As Object, oList As Object, oText As Object
 	Dim oImageModel As Object
 	Dim mItems () As String
@@ -384,7 +354,6 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
 	oImageModel = oDialog.getControl ("imgTeamLogo").getModel
 	oImageModel.setPropertyValue ("ImageURL", _
 		fnGetImageUrl ("TeamLogoInstinct"))
-	oDialog.getControl ("imgTeamLeader").setVisible (True)
 	oImageModel = oDialog.getControl ("imgTeamLeader").getModel
 	oImageModel.setPropertyValue ("ImageURL", _
 		fnGetImageUrl ("TeamLeaderSpark"))
@@ -393,15 +362,8 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
 	oText.setVisible (True)
 	oText.setText (fnGetResString ("AppraiseFromSpark"))
 	
-	mItems = Array ( _
+	' Updates the text of the first appraisal.
-		"Overall, your [Pokémon] looks like it can really battle with the best of them!", _
+	subUpdateAppraisal1 (oEvent, False)
-		"Overall, your [Pokémon] is really strong!", _
-		"Overall, your [Pokémon] is pretty decent!", _
-		"Overall, your [Pokémon] has room for improvement as far as battling goes.")
-	oList = oDialog.getControl ("lstApprasal1")
-	oList.removeItems (0, oList.getItemCount())
-	oList.addItems (mItems, 0)
-	oList.setVisible (True)
 	
 	oText = oDialog.getControl ("txtBestBefore")
 	oText.setPosSize (-1, -1, 115, -1, _
@@ -434,18 +396,14 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
 		"Its stats are really strong! Impressive.", _
 		"It's definitely got some good stats. Definitely!", _
 		"Its stats are all right, but kinda basic, as far as I can see.")
-	oList = oDialog.getControl ("lstApprasal2")
+	oList = oDialog.getControl ("lstAppraisal2")
 	oList.removeItems (0, oList.getItemCount())
 	oList.addItems (mItems, 0)
 	oList.setVisible (True)
 End Sub
 
-' subLstBestItemChanged_disposing: Dummy for the listener.
+' subLstBestItemChanged: When the best stat is selected.
-Sub subLstBestItemChanged_disposing (oEvent As object)
+Sub subLstBestItemChanged (oEvent As object)
-End Sub
-
-' subLstBestItemChanged_itemStateChanged: When the best stat is selected.
-Sub subLstBestItemChanged_itemStateChanged (oEvent As object)
 	Dim oDialog As Object, oCheckBox As Object
 	
 	oDialog = oEvent.Source.getContext
@@ -545,6 +503,60 @@ Sub subLstBestItemChanged_itemStateChanged (oEvent As object)
 	End If
 End Sub
 
+' subUpdateAppraisal1: Updates the text of the first appraisal.
+Sub subUpdateAppraisal1 (oEvent As Object, bIsKeepSelected As Boolean)
+	Dim oDialog As Object, sPokemon As String
+	Dim oList As Object, nSelected As Integer
+	Dim mItems () As String, nI As Integer
+	
+	oDialog = oEvent.Source.getContext
+	
+	If oDialog.getControl ("rdoTeamRed").getState Then
+	    mItems = Array ( _
+		    "Overall, your [Pokémon] simply amazes me. It can accomplish anything!", _
+		    "Overall, your [Pokémon] is a strong Pokémon. You should be proud!", _
+		    "Overall, your [Pokémon] is a decent Pokémon.", _
+		    "Overall, your [Pokémon] may not be great in battle, but I still like it!")
+	End If
+	If oDialog.getControl ("rdoTeamBlue").getState Then
+	    mItems = Array ( _
+		    "Overall, your [Pokémon] is a wonder! What a breathtaking Pokémon!", _
+		    "Overall, your [Pokémon] has certainly caught my attention.", _
+		    "Overall, your [Pokémon] is above average.", _
+		    "Overall, your [Pokémon] is not likely to make much headway in battle.")
+	End If
+	If oDialog.getControl ("rdoTeamYellow").getState Then
+	    mItems = Array ( _
+		    "Overall, your [Pokémon] looks like it can really battle with the best of them!", _
+		    "Overall, your [Pokémon] is really strong!", _
+		    "Overall, your [Pokémon] is pretty decent!", _
+		    "Overall, your [Pokémon] has room for improvement as far as battling goes.")
+	End If
+	' The team was not selected yet.
+	If UBound (mItems) = -1 Then
+	    Exit sub
+	End If
+	
+	sPokemon = oDialog.getControl ("lstPokemon").getSelectedItem
+	If sPokemon <> "" Then
+	    For nI = 0 To UBound (mItems)
+	        mItems (nI) = fnReplace (mItems (nI), _
+	            "[Pokémon]", sPokemon)
+	    Next nI
+	End If
+	
+	oList = oDialog.getControl ("lstAppraisal1")
+	If bIsKeepSelected Then
+	    nSelected = oList.getSelectedItemPos
+	End If
+	oList.removeItems (0, oList.getItemCount())
+	oList.addItems (mItems, 0)
+	If bIsKeepSelected Then
+	    oList.selectItemPos (nSelected, True)
+	End If
+	oList.setVisible (True)
+End Sub
+
 ' fnFindIV: Finds the possible individual values of the Pokémon
 Function fnFindIV (aQuery As aFindIVParam) As Variant
 	Dim aBaseStats As New aStats, maIV () As New aStats
@@ -1051,6 +1063,19 @@ Function fnGetEmptyEvolvedFormArray () As Variant
 	fnGetEmptyEvolvedFormArray = mData
 End Function
 
+' fnReplace: Replaces all occurrances of a term to another.
+Function fnReplace (sText As String, sFrom As String, sTo As String) As String
+    Dim nPos As Integer
+    
+    nPos = InStr (sText, sFrom)
+    Do While nPos <> 0
+        sText = Left (sText, nPos - 1) & sTo _
+            & Right (sText, Len (sText) - nPos - Len (sFrom) + 1)
+        nPos = InStr (nPos + Len (sTo), sText, sFrom)
+    Loop
+    fnReplace = sText
+End Function
+
 ' subReadCPM: Reads the CPM table.
 Sub subReadCPM
 	If UBound (mCPM) = -1 Then

oxt/PokemonGoIV/DialogStrings_en_US.properties

@@ -1,43 +1,15 @@
 # Strings for Dialog Library PokemonGoIV
-2.DlgMain.HelpText=
+3.DlgMain.Title=Pok\u00e9mon GO IV Calculator
-3.DlgMain.Title=Pok\u00c3\u00a9mon GO IV Calculator
+23.DlgMain.txtPokemon.Label=~Pok\u00e9mon:
-22.DlgMain.txtPokemon.HelpText=
-23.DlgMain.txtPokemon.Label=~Pok\u00c3\u00a9mon:
-26.DlgMain.txtCP.HelpText=
 27.DlgMain.txtCP.Label=~CP:
-28.DlgMain.numCP.HelpText=
-29.DlgMain.txtHP.HelpText=
 30.DlgMain.txtHP.Label=~HP:
-31.DlgMain.numHP.HelpText=
-32.DlgMain.txtStarDust.HelpText=
 33.DlgMain.txtStarDust.Label=S~tar dust:
-40.DlgMain.txtPlayerLevel.HelpText=
 41.DlgMain.txtPlayerLevel.Label=Player ~level:
-46.DlgMain.cbxIsNew.HelpText=
+47.DlgMain.cbxIsNew.Label=This Pok\u00e9mon is ~newly-caught and was not powered-up yet.
-47.DlgMain.cbxIsNew.Label=This Pok\u00c3\u00a9mon is ~newly-caught and was not powered-up yet.
+51.DlgMain.grpAppraisals.Label=Team Leader Appraisal
-50.DlgMain.grpApprasals.HelpText=
-51.DlgMain.grpApprasals.Label=Team Leader Apprasal
-85.DlgMain.btnOK.HelpText=
 86.DlgMain.btnOK.Label=OK
-87.DlgMain.btnCancel.HelpText=
 88.DlgMain.btnCancel.Label=Cancel
-162.DlgMain.lstStarDust.HelpText=
-163.DlgMain.lstPlayerLevel.HelpText=
-164.DlgMain.lstApprasal1.HelpText=
-165.DlgMain.lstApprasal2.HelpText=
-171.DlgMain.lstPokemon.HelpText=
-180.DlgMain.txtTeam.HelpText=
 181.DlgMain.txtTeam.Label=Team:
-182.DlgMain.rdoTeamRed.HelpText=
 183.DlgMain.rdoTeamRed.Label=~Valor
-184.DlgMain.rdoTeamBlue.HelpText=
 185.DlgMain.rdoTeamBlue.Label=~Mystic
-186.DlgMain.rdoTeamYellow.HelpText=
 187.DlgMain.rdoTeamYellow.Label=~Instinct
-193.DlgMain.lstBest.HelpText=
-194.DlgMain.txtBestBefore.HelpText=
-195.DlgMain.txtBestAfter.HelpText=
-201.DlgMain.cbxBest2.HelpText=
-203.DlgMain.cbxBest3.HelpText=
-208.DlgMain.txtLeaderAppraise.HelpText=
-210.DlgMain.imgTeamLeader.HelpText=

oxt/PokemonGoIV/DialogStrings_zh_TW.properties

@@ -1,43 +1,15 @@
 # Strings for Dialog Library PokemonGoIV
-2.DlgMain.HelpText=
 3.DlgMain.Title=\u5bf6\u53ef\u5922 GO IV \u8a08\u7b97\u6a5f
-22.DlgMain.txtPokemon.HelpText=
 23.DlgMain.txtPokemon.Label=\u5bf6\u53ef\u5922(~P)\uff1a
-26.DlgMain.txtCP.HelpText=
 27.DlgMain.txtCP.Label=~CP:
-28.DlgMain.numCP.HelpText=
-29.DlgMain.txtHP.HelpText=
 30.DlgMain.txtHP.Label=~HP:
-31.DlgMain.numHP.HelpText=
-32.DlgMain.txtStarDust.HelpText=
 33.DlgMain.txtStarDust.Label=S~tar dust:
-40.DlgMain.txtPlayerLevel.HelpText=
 41.DlgMain.txtPlayerLevel.Label=\u73a9\u5bb6\u7b49\u7d1a(~L)\uff1a
-46.DlgMain.cbxIsNew.HelpText=
 47.DlgMain.cbxIsNew.Label=\u6211\u525b\u6293\u5230\u9019\u96bb\u5bf6\u53ef\u5922\uff0c\u9084\u6c92\u5f37\u5316\u904e(~N)\u3002
-50.DlgMain.grpApprasals.HelpText=
+51.DlgMain.grpAppraisals.Label=\u968a\u9577\u8a55\u50f9
-51.DlgMain.grpApprasals.Label=\u968a\u9577\u8a55\u50f9
-85.DlgMain.btnOK.HelpText=
 86.DlgMain.btnOK.Label=\u78ba\u5b9a
-87.DlgMain.btnCancel.HelpText=
 88.DlgMain.btnCancel.Label=\u53d6\u6d88
-162.DlgMain.lstStarDust.HelpText=
-163.DlgMain.lstPlayerLevel.HelpText=
-164.DlgMain.lstApprasal1.HelpText=
-165.DlgMain.lstApprasal2.HelpText=
-171.DlgMain.lstPokemon.HelpText=
-180.DlgMain.txtTeam.HelpText=
 181.DlgMain.txtTeam.Label=\u968a\u4f0d\uff1a
-182.DlgMain.rdoTeamRed.HelpText=
 183.DlgMain.rdoTeamRed.Label=~Valor
-184.DlgMain.rdoTeamBlue.HelpText=
 185.DlgMain.rdoTeamBlue.Label=~Mystic
-186.DlgMain.rdoTeamYellow.HelpText=
 187.DlgMain.rdoTeamYellow.Label=~Instinct
-193.DlgMain.lstBest.HelpText=
-194.DlgMain.txtBestBefore.HelpText=
-195.DlgMain.txtBestAfter.HelpText=
-201.DlgMain.cbxBest2.HelpText=
-203.DlgMain.cbxBest3.HelpText=
-208.DlgMain.txtLeaderAppraise.HelpText=
-210.DlgMain.imgTeamLeader.HelpText=

oxt/PokemonGoIV/DlgMain.xdl

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
-<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="DlgMain" dlg:left="100" dlg:top="100" dlg:width="220" dlg:height="230" dlg:help-text="&amp;2.DlgMain.HelpText" dlg:closeable="true" dlg:moveable="true" dlg:title="&amp;3.DlgMain.Title">
+<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="DlgMain" dlg:left="100" dlg:top="100" dlg:width="220" dlg:height="230" dlg:closeable="true" dlg:moveable="true" dlg:title="&amp;3.DlgMain.Title">
  <dlg:styles>
   <dlg:style dlg:style-id="0" dlg:border="none"/>
   <dlg:style dlg:style-id="1" dlg:background-color="0xff0000" dlg:text-color="0xffffff" dlg:font-weight="100"/>
@@ -8,8 +8,8 @@
   <dlg:style dlg:style-id="3" dlg:background-color="0xffff00"/>
  </dlg:styles>
  <dlg:bulletinboard>
-  <dlg:text dlg:id="txtPokemon" dlg:tab-index="16" dlg:left="5" dlg:top="21" dlg:width="30" dlg:height="8" dlg:help-text="&amp;22.DlgMain.txtPokemon.HelpText" dlg:value="&amp;23.DlgMain.txtPokemon.Label"/>
+  <dlg:text dlg:id="txtPokemon" dlg:tab-index="16" dlg:left="5" dlg:top="21" dlg:width="30" dlg:height="8" dlg:value="&amp;23.DlgMain.txtPokemon.Label"/>
-  <dlg:menulist dlg:id="lstPokemon" dlg:tab-index="0" dlg:left="35" dlg:top="19" dlg:width="50" dlg:height="12" dlg:help-text="&amp;171.DlgMain.lstPokemon.HelpText" dlg:spin="true">
+  <dlg:menulist dlg:id="lstPokemon" dlg:tab-index="0" dlg:left="35" dlg:top="19" dlg:width="50" dlg:height="12" dlg:spin="true">
    <dlg:menupopup>
     <dlg:menuitem dlg:value="Bulbasaur"/>
     <dlg:menuitem dlg:value="Ivysaur"/>
@@ -165,17 +165,17 @@
    </dlg:menupopup>
    <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subLstPokemonSelected?language=Basic&amp;location=application" script:language="Script"/>
   </dlg:menulist>
-  <dlg:img dlg:style-id="0" dlg:id="imgPokemon" dlg:tab-index="26" dlg:left="90" dlg:top="0" dlg:width="30" dlg:height="30" dlg:help-text="&amp;209.DlgMain.imgPokemon.HelpText"/>
+  <dlg:img dlg:style-id="0" dlg:id="imgPokemon" dlg:tab-index="26" dlg:left="90" dlg:top="0" dlg:width="30" dlg:height="30"/>
-  <dlg:text dlg:id="txtCP" dlg:tab-index="17" dlg:left="5" dlg:top="36" dlg:width="15" dlg:height="8" dlg:help-text="&amp;26.DlgMain.txtCP.HelpText" dlg:value="&amp;27.DlgMain.txtCP.Label"/>
+  <dlg:text dlg:id="txtCP" dlg:tab-index="17" dlg:left="5" dlg:top="36" dlg:width="15" dlg:height="8" dlg:value="&amp;27.DlgMain.txtCP.Label"/>
-  <dlg:numericfield dlg:id="numCP" dlg:tab-index="1" dlg:left="20" dlg:top="34" dlg:width="20" dlg:height="12" dlg:help-text="&amp;28.DlgMain.numCP.HelpText" dlg:decimal-accuracy="0" dlg:value-min="10" dlg:value-max="5000">
+  <dlg:numericfield dlg:id="numCP" dlg:tab-index="1" dlg:left="20" dlg:top="34" dlg:width="20" dlg:height="12" dlg:decimal-accuracy="0" dlg:value-min="10" dlg:value-max="5000">
    <script:event script:event-name="on-textchange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subBtnOKCheck?language=Basic&amp;location=application" script:language="Script"/>
   </dlg:numericfield>
-  <dlg:text dlg:id="txtHP" dlg:tab-index="18" dlg:left="50" dlg:top="36" dlg:width="15" dlg:height="8" dlg:help-text="&amp;29.DlgMain.txtHP.HelpText" dlg:value="&amp;30.DlgMain.txtHP.Label"/>
+  <dlg:text dlg:id="txtHP" dlg:tab-index="18" dlg:left="50" dlg:top="36" dlg:width="15" dlg:height="8" dlg:value="&amp;30.DlgMain.txtHP.Label"/>
-  <dlg:numericfield dlg:id="numHP" dlg:tab-index="2" dlg:left="65" dlg:top="34" dlg:width="15" dlg:height="12" dlg:help-text="&amp;31.DlgMain.numHP.HelpText" dlg:decimal-accuracy="0" dlg:value-min="0" dlg:value-max="200">
+  <dlg:numericfield dlg:id="numHP" dlg:tab-index="2" dlg:left="65" dlg:top="34" dlg:width="15" dlg:height="12" dlg:decimal-accuracy="0" dlg:value-min="0" dlg:value-max="200">
    <script:event script:event-name="on-textchange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subBtnOKCheck?language=Basic&amp;location=application" script:language="Script"/>
   </dlg:numericfield>
-  <dlg:text dlg:id="txtStarDust" dlg:tab-index="19" dlg:left="90" dlg:top="36" dlg:width="30" dlg:height="8" dlg:help-text="&amp;32.DlgMain.txtStarDust.HelpText" dlg:value="&amp;33.DlgMain.txtStarDust.Label"/>
+  <dlg:text dlg:id="txtStarDust" dlg:tab-index="19" dlg:left="90" dlg:top="36" dlg:width="30" dlg:height="8" dlg:value="&amp;33.DlgMain.txtStarDust.Label"/>
-  <dlg:menulist dlg:id="lstStarDust" dlg:tab-index="3" dlg:left="120" dlg:top="34" dlg:width="30" dlg:height="12" dlg:help-text="&amp;162.DlgMain.lstStarDust.HelpText" dlg:spin="true">
+  <dlg:menulist dlg:id="lstStarDust" dlg:tab-index="3" dlg:left="120" dlg:top="34" dlg:width="30" dlg:height="12" dlg:spin="true">
    <dlg:menupopup>
     <dlg:menuitem dlg:value="200"/>
     <dlg:menuitem dlg:value="400"/>
@@ -200,8 +200,8 @@
    </dlg:menupopup>
    <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subBtnOKCheck?language=Basic&amp;location=application" script:language="Script"/>
   </dlg:menulist>
-  <dlg:text dlg:id="txtPlayerLevel" dlg:tab-index="20" dlg:left="160" dlg:top="36" dlg:width="35" dlg:height="8" dlg:help-text="&amp;40.DlgMain.txtPlayerLevel.HelpText" dlg:value="&amp;41.DlgMain.txtPlayerLevel.Label"/>
+  <dlg:text dlg:id="txtPlayerLevel" dlg:tab-index="20" dlg:left="160" dlg:top="36" dlg:width="35" dlg:height="8" dlg:value="&amp;41.DlgMain.txtPlayerLevel.Label"/>
-  <dlg:menulist dlg:id="lstPlayerLevel" dlg:tab-index="4" dlg:left="195" dlg:top="34" dlg:width="20" dlg:height="12" dlg:help-text="&amp;163.DlgMain.lstPlayerLevel.HelpText" dlg:spin="true">
+  <dlg:menulist dlg:id="lstPlayerLevel" dlg:tab-index="4" dlg:left="195" dlg:top="34" dlg:width="20" dlg:height="12" dlg:spin="true">
    <dlg:menupopup>
     <dlg:menuitem dlg:value="1"/>
     <dlg:menuitem dlg:value="2"/>
@@ -245,35 +245,35 @@
     <dlg:menuitem dlg:value="40"/>
    </dlg:menupopup>
   </dlg:menulist>
-  <dlg:checkbox dlg:id="cbxIsNew" dlg:tab-index="5" dlg:left="5" dlg:top="51" dlg:width="210" dlg:height="8" dlg:help-text="&amp;46.DlgMain.cbxIsNew.HelpText" dlg:value="&amp;47.DlgMain.cbxIsNew.Label" dlg:checked="true"/>
+  <dlg:checkbox dlg:id="cbxIsNew" dlg:tab-index="5" dlg:left="5" dlg:top="51" dlg:width="210" dlg:height="8" dlg:value="&amp;47.DlgMain.cbxIsNew.Label" dlg:checked="true"/>
-  <dlg:titledbox dlg:id="grpApprasals" dlg:tab-index="21" dlg:left="5" dlg:top="65" dlg:width="210" dlg:height="140" dlg:help-text="&amp;50.DlgMain.grpApprasals.HelpText">
+  <dlg:titledbox dlg:id="grpAppraisals" dlg:tab-index="21" dlg:left="5" dlg:top="65" dlg:width="210" dlg:height="140">
-   <dlg:title dlg:value="&amp;51.DlgMain.grpApprasals.Label"/>
+   <dlg:title dlg:value="&amp;51.DlgMain.grpAppraisals.Label"/>
   </dlg:titledbox>
-  <dlg:img dlg:style-id="0" dlg:id="imgTeamLogo" dlg:tab-index="25" dlg:left="10" dlg:top="75" dlg:width="30" dlg:height="30" dlg:help-text="&amp;204.DlgMain.imgTeamLogo.HelpText"/>
+  <dlg:img dlg:style-id="0" dlg:id="imgTeamLogo" dlg:tab-index="25" dlg:left="10" dlg:top="75" dlg:width="30" dlg:height="30"/>
-  <dlg:text dlg:id="txtTeam" dlg:tab-index="22" dlg:left="45" dlg:top="96" dlg:width="20" dlg:height="8" dlg:help-text="&amp;180.DlgMain.txtTeam.HelpText" dlg:value="&amp;181.DlgMain.txtTeam.Label"/>
+  <dlg:text dlg:id="txtTeam" dlg:tab-index="22" dlg:left="45" dlg:top="96" dlg:width="20" dlg:height="8" dlg:value="&amp;181.DlgMain.txtTeam.Label"/>
   <dlg:radiogroup>
-   <dlg:radio dlg:style-id="1" dlg:id="rdoTeamRed" dlg:tab-index="6" dlg:left="65" dlg:top="96" dlg:width="25" dlg:height="8" dlg:help-text="&amp;182.DlgMain.rdoTeamRed.HelpText" dlg:value="&amp;183.DlgMain.rdoTeamRed.Label">
+   <dlg:radio dlg:style-id="1" dlg:id="rdoTeamRed" dlg:tab-index="6" dlg:left="65" dlg:top="96" dlg:width="25" dlg:height="8" dlg:value="&amp;183.DlgMain.rdoTeamRed.Label">
-    <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subRdoTeamRedItemChanged_itemStateChanged?language=Basic&amp;location=application" script:language="Script"/>
+    <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subRdoTeamRedItemChanged?language=Basic&amp;location=application" script:language="Script"/>
    </dlg:radio>
-   <dlg:radio dlg:style-id="2" dlg:id="rdoTeamBlue" dlg:tab-index="7" dlg:left="95" dlg:top="96" dlg:width="30" dlg:height="8" dlg:help-text="&amp;184.DlgMain.rdoTeamBlue.HelpText" dlg:value="&amp;185.DlgMain.rdoTeamBlue.Label">
+   <dlg:radio dlg:style-id="2" dlg:id="rdoTeamBlue" dlg:tab-index="7" dlg:left="95" dlg:top="96" dlg:width="30" dlg:height="8" dlg:value="&amp;185.DlgMain.rdoTeamBlue.Label">
-    <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subRdoTeamBlueItemChanged_itemStateChanged?language=Basic&amp;location=application" script:language="Script"/>
+    <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subRdoTeamBlueItemChanged?language=Basic&amp;location=application" script:language="Script"/>
    </dlg:radio>
-   <dlg:radio dlg:style-id="3" dlg:id="rdoTeamYellow" dlg:tab-index="8" dlg:left="130" dlg:top="96" dlg:width="30" dlg:height="8" dlg:help-text="&amp;186.DlgMain.rdoTeamYellow.HelpText" dlg:value="&amp;187.DlgMain.rdoTeamYellow.Label">
+   <dlg:radio dlg:style-id="3" dlg:id="rdoTeamYellow" dlg:tab-index="8" dlg:left="130" dlg:top="96" dlg:width="30" dlg:height="8" dlg:value="&amp;187.DlgMain.rdoTeamYellow.Label">
-    <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subRdoTeamYellowItemChanged_itemStateChanged?language=Basic&amp;location=application" script:language="Script"/>
+    <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subRdoTeamYellowItemChanged?language=Basic&amp;location=application" script:language="Script"/>
    </dlg:radio>
   </dlg:radiogroup>
-  <dlg:img dlg:style-id="0" dlg:id="imgTeamLeader" dlg:tab-index="28" dlg:left="10" dlg:top="105" dlg:width="30" dlg:height="35" dlg:help-text="&amp;210.DlgMain.imgTeamLeader.HelpText"/>
+  <dlg:img dlg:style-id="0" dlg:id="imgTeamLeader" dlg:tab-index="28" dlg:left="10" dlg:top="105" dlg:width="30" dlg:height="35"/>
-  <dlg:text dlg:id="txtLeaderAppraise" dlg:tab-index="27" dlg:left="45" dlg:top="111" dlg:width="165" dlg:height="8" dlg:help-text="&amp;208.DlgMain.txtLeaderAppraise.HelpText"/>
+  <dlg:text dlg:id="txtLeaderAppraise" dlg:tab-index="27" dlg:left="45" dlg:top="111" dlg:width="165" dlg:height="8"/>
-  <dlg:menulist dlg:id="lstApprasal1" dlg:tab-index="9" dlg:left="45" dlg:top="124" dlg:width="165" dlg:height="12" dlg:help-text="&amp;164.DlgMain.lstApprasal1.HelpText" dlg:spin="true"/>
+  <dlg:menulist dlg:id="lstAppraisal1" dlg:tab-index="9" dlg:left="45" dlg:top="124" dlg:width="165" dlg:height="12" dlg:spin="true"/>
-  <dlg:text dlg:id="txtBestBefore" dlg:tab-index="23" dlg:left="45" dlg:top="141" dlg:width="20" dlg:height="8" dlg:help-text="&amp;194.DlgMain.txtBestBefore.HelpText"/>
+  <dlg:text dlg:id="txtBestBefore" dlg:tab-index="23" dlg:left="45" dlg:top="141" dlg:width="20" dlg:height="8"/>
-  <dlg:menulist dlg:id="lstBest" dlg:tab-index="10" dlg:left="65" dlg:top="139" dlg:width="35" dlg:height="12" dlg:help-text="&amp;193.DlgMain.lstBest.HelpText" dlg:spin="true">
+  <dlg:menulist dlg:id="lstBest" dlg:tab-index="10" dlg:left="65" dlg:top="139" dlg:width="35" dlg:height="12" dlg:spin="true">
-   <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subLstBestItemChanged_itemStateChanged?language=Basic&amp;location=application" script:language="Script"/>
+   <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subLstBestItemChanged?language=Basic&amp;location=application" script:language="Script"/>
   </dlg:menulist>
-  <dlg:text dlg:id="txtBestAfter" dlg:tab-index="24" dlg:left="100" dlg:top="141" dlg:width="100" dlg:height="8" dlg:help-text="&amp;195.DlgMain.txtBestAfter.HelpText"/>
+  <dlg:text dlg:id="txtBestAfter" dlg:tab-index="24" dlg:left="100" dlg:top="141" dlg:width="100" dlg:height="8"/>
-  <dlg:checkbox dlg:id="cbxBest2" dlg:tab-index="11" dlg:left="45" dlg:top="156" dlg:width="165" dlg:height="8" dlg:help-text="&amp;201.DlgMain.cbxBest2.HelpText" dlg:checked="false"/>
+  <dlg:checkbox dlg:id="cbxBest2" dlg:tab-index="11" dlg:left="45" dlg:top="156" dlg:width="165" dlg:height="8" dlg:checked="false"/>
-  <dlg:checkbox dlg:id="cbxBest3" dlg:tab-index="12" dlg:left="45" dlg:top="171" dlg:width="165" dlg:height="8" dlg:help-text="&amp;203.DlgMain.cbxBest3.HelpText" dlg:checked="false"/>
+  <dlg:checkbox dlg:id="cbxBest3" dlg:tab-index="12" dlg:left="45" dlg:top="171" dlg:width="165" dlg:height="8" dlg:checked="false"/>
-  <dlg:menulist dlg:id="lstApprasal2" dlg:tab-index="13" dlg:left="45" dlg:top="184" dlg:width="165" dlg:height="12" dlg:help-text="&amp;165.DlgMain.lstApprasal2.HelpText" dlg:spin="true"/>
+  <dlg:menulist dlg:id="lstAppraisal2" dlg:tab-index="13" dlg:left="45" dlg:top="184" dlg:width="165" dlg:height="12" dlg:spin="true"/>
-  <dlg:button dlg:id="btnOK" dlg:tab-index="14" dlg:disabled="true" dlg:left="35" dlg:top="210" dlg:width="60" dlg:height="15" dlg:help-text="&amp;85.DlgMain.btnOK.HelpText" dlg:default="true" dlg:button-type="ok"/>
+  <dlg:button dlg:id="btnOK" dlg:tab-index="14" dlg:disabled="true" dlg:left="35" dlg:top="210" dlg:width="60" dlg:height="15" dlg:default="true" dlg:button-type="ok"/>
-  <dlg:button dlg:id="btnCancel" dlg:tab-index="15" dlg:left="125" dlg:top="210" dlg:width="60" dlg:height="15" dlg:help-text="&amp;87.DlgMain.btnCancel.HelpText" dlg:button-type="cancel"/>
+  <dlg:button dlg:id="btnCancel" dlg:tab-index="15" dlg:left="125" dlg:top="210" dlg:width="60" dlg:height="15" dlg:button-type="cancel"/>
  </dlg:bulletinboard>
 </dlg:window>