Added the dialog for localization and easier UI.

PokemonGoIV/0Main.vb

@@ -46,7 +46,7 @@ Sub subMain
 	Dim maIVs As Variant, nI As Integer, sOutput As String
 	Dim aQuery As New aFindIVParam, aBaseStats As New aStats
 	
-	aQuery = fnAskParam0
+	aQuery = fnAskParam
 	If aQuery.bIsCancelled Then
 		Exit Sub
 	End If
@@ -78,36 +78,19 @@ End Sub
 
 ' fnAskParam: Asks the users for the parameters for the Pokémon.
 Function fnAskParam As aFindIVParam
-	Dim aQuery As New aFindIVParam, oDialog As Object
+	Dim oDialog As Object, oDialogModel As Object
-	Dim oDialogModel As Object, oListModel As Object
+	Dim bIsBestAttack As Boolean, bIsBestDefense As Boolean
+	Dim bIsBestHP As Boolean
+	Dim aQuery As New aFindIVParam
 	
 	oDialog = CreateUnoDialog (DialogLibraries.PokemonGoIV.DlgMain)
-	oDialogModel = oDialog.getModel
+	oDialog.getControl ("lstApprasal1").setVisible (False)
-	
+	oDialog.getControl ("txtBestBefore").setVisible (False)
-	oListModel = oDialogModel.getByName ("lstPokemon")
+	oDialog.getControl ("lstBest").setVisible (False)
-	oListModel.setPropertyValue ("Dropdown", True)
+	oDialog.getControl ("txtBestAfter").setVisible (False)
-	oDialogModel.removeByName ("lstPokemon")
+	oDialog.getControl ("cbxBest2").setVisible (False)
-	oDialogModel.insertByName ("lstPokemon", oListModel)
+	oDialog.getControl ("cbxBest3").setVisible (False)
-	
+	oDialog.getControl ("lstApprasal2").setVisible (False)
-	oListModel = oDialogModel.getByName ("lstStarDust")
-	oListModel.setPropertyValue ("Dropdown", True)
-	oDialogModel.removeByName ("lstStarDust")
-	oDialogModel.insertByName ("lstStarDust", oListModel)
-	
-	oListModel = oDialogModel.getByName ("lstPlayerLevel")
-	oListModel.setPropertyValue ("Dropdown", True)
-	oDialogModel.removeByName ("lstPlayerLevel")
-	oDialogModel.insertByName ("lstPlayerLevel", oListModel)
-	
-	oListModel = oDialogModel.getByName ("lstApprasal1")
-	oListModel.setPropertyValue ("Dropdown", True)
-	oDialogModel.removeByName ("lstApprasal1")
-	oDialogModel.insertByName ("lstApprasal1", oListModel)
-	
-	oListModel = oDialogModel.getByName ("lstApprasal2")
-	oListModel.setPropertyValue ("Dropdown", True)
-	oDialogModel.removeByName ("lstApprasal2")
-	oDialogModel.insertByName ("lstApprasal2", oListModel)
 	
 	If oDialog.execute = 0 Then
 		aQuery.bIsCancelled = True
@@ -130,16 +113,49 @@ Function fnAskParam As aFindIVParam
 	Else
 		aQuery.bIsNew = False
 	End If
+	
+	' The best stats
+	bIsBestAttack = False
+	bIsBestDefense = False
+	bIsBestHP = False
+	If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then
+		bIsBestAttack = True
+		If oDialog.getControl ("cbxBest2").getState = 1 Then
+			bIsBestDefense = True
+		End If
+		If oDialog.getControl ("cbxBest3").getState = 1 Then
+			bIsBestHP = True
+		End If
+	End If
+	If oDialog.getControl ("lstBest").getSelectedItem = "Defense" Then
+		bIsBestDefense = True
+		If oDialog.getControl ("cbxBest2").getState = 1 Then
+			bIsBestAttack = True
+		End If
+		If oDialog.getControl ("cbxBest3").getState = 1 Then
+			bIsBestHP = True
+		End If
+	End If
+	If oDialog.getControl ("lstBest").getSelectedItem = "HP" Then
+		bIsBestHP = True
+		If oDialog.getControl ("cbxBest2").getState = 1 Then
+			bIsBestAttack = True
+		End If
+		If oDialog.getControl ("cbxBest3").getState = 1 Then
+			bIsBestDefense = True
+		End If
+	End If
 	aQuery.sBest = ""
-	If oDialog.getControl ("cbxAttackBest").getState = 1 Then
+	If bIsBestAttack Then
 		aQuery.sBest = aQuery.sBest & "Atk "
 	End If
-	If oDialog.getControl ("cbxDefenseBest").getState = 1 Then
+	If bIsBestDefense Then
 		aQuery.sBest = aQuery.sBest & "Def "
 	End If
-	If oDialog.getControl ("cbxHPBest").getState = 1 Then
+	If bIsBestHP Then
 		aQuery.sBest = aQuery.sBest & "Sta "
 	End If
+	
 	fnAskParam = aQuery
 End Function
 
@@ -337,7 +353,7 @@ Function fnAskParam0 As aFindIVParam
 	' Adds the blue team radio button.
 	oRadioModel = oDialogModel.createInstance ( _
 		"com.sun.star.awt.UnoControlRadioButtonModel")
-	oRadioModel.setPropertyValue ("PositionX", 55)
+	oRadioModel.setPropertyValue ("PositionX", 60)
 	oRadioModel.setPropertyValue ("PositionY", 66)
 	oRadioModel.setPropertyValue ("Height", 8)
 	oRadioModel.setPropertyValue ("Width", 30)
@@ -349,7 +365,7 @@ Function fnAskParam0 As aFindIVParam
 	' Adds the yellow team radio button.
 	oRadioModel = oDialogModel.createInstance ( _
 		"com.sun.star.awt.UnoControlRadioButtonModel")
-	oRadioModel.setPropertyValue ("PositionX", 85)
+	oRadioModel.setPropertyValue ("PositionX", 95)
 	oRadioModel.setPropertyValue ("PositionY", 66)
 	oRadioModel.setPropertyValue ("Height", 8)
 	oRadioModel.setPropertyValue ("Width", 30)
@@ -373,13 +389,13 @@ Function fnAskParam0 As aFindIVParam
 	oTextModel.setPropertyValue ("PositionX", 10)
 	oTextModel.setPropertyValue ("PositionY", 96)
 	oTextModel.setPropertyValue ("Height", 8)
-	oTextModel.setPropertyValue ("Width", 0)
+	oTextModel.setPropertyValue ("Width", 20)
 	oDialogModel.insertByName ("txtBestBefore", oTextModel)
 	
 	' Adds the best stat field.
 	oListModel = oDialogModel.createInstance ( _
 		"com.sun.star.awt.UnoControlListBoxModel")
-	oListModel.setPropertyValue ("PositionX", 10)
+	oListModel.setPropertyValue ("PositionX", 30)
 	oListModel.setPropertyValue ("PositionY", 94)
 	oListModel.setPropertyValue ("Height", 12)
 	oListModel.setPropertyValue ("Width", 35)
@@ -389,7 +405,7 @@ Function fnAskParam0 As aFindIVParam
 	' Adds a text label after the best stat.
 	oTextModel = oDialogModel.createInstance ( _
 		"com.sun.star.awt.UnoControlFixedTextModel")
-	oTextModel.setPropertyValue ("PositionX", 45)
+	oTextModel.setPropertyValue ("PositionX", 65)
 	oTextModel.setPropertyValue ("PositionY", 96)
 	oTextModel.setPropertyValue ("Height", 8)
 	oTextModel.setPropertyValue ("Width", 100)
@@ -401,7 +417,7 @@ Function fnAskParam0 As aFindIVParam
 	oCheckBoxModel.setPropertyValue ("PositionX", 10)
 	oCheckBoxModel.setPropertyValue ("PositionY", 111)
 	oCheckBoxModel.setPropertyValue ("Height", 8)
-	oCheckBoxModel.setPropertyValue ("Width", 210)
+	oCheckBoxModel.setPropertyValue ("Width", 200)
 	oDialogModel.insertByName ("cbxBest2", oCheckBoxModel)
 	
 	' Adds the third best stat check box.
@@ -410,14 +426,14 @@ Function fnAskParam0 As aFindIVParam
 	oCheckBoxModel.setPropertyValue ("PositionX", 10)
 	oCheckBoxModel.setPropertyValue ("PositionY", 126)
 	oCheckBoxModel.setPropertyValue ("Height", 8)
-	oCheckBoxModel.setPropertyValue ("Width", 210)
+	oCheckBoxModel.setPropertyValue ("Width", 200)
 	oDialogModel.insertByName ("cbxBest3", oCheckBoxModel)
 	
 	' Adds the second appraisal list.
 	oListModel = oDialogModel.createInstance ( _
 		"com.sun.star.awt.UnoControlListBoxModel")
 	oListModel.setPropertyValue ("PositionX", 10)
-	oListModel.setPropertyValue ("PositionY", 140)
+	oListModel.setPropertyValue ("PositionY", 139)
 	oListModel.setPropertyValue ("Height", 12)
 	oListModel.setPropertyValue ("Width", 200)
 	oListModel.setPropertyValue ("Dropdown", True)
@@ -491,6 +507,7 @@ Function fnAskParam0 As aFindIVParam
 	Else
 		aQuery.bIsNew = False
 	End If
+	
 	' The best stats
 	bIsBestAttack = False
 	bIsBestDefense = False
@@ -532,10 +549,11 @@ Function fnAskParam0 As aFindIVParam
 	If bIsBestHP Then
 		aQuery.sBest = aQuery.sBest & "Sta "
 	End If
+	
 	fnAskParam0 = aQuery
 End Function
 
-' subRdoTeamRedItemChanged_itemStateChanged: Dummy for the listener.
+' subRdoTeamRedItemChanged_disposing: Dummy for the listener.
 Sub subRdoTeamRedItemChanged_disposing (oEvent As object)
 End Sub
 
@@ -545,10 +563,10 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
 	Dim mItems () As String
 	
 	mItems = Array ( _
-		"1. Overall, your [Pokémon] simply amazes me. It can accomplish anything!", _
+		"Overall, your [Pokémon] simply amazes me. It can accomplish anything!", _
-		"2. Overall, your [Pokémon] is a strong Pokémon. You should be proud!", _
+		"Overall, your [Pokémon] is a strong Pokémon. You should be proud!", _
-		"3. Overall, your [Pokémon] is a decent Pokémon.", _
+		"Overall, your [Pokémon] is a decent Pokémon.", _
-		"4. Overall, your [Pokémon] may not be great in battle, but I still like it!")
+		"Overall, your [Pokémon] may not be great in battle, but I still like it!")
 	oDialog = oEvent.Source.getContext
 	oList = oDialog.getControl ("lstApprasal1")
 	oList.removeItems (0, oList.getItemCount())
@@ -582,10 +600,10 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
 	oList.setVisible (False)
 	
 	mItems = Array ( _
-		"1. I'm blown away by its stats. WOW!", _
+		"I'm blown away by its stats. WOW!", _
-		"2. It's got excellent stats! How exciting!", _
+		"It's got excellent stats! How exciting!", _
-		"3. Its stats indicate that in battle, it'll get the job done.", _
+		"Its stats indicate that in battle, it'll get the job done.", _
-		"4. Its stats don't point to greatness in battle.")
+		"Its stats don't point to greatness in battle.")
 	oDialog = oEvent.Source.getContext
 	oList = oDialog.getControl ("lstApprasal2")
 	oList.removeItems (0, oList.getItemCount())
@@ -593,7 +611,7 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
 	oList.setVisible (True)
 End Sub
 
-' subRdoTeamBlueItemChanged_itemStateChanged: Dummy for the listener.
+' subRdoTeamBlueItemChanged_disposing: Dummy for the listener.
 Sub subRdoTeamBlueItemChanged_disposing (oEvent As object)
 End Sub
 
@@ -603,10 +621,10 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
 	Dim mItems () As String
 	
 	mItems = Array ( _
-		"1. Overall, your [Pokémon] is a wonder! What a breathtaking Pokémon!", _
+		"Overall, your [Pokémon] is a wonder! What a breathtaking Pokémon!", _
-		"2. Overall, your [Pokémon] has certainly caught my attention.", _
+		"Overall, your [Pokémon] has certainly caught my attention.", _
-		"3. Overall, your [Pokémon] is above average.", _
+		"Overall, your [Pokémon] is above average.", _
-		"4. Overall, your [Pokémon] is not likely to make much headway in battle.")
+		"Overall, your [Pokémon] is not likely to make much headway in battle.")
 	oDialog = oEvent.Source.getContext
 	oList = oDialog.getControl ("lstApprasal1")
 	oList.removeItems (0, oList.getItemCount())
@@ -640,10 +658,10 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
 	oList.setVisible (False)
 	
 	mItems = Array ( _
-		"1. Its stats exceed my calculations. It's incredible!", _
+		"Its stats exceed my calculations. It's incredible!", _
-		"2. I am certainly impressed by its stats, I must say.", _
+		"I am certainly impressed by its stats, I must say.", _
-		"3. Its stats are noticeably trending to the positive.", _
+		"Its stats are noticeably trending to the positive.", _
-		"4. Its stats are not out of the norm, in my opinion.")
+		"Its stats are not out of the norm, in my opinion.")
 	oDialog = oEvent.Source.getContext
 	oList = oDialog.getControl ("lstApprasal2")
 	oList.removeItems (0, oList.getItemCount())
@@ -651,7 +669,7 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
 	oList.setVisible (True)
 End Sub
 
-' subRdoTeamYellowItemChanged_itemStateChanged: Dummy for the listener.
+' subRdoTeamYellowItemChanged_disposing: Dummy for the listener.
 Sub subRdoTeamYellowItemChanged_disposing (oEvent As object)
 End Sub
 
@@ -661,10 +679,10 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
 	Dim mItems () As String
 	
 	mItems = Array ( _
-		"1. Overall, your [Pokémon] looks like it can really battle with the best of them!", _
+		"Overall, your [Pokémon] looks like it can really battle with the best of them!", _
-		"2. Overall, your [Pokémon] is really strong!", _
+		"Overall, your [Pokémon] is really strong!", _
-		"3. Overall, your [Pokémon] is pretty decent!", _
+		"Overall, your [Pokémon] is pretty decent!", _
-		"4. Overall, your [Pokémon] has room for improvement as far as battling goes.")
+		"Overall, your [Pokémon] has room for improvement as far as battling goes.")
 	oDialog = oEvent.Source.getContext
 	oList = oDialog.getControl ("lstApprasal1")
 	oList.removeItems (0, oList.getItemCount())
@@ -698,10 +716,10 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
 	oList.setVisible (False)
 	
 	mItems = Array ( _
-		"1. Its stats are the best I've ever seen! No doubt about it!", _
+		"Its stats are the best I've ever seen! No doubt about it!", _
-		"2. Its stats are really strong! Impressive.", _
+		"Its stats are really strong! Impressive.", _
-		"3. It's definitely got some good stats. Definitely!", _
+		"It's definitely got some good stats. Definitely!", _
-		"4. Its stats are all right, but kinda basic, as far as I can see.")
+		"Its stats are all right, but kinda basic, as far as I can see.")
 	oDialog = oEvent.Source.getContext
 	oList = oDialog.getControl ("lstApprasal2")
 	oList.removeItems (0, oList.getItemCount())
@@ -709,7 +727,7 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
 	oList.setVisible (True)
 End Sub
 
-' subLstBestItemChanged_itemStateChanged: Dummy for the listener.
+' subLstBestItemChanged_disposing: Dummy for the listener.
 Sub subLstBestItemChanged_disposing (oEvent As object)
 End Sub
 
@@ -723,25 +741,31 @@ Sub subLstBestItemChanged_itemStateChanged (oEvent As object)
 			oCheckBox = oDialog.getControl ("cbxBest2")
 			oCheckBox.setLabel ("I'm just as impressed with its Defense.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 			oCheckBox = oDialog.getControl ("cbxBest3")
 			oCheckBox.setLabel ("I'm just as impressed with its HP.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 		End If
 		If oDialog.getControl ("lstBest").getSelectedItem = "Defense" Then
 			oCheckBox = oDialog.getControl ("cbxBest2")
 			oCheckBox.setLabel ("I'm just as impressed with its Attack.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 			oCheckBox = oDialog.getControl ("cbxBest3")
 			oCheckBox.setLabel ("I'm just as impressed with its HP.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 		End If
 		If oDialog.getControl ("lstBest").getSelectedItem = "HP" Then
 			oCheckBox = oDialog.getControl ("cbxBest2")
 			oCheckBox.setLabel ("I'm just as impressed with its Attack.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 			oCheckBox = oDialog.getControl ("cbxBest3")
 			oCheckBox.setLabel ("I'm just as impressed with its Defense.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 		End If
 	End If
 	If oDialog.getControl ("rdoTeamBlue").getState Then
@@ -749,25 +773,31 @@ Sub subLstBestItemChanged_itemStateChanged (oEvent As object)
 			oCheckBox = oDialog.getControl ("cbxBest2")
 			oCheckBox.setLabel ("It is matched equally by its Defense.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 			oCheckBox = oDialog.getControl ("cbxBest3")
 			oCheckBox.setLabel ("It is matched equally by its HP.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 		End If
 		If oDialog.getControl ("lstBest").getSelectedItem = "Defense" Then
 			oCheckBox = oDialog.getControl ("cbxBest2")
 			oCheckBox.setLabel ("It is matched equally by its Attack.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 			oCheckBox = oDialog.getControl ("cbxBest3")
 			oCheckBox.setLabel ("It is matched equally by its HP.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 		End If
 		If oDialog.getControl ("lstBest").getSelectedItem = "HP" Then
 			oCheckBox = oDialog.getControl ("cbxBest2")
 			oCheckBox.setLabel ("It is matched equally by its Attack.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 			oCheckBox = oDialog.getControl ("cbxBest3")
 			oCheckBox.setLabel ("It is matched equally by its Defense.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 		End If
 	End If
 	If oDialog.getControl ("rdoTeamYellow").getState Then
@@ -783,17 +813,21 @@ Sub subLstBestItemChanged_itemStateChanged (oEvent As object)
 			oCheckBox = oDialog.getControl ("cbxBest2")
 			oCheckBox.setLabel ("Its Attack is great, too!")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 			oCheckBox = oDialog.getControl ("cbxBest3")
 			oCheckBox.setLabel ("Its HP is great, too!")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 		End If
 		If oDialog.getControl ("lstBest").getSelectedItem = "HP" Then
 			oCheckBox = oDialog.getControl ("cbxBest2")
 			oCheckBox.setLabel ("Its Attack is great, too!")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 			oCheckBox = oDialog.getControl ("cbxBest3")
 			oCheckBox.setLabel ("Its Defense is great, too!")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 		End If
 	End If
 End Sub

oxt/PokemonGoIV/0Main.xba

@@ -48,7 +48,7 @@ Sub subMain
 	Dim maIVs As Variant, nI As Integer, sOutput As String
 	Dim aQuery As New aFindIVParam, aBaseStats As New aStats
 	
-	aQuery = fnAskParam0
+	aQuery = fnAskParam
 	If aQuery.bIsCancelled Then
 		Exit Sub
 	End If
@@ -80,36 +80,19 @@ End Sub
 
 ' fnAskParam: Asks the users for the parameters for the Pokémon.
 Function fnAskParam As aFindIVParam
-	Dim aQuery As New aFindIVParam, oDialog As Object
+	Dim oDialog As Object, oDialogModel As Object
-	Dim oDialogModel As Object, oListModel As Object
+	Dim bIsBestAttack As Boolean, bIsBestDefense As Boolean
+	Dim bIsBestHP As Boolean
+	Dim aQuery As New aFindIVParam
 	
 	oDialog = CreateUnoDialog (DialogLibraries.PokemonGoIV.DlgMain)
-	oDialogModel = oDialog.getModel
+	oDialog.getControl ("lstApprasal1").setVisible (False)
-	
+	oDialog.getControl ("txtBestBefore").setVisible (False)
-	oListModel = oDialogModel.getByName ("lstPokemon")
+	oDialog.getControl ("lstBest").setVisible (False)
-	oListModel.setPropertyValue ("Dropdown", True)
+	oDialog.getControl ("txtBestAfter").setVisible (False)
-	oDialogModel.removeByName ("lstPokemon")
+	oDialog.getControl ("cbxBest2").setVisible (False)
-	oDialogModel.insertByName ("lstPokemon", oListModel)
+	oDialog.getControl ("cbxBest3").setVisible (False)
-	
+	oDialog.getControl ("lstApprasal2").setVisible (False)
-	oListModel = oDialogModel.getByName ("lstStarDust")
-	oListModel.setPropertyValue ("Dropdown", True)
-	oDialogModel.removeByName ("lstStarDust")
-	oDialogModel.insertByName ("lstStarDust", oListModel)
-	
-	oListModel = oDialogModel.getByName ("lstPlayerLevel")
-	oListModel.setPropertyValue ("Dropdown", True)
-	oDialogModel.removeByName ("lstPlayerLevel")
-	oDialogModel.insertByName ("lstPlayerLevel", oListModel)
-	
-	oListModel = oDialogModel.getByName ("lstApprasal1")
-	oListModel.setPropertyValue ("Dropdown", True)
-	oDialogModel.removeByName ("lstApprasal1")
-	oDialogModel.insertByName ("lstApprasal1", oListModel)
-	
-	oListModel = oDialogModel.getByName ("lstApprasal2")
-	oListModel.setPropertyValue ("Dropdown", True)
-	oDialogModel.removeByName ("lstApprasal2")
-	oDialogModel.insertByName ("lstApprasal2", oListModel)
 	
 	If oDialog.execute = 0 Then
 		aQuery.bIsCancelled = True
@@ -132,14 +115,45 @@ Function fnAskParam As aFindIVParam
 	Else
 		aQuery.bIsNew = False
 	End If
+	' The best stats
+	bIsBestAttack = False
+	bIsBestDefense = False
+	bIsBestHP = False
+	If oDialog.getControl ("lstBest").getSelectedItem = "Attack" Then
+		bIsBestAttack = True
+		If oDialog.getControl ("cbxBest2").getState = 1 Then
+			bIsBestDefense = True
+		End If
+		If oDialog.getControl ("cbxBest3").getState = 1 Then
+			bIsBestHP = True
+		End If
+	End If
+	If oDialog.getControl ("lstBest").getSelectedItem = "Defense" Then
+		bIsBestDefense = True
+		If oDialog.getControl ("cbxBest2").getState = 1 Then
+			bIsBestAttack = True
+		End If
+		If oDialog.getControl ("cbxBest3").getState = 1 Then
+			bIsBestHP = True
+		End If
+	End If
+	If oDialog.getControl ("lstBest").getSelectedItem = "HP" Then
+		bIsBestHP = True
+		If oDialog.getControl ("cbxBest2").getState = 1 Then
+			bIsBestAttack = True
+		End If
+		If oDialog.getControl ("cbxBest3").getState = 1 Then
+			bIsBestDefense = True
+		End If
+	End If
 	aQuery.sBest = ""
-	If oDialog.getControl ("cbxAttackBest").getState = 1 Then
+	If bIsBestAttack Then
 		aQuery.sBest = aQuery.sBest & "Atk "
 	End If
-	If oDialog.getControl ("cbxDefenseBest").getState = 1 Then
+	If bIsBestDefense Then
 		aQuery.sBest = aQuery.sBest & "Def "
 	End If
-	If oDialog.getControl ("cbxHPBest").getState = 1 Then
+	If bIsBestHP Then
 		aQuery.sBest = aQuery.sBest & "Sta "
 	End If
 	fnAskParam = aQuery
@@ -339,7 +353,7 @@ Function fnAskParam0 As aFindIVParam
 	' Adds the blue team radio button.
 	oRadioModel = oDialogModel.createInstance ( _
 		"com.sun.star.awt.UnoControlRadioButtonModel")
-	oRadioModel.setPropertyValue ("PositionX", 55)
+	oRadioModel.setPropertyValue ("PositionX", 60)
 	oRadioModel.setPropertyValue ("PositionY", 66)
 	oRadioModel.setPropertyValue ("Height", 8)
 	oRadioModel.setPropertyValue ("Width", 30)
@@ -351,7 +365,7 @@ Function fnAskParam0 As aFindIVParam
 	' Adds the yellow team radio button.
 	oRadioModel = oDialogModel.createInstance ( _
 		"com.sun.star.awt.UnoControlRadioButtonModel")
-	oRadioModel.setPropertyValue ("PositionX", 85)
+	oRadioModel.setPropertyValue ("PositionX", 95)
 	oRadioModel.setPropertyValue ("PositionY", 66)
 	oRadioModel.setPropertyValue ("Height", 8)
 	oRadioModel.setPropertyValue ("Width", 30)
@@ -375,13 +389,13 @@ Function fnAskParam0 As aFindIVParam
 	oTextModel.setPropertyValue ("PositionX", 10)
 	oTextModel.setPropertyValue ("PositionY", 96)
 	oTextModel.setPropertyValue ("Height", 8)
-	oTextModel.setPropertyValue ("Width", 0)
+	oTextModel.setPropertyValue ("Width", 20)
 	oDialogModel.insertByName ("txtBestBefore", oTextModel)
 	
 	' Adds the best stat field.
 	oListModel = oDialogModel.createInstance ( _
 		"com.sun.star.awt.UnoControlListBoxModel")
-	oListModel.setPropertyValue ("PositionX", 10)
+	oListModel.setPropertyValue ("PositionX", 30)
 	oListModel.setPropertyValue ("PositionY", 94)
 	oListModel.setPropertyValue ("Height", 12)
 	oListModel.setPropertyValue ("Width", 35)
@@ -391,7 +405,7 @@ Function fnAskParam0 As aFindIVParam
 	' Adds a text label after the best stat.
 	oTextModel = oDialogModel.createInstance ( _
 		"com.sun.star.awt.UnoControlFixedTextModel")
-	oTextModel.setPropertyValue ("PositionX", 45)
+	oTextModel.setPropertyValue ("PositionX", 65)
 	oTextModel.setPropertyValue ("PositionY", 96)
 	oTextModel.setPropertyValue ("Height", 8)
 	oTextModel.setPropertyValue ("Width", 100)
@@ -403,7 +417,7 @@ Function fnAskParam0 As aFindIVParam
 	oCheckBoxModel.setPropertyValue ("PositionX", 10)
 	oCheckBoxModel.setPropertyValue ("PositionY", 111)
 	oCheckBoxModel.setPropertyValue ("Height", 8)
-	oCheckBoxModel.setPropertyValue ("Width", 210)
+	oCheckBoxModel.setPropertyValue ("Width", 200)
 	oDialogModel.insertByName ("cbxBest2", oCheckBoxModel)
 	
 	' Adds the third best stat check box.
@@ -412,14 +426,14 @@ Function fnAskParam0 As aFindIVParam
 	oCheckBoxModel.setPropertyValue ("PositionX", 10)
 	oCheckBoxModel.setPropertyValue ("PositionY", 126)
 	oCheckBoxModel.setPropertyValue ("Height", 8)
-	oCheckBoxModel.setPropertyValue ("Width", 210)
+	oCheckBoxModel.setPropertyValue ("Width", 200)
 	oDialogModel.insertByName ("cbxBest3", oCheckBoxModel)
 	
 	' Adds the second appraisal list.
 	oListModel = oDialogModel.createInstance ( _
 		"com.sun.star.awt.UnoControlListBoxModel")
 	oListModel.setPropertyValue ("PositionX", 10)
-	oListModel.setPropertyValue ("PositionY", 140)
+	oListModel.setPropertyValue ("PositionY", 139)
 	oListModel.setPropertyValue ("Height", 12)
 	oListModel.setPropertyValue ("Width", 200)
 	oListModel.setPropertyValue ("Dropdown", True)
@@ -537,7 +551,7 @@ Function fnAskParam0 As aFindIVParam
 	fnAskParam0 = aQuery
 End Function
 
-' subRdoTeamRedItemChanged_itemStateChanged: Dummy for the listener.
+' subRdoTeamRedItemChanged_disposing: Dummy for the listener.
 Sub subRdoTeamRedItemChanged_disposing (oEvent As object)
 End Sub
 
@@ -547,10 +561,10 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
 	Dim mItems () As String
 	
 	mItems = Array ( _
-		"1. Overall, your [Pokémon] simply amazes me. It can accomplish anything!", _
+		"Overall, your [Pokémon] simply amazes me. It can accomplish anything!", _
-		"2. Overall, your [Pokémon] is a strong Pokémon. You should be proud!", _
+		"Overall, your [Pokémon] is a strong Pokémon. You should be proud!", _
-		"3. Overall, your [Pokémon] is a decent Pokémon.", _
+		"Overall, your [Pokémon] is a decent Pokémon.", _
-		"4. Overall, your [Pokémon] may not be great in battle, but I still like it!")
+		"Overall, your [Pokémon] may not be great in battle, but I still like it!")
 	oDialog = oEvent.Source.getContext
 	oList = oDialog.getControl ("lstApprasal1")
 	oList.removeItems (0, oList.getItemCount())
@@ -584,10 +598,10 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
 	oList.setVisible (False)
 	
 	mItems = Array ( _
-		"1. I'm blown away by its stats. WOW!", _
+		"I'm blown away by its stats. WOW!", _
-		"2. It's got excellent stats! How exciting!", _
+		"It's got excellent stats! How exciting!", _
-		"3. Its stats indicate that in battle, it'll get the job done.", _
+		"Its stats indicate that in battle, it'll get the job done.", _
-		"4. Its stats don't point to greatness in battle.")
+		"Its stats don't point to greatness in battle.")
 	oDialog = oEvent.Source.getContext
 	oList = oDialog.getControl ("lstApprasal2")
 	oList.removeItems (0, oList.getItemCount())
@@ -595,7 +609,7 @@ Sub subRdoTeamRedItemChanged_itemStateChanged (oEvent As object)
 	oList.setVisible (True)
 End Sub
 
-' subRdoTeamBlueItemChanged_itemStateChanged: Dummy for the listener.
+' subRdoTeamBlueItemChanged_disposing: Dummy for the listener.
 Sub subRdoTeamBlueItemChanged_disposing (oEvent As object)
 End Sub
 
@@ -605,10 +619,10 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
 	Dim mItems () As String
 	
 	mItems = Array ( _
-		"1. Overall, your [Pokémon] is a wonder! What a breathtaking Pokémon!", _
+		"Overall, your [Pokémon] is a wonder! What a breathtaking Pokémon!", _
-		"2. Overall, your [Pokémon] has certainly caught my attention.", _
+		"Overall, your [Pokémon] has certainly caught my attention.", _
-		"3. Overall, your [Pokémon] is above average.", _
+		"Overall, your [Pokémon] is above average.", _
-		"4. Overall, your [Pokémon] is not likely to make much headway in battle.")
+		"Overall, your [Pokémon] is not likely to make much headway in battle.")
 	oDialog = oEvent.Source.getContext
 	oList = oDialog.getControl ("lstApprasal1")
 	oList.removeItems (0, oList.getItemCount())
@@ -642,10 +656,10 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
 	oList.setVisible (False)
 	
 	mItems = Array ( _
-		"1. Its stats exceed my calculations. It's incredible!", _
+		"Its stats exceed my calculations. It's incredible!", _
-		"2. I am certainly impressed by its stats, I must say.", _
+		"I am certainly impressed by its stats, I must say.", _
-		"3. Its stats are noticeably trending to the positive.", _
+		"Its stats are noticeably trending to the positive.", _
-		"4. Its stats are not out of the norm, in my opinion.")
+		"Its stats are not out of the norm, in my opinion.")
 	oDialog = oEvent.Source.getContext
 	oList = oDialog.getControl ("lstApprasal2")
 	oList.removeItems (0, oList.getItemCount())
@@ -653,7 +667,7 @@ Sub subRdoTeamBlueItemChanged_itemStateChanged (oEvent As object)
 	oList.setVisible (True)
 End Sub
 
-' subRdoTeamYellowItemChanged_itemStateChanged: Dummy for the listener.
+' subRdoTeamYellowItemChanged_disposing: Dummy for the listener.
 Sub subRdoTeamYellowItemChanged_disposing (oEvent As object)
 End Sub
 
@@ -663,10 +677,10 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
 	Dim mItems () As String
 	
 	mItems = Array ( _
-		"1. Overall, your [Pokémon] looks like it can really battle with the best of them!", _
+		"Overall, your [Pokémon] looks like it can really battle with the best of them!", _
-		"2. Overall, your [Pokémon] is really strong!", _
+		"Overall, your [Pokémon] is really strong!", _
-		"3. Overall, your [Pokémon] is pretty decent!", _
+		"Overall, your [Pokémon] is pretty decent!", _
-		"4. Overall, your [Pokémon] has room for improvement as far as battling goes.")
+		"Overall, your [Pokémon] has room for improvement as far as battling goes.")
 	oDialog = oEvent.Source.getContext
 	oList = oDialog.getControl ("lstApprasal1")
 	oList.removeItems (0, oList.getItemCount())
@@ -700,10 +714,10 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
 	oList.setVisible (False)
 	
 	mItems = Array ( _
-		"1. Its stats are the best I've ever seen! No doubt about it!", _
+		"Its stats are the best I've ever seen! No doubt about it!", _
-		"2. Its stats are really strong! Impressive.", _
+		"Its stats are really strong! Impressive.", _
-		"3. It's definitely got some good stats. Definitely!", _
+		"It's definitely got some good stats. Definitely!", _
-		"4. Its stats are all right, but kinda basic, as far as I can see.")
+		"Its stats are all right, but kinda basic, as far as I can see.")
 	oDialog = oEvent.Source.getContext
 	oList = oDialog.getControl ("lstApprasal2")
 	oList.removeItems (0, oList.getItemCount())
@@ -711,7 +725,7 @@ Sub subRdoTeamYellowItemChanged_itemStateChanged (oEvent As object)
 	oList.setVisible (True)
 End Sub
 
-' subLstBestItemChanged_itemStateChanged: Dummy for the listener.
+' subLstBestItemChanged_disposing: Dummy for the listener.
 Sub subLstBestItemChanged_disposing (oEvent As object)
 End Sub
 
@@ -725,25 +739,31 @@ Sub subLstBestItemChanged_itemStateChanged (oEvent As object)
 			oCheckBox = oDialog.getControl ("cbxBest2")
 			oCheckBox.setLabel ("I'm just as impressed with its Defense.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 			oCheckBox = oDialog.getControl ("cbxBest3")
 			oCheckBox.setLabel ("I'm just as impressed with its HP.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 		End If
 		If oDialog.getControl ("lstBest").getSelectedItem = "Defense" Then
 			oCheckBox = oDialog.getControl ("cbxBest2")
 			oCheckBox.setLabel ("I'm just as impressed with its Attack.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 			oCheckBox = oDialog.getControl ("cbxBest3")
 			oCheckBox.setLabel ("I'm just as impressed with its HP.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 		End If
 		If oDialog.getControl ("lstBest").getSelectedItem = "HP" Then
 			oCheckBox = oDialog.getControl ("cbxBest2")
 			oCheckBox.setLabel ("I'm just as impressed with its Attack.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 			oCheckBox = oDialog.getControl ("cbxBest3")
 			oCheckBox.setLabel ("I'm just as impressed with its Defense.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 		End If
 	End If
 	If oDialog.getControl ("rdoTeamBlue").getState Then
@@ -751,25 +771,31 @@ Sub subLstBestItemChanged_itemStateChanged (oEvent As object)
 			oCheckBox = oDialog.getControl ("cbxBest2")
 			oCheckBox.setLabel ("It is matched equally by its Defense.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 			oCheckBox = oDialog.getControl ("cbxBest3")
 			oCheckBox.setLabel ("It is matched equally by its HP.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 		End If
 		If oDialog.getControl ("lstBest").getSelectedItem = "Defense" Then
 			oCheckBox = oDialog.getControl ("cbxBest2")
 			oCheckBox.setLabel ("It is matched equally by its Attack.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 			oCheckBox = oDialog.getControl ("cbxBest3")
 			oCheckBox.setLabel ("It is matched equally by its HP.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 		End If
 		If oDialog.getControl ("lstBest").getSelectedItem = "HP" Then
 			oCheckBox = oDialog.getControl ("cbxBest2")
 			oCheckBox.setLabel ("It is matched equally by its Attack.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 			oCheckBox = oDialog.getControl ("cbxBest3")
 			oCheckBox.setLabel ("It is matched equally by its Defense.")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 		End If
 	End If
 	If oDialog.getControl ("rdoTeamYellow").getState Then
@@ -785,17 +811,21 @@ Sub subLstBestItemChanged_itemStateChanged (oEvent As object)
 			oCheckBox = oDialog.getControl ("cbxBest2")
 			oCheckBox.setLabel ("Its Attack is great, too!")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 			oCheckBox = oDialog.getControl ("cbxBest3")
 			oCheckBox.setLabel ("Its HP is great, too!")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 		End If
 		If oDialog.getControl ("lstBest").getSelectedItem = "HP" Then
 			oCheckBox = oDialog.getControl ("cbxBest2")
 			oCheckBox.setLabel ("Its Attack is great, too!")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 			oCheckBox = oDialog.getControl ("cbxBest3")
 			oCheckBox.setLabel ("Its Defense is great, too!")
 			oCheckBox.setVisible (True)
+			oCheckBox.setState (0)
 		End If
 	End If
 End Sub

oxt/PokemonGoIV/DialogStrings_en_US.properties

@@ -0,0 +1,41 @@
+# Strings for Dialog Library PokemonGoIV
+2.DlgMain.HelpText=
+3.DlgMain.Title=Pok\u00c3\u00a9mon GO IV Calculator
+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\u00c3\u00a9mon is ~newly-caught and was not powered-up yet.
+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=

oxt/PokemonGoIV/DialogStrings_zh_TW.properties

@@ -0,0 +1,41 @@
+# 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.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=

oxt/PokemonGoIV/DlgMain.xdl

@@ -0,0 +1,269 @@
+<?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="188" dlg:top="92" dlg:width="220" dlg:height="185" dlg:help-text="&amp;2.DlgMain.HelpText" dlg:closeable="true" dlg:moveable="true" dlg:title="&amp;3.DlgMain.Title">
+ <dlg:styles>
+  <dlg:style dlg:style-id="0" dlg:background-color="0xff0000" dlg:text-color="0xffffff" dlg:font-weight="100"/>
+  <dlg:style dlg:style-id="1" dlg:background-color="0xff" dlg:text-color="0xffffff"/>
+  <dlg:style dlg:style-id="2" dlg:background-color="0xffff00"/>
+ </dlg:styles>
+ <dlg:bulletinboard>
+  <dlg:text dlg:id="txtPokemon" dlg:tab-index="16" dlg:left="5" dlg:top="6" dlg:width="30" dlg:height="8" dlg:help-text="&amp;22.DlgMain.txtPokemon.HelpText" dlg:value="&amp;23.DlgMain.txtPokemon.Label"/>
+  <dlg:menulist dlg:id="lstPokemon" dlg:tab-index="0" dlg:left="35" dlg:top="4" dlg:width="50" dlg:height="12" dlg:help-text="&amp;171.DlgMain.lstPokemon.HelpText" dlg:spin="true">
+   <dlg:menupopup>
+    <dlg:menuitem dlg:value="Bulbasaur"/>
+    <dlg:menuitem dlg:value="Ivysaur"/>
+    <dlg:menuitem dlg:value="Venusaur"/>
+    <dlg:menuitem dlg:value="Charmander"/>
+    <dlg:menuitem dlg:value="Charmeleon"/>
+    <dlg:menuitem dlg:value="Charizard"/>
+    <dlg:menuitem dlg:value="Squirtle"/>
+    <dlg:menuitem dlg:value="Wartortle"/>
+    <dlg:menuitem dlg:value="Blastoise"/>
+    <dlg:menuitem dlg:value="Caterpie"/>
+    <dlg:menuitem dlg:value="Metapod"/>
+    <dlg:menuitem dlg:value="Butterfree"/>
+    <dlg:menuitem dlg:value="Weedle"/>
+    <dlg:menuitem dlg:value="Kakuna"/>
+    <dlg:menuitem dlg:value="Beedrill"/>
+    <dlg:menuitem dlg:value="Pidgey"/>
+    <dlg:menuitem dlg:value="Pidgeotto"/>
+    <dlg:menuitem dlg:value="Pidgeot"/>
+    <dlg:menuitem dlg:value="Rattata"/>
+    <dlg:menuitem dlg:value="Raticate"/>
+    <dlg:menuitem dlg:value="Spearow"/>
+    <dlg:menuitem dlg:value="Fearow"/>
+    <dlg:menuitem dlg:value="Ekans"/>
+    <dlg:menuitem dlg:value="Arbok"/>
+    <dlg:menuitem dlg:value="Pikachu"/>
+    <dlg:menuitem dlg:value="Raichu"/>
+    <dlg:menuitem dlg:value="Sandshrew"/>
+    <dlg:menuitem dlg:value="Sandslash"/>
+    <dlg:menuitem dlg:value="Nidoran♀"/>
+    <dlg:menuitem dlg:value="Nidorina"/>
+    <dlg:menuitem dlg:value="Nidoqueen"/>
+    <dlg:menuitem dlg:value="Nidoran♂"/>
+    <dlg:menuitem dlg:value="Nidorino"/>
+    <dlg:menuitem dlg:value="Nidoking"/>
+    <dlg:menuitem dlg:value="Clefairy"/>
+    <dlg:menuitem dlg:value="Clefable"/>
+    <dlg:menuitem dlg:value="Vulpix"/>
+    <dlg:menuitem dlg:value="Ninetales"/>
+    <dlg:menuitem dlg:value="Jigglypuff"/>
+    <dlg:menuitem dlg:value="Wigglytuff"/>
+    <dlg:menuitem dlg:value="Zubat"/>
+    <dlg:menuitem dlg:value="Golbat"/>
+    <dlg:menuitem dlg:value="Oddish"/>
+    <dlg:menuitem dlg:value="Gloom"/>
+    <dlg:menuitem dlg:value="Vileplume"/>
+    <dlg:menuitem dlg:value="Paras"/>
+    <dlg:menuitem dlg:value="Parasect"/>
+    <dlg:menuitem dlg:value="Venonat"/>
+    <dlg:menuitem dlg:value="Venomoth"/>
+    <dlg:menuitem dlg:value="Diglett"/>
+    <dlg:menuitem dlg:value="Dugtrio"/>
+    <dlg:menuitem dlg:value="Meowth"/>
+    <dlg:menuitem dlg:value="Persian"/>
+    <dlg:menuitem dlg:value="Psyduck"/>
+    <dlg:menuitem dlg:value="Golduck"/>
+    <dlg:menuitem dlg:value="Mankey"/>
+    <dlg:menuitem dlg:value="Primeape"/>
+    <dlg:menuitem dlg:value="Growlithe"/>
+    <dlg:menuitem dlg:value="Arcanine"/>
+    <dlg:menuitem dlg:value="Poliwag"/>
+    <dlg:menuitem dlg:value="Poliwhirl"/>
+    <dlg:menuitem dlg:value="Poliwrath"/>
+    <dlg:menuitem dlg:value="Abra"/>
+    <dlg:menuitem dlg:value="Kadabra"/>
+    <dlg:menuitem dlg:value="Alakazam"/>
+    <dlg:menuitem dlg:value="Machop"/>
+    <dlg:menuitem dlg:value="Machoke"/>
+    <dlg:menuitem dlg:value="Machamp"/>
+    <dlg:menuitem dlg:value="Bellsprout"/>
+    <dlg:menuitem dlg:value="Weepinbell"/>
+    <dlg:menuitem dlg:value="Victreebel"/>
+    <dlg:menuitem dlg:value="Tentacool"/>
+    <dlg:menuitem dlg:value="Tentacruel"/>
+    <dlg:menuitem dlg:value="Geodude"/>
+    <dlg:menuitem dlg:value="Graveler"/>
+    <dlg:menuitem dlg:value="Golem"/>
+    <dlg:menuitem dlg:value="Ponyta"/>
+    <dlg:menuitem dlg:value="Rapidash"/>
+    <dlg:menuitem dlg:value="Slowpoke"/>
+    <dlg:menuitem dlg:value="Slowbro"/>
+    <dlg:menuitem dlg:value="Magnemite"/>
+    <dlg:menuitem dlg:value="Magneton"/>
+    <dlg:menuitem dlg:value="Farfetch&apos;d"/>
+    <dlg:menuitem dlg:value="Doduo"/>
+    <dlg:menuitem dlg:value="Dodrio"/>
+    <dlg:menuitem dlg:value="Seel"/>
+    <dlg:menuitem dlg:value="Dewgong"/>
+    <dlg:menuitem dlg:value="Grimer"/>
+    <dlg:menuitem dlg:value="Muk"/>
+    <dlg:menuitem dlg:value="Shellder"/>
+    <dlg:menuitem dlg:value="Cloyster"/>
+    <dlg:menuitem dlg:value="Gastly"/>
+    <dlg:menuitem dlg:value="Haunter"/>
+    <dlg:menuitem dlg:value="Gengar"/>
+    <dlg:menuitem dlg:value="Onix"/>
+    <dlg:menuitem dlg:value="Drowzee"/>
+    <dlg:menuitem dlg:value="Hypno"/>
+    <dlg:menuitem dlg:value="Krabby"/>
+    <dlg:menuitem dlg:value="Kingler"/>
+    <dlg:menuitem dlg:value="Voltorb"/>
+    <dlg:menuitem dlg:value="Electrode"/>
+    <dlg:menuitem dlg:value="Exeggcute"/>
+    <dlg:menuitem dlg:value="Exeggutor"/>
+    <dlg:menuitem dlg:value="Cubone"/>
+    <dlg:menuitem dlg:value="Marowak"/>
+    <dlg:menuitem dlg:value="Hitmonlee"/>
+    <dlg:menuitem dlg:value="Hitmonchan"/>
+    <dlg:menuitem dlg:value="Lickitung"/>
+    <dlg:menuitem dlg:value="Koffing"/>
+    <dlg:menuitem dlg:value="Weezing"/>
+    <dlg:menuitem dlg:value="Rhyhorn"/>
+    <dlg:menuitem dlg:value="Rhydon"/>
+    <dlg:menuitem dlg:value="Chansey"/>
+    <dlg:menuitem dlg:value="Tangela"/>
+    <dlg:menuitem dlg:value="Kangaskhan"/>
+    <dlg:menuitem dlg:value="Horsea"/>
+    <dlg:menuitem dlg:value="Seadra"/>
+    <dlg:menuitem dlg:value="Goldeen"/>
+    <dlg:menuitem dlg:value="Seaking"/>
+    <dlg:menuitem dlg:value="Staryu"/>
+    <dlg:menuitem dlg:value="Starmie"/>
+    <dlg:menuitem dlg:value="Mr."/>
+    <dlg:menuitem dlg:value="Mime"/>
+    <dlg:menuitem dlg:value="Scyther"/>
+    <dlg:menuitem dlg:value="Jynx"/>
+    <dlg:menuitem dlg:value="Electabuzz"/>
+    <dlg:menuitem dlg:value="Magmar"/>
+    <dlg:menuitem dlg:value="Pinsir"/>
+    <dlg:menuitem dlg:value="Tauros"/>
+    <dlg:menuitem dlg:value="Magikarp"/>
+    <dlg:menuitem dlg:value="Gyarados"/>
+    <dlg:menuitem dlg:value="Lapras"/>
+    <dlg:menuitem dlg:value="Ditto"/>
+    <dlg:menuitem dlg:value="Eevee"/>
+    <dlg:menuitem dlg:value="Vaporeon"/>
+    <dlg:menuitem dlg:value="Jolteon"/>
+    <dlg:menuitem dlg:value="Flareon"/>
+    <dlg:menuitem dlg:value="Porygon"/>
+    <dlg:menuitem dlg:value="Omanyte"/>
+    <dlg:menuitem dlg:value="Omastar"/>
+    <dlg:menuitem dlg:value="Kabuto"/>
+    <dlg:menuitem dlg:value="Kabutops"/>
+    <dlg:menuitem dlg:value="Aerodactyl"/>
+    <dlg:menuitem dlg:value="Snorlax"/>
+    <dlg:menuitem dlg:value="Articuno"/>
+    <dlg:menuitem dlg:value="Zapdos"/>
+    <dlg:menuitem dlg:value="Moltres"/>
+    <dlg:menuitem dlg:value="Dratini"/>
+    <dlg:menuitem dlg:value="Dragonair"/>
+    <dlg:menuitem dlg:value="Dragonite"/>
+    <dlg:menuitem dlg:value="Mewtwo"/>
+    <dlg:menuitem dlg:value="Mew"/>
+   </dlg:menupopup>
+  </dlg:menulist>
+  <dlg:text dlg:id="txtCP" dlg:tab-index="17" dlg:left="5" dlg:top="21" dlg:width="15" dlg:height="8" dlg:help-text="&amp;26.DlgMain.txtCP.HelpText" dlg:value="&amp;27.DlgMain.txtCP.Label"/>
+  <dlg:numericfield dlg:id="numCP" dlg:tab-index="1" dlg:left="20" dlg:top="19" 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:text dlg:id="txtHP" dlg:tab-index="18" dlg:left="50" dlg:top="21" dlg:width="15" dlg:height="8" dlg:help-text="&amp;29.DlgMain.txtHP.HelpText" dlg:value="&amp;30.DlgMain.txtHP.Label"/>
+  <dlg:numericfield dlg:id="numHP" dlg:tab-index="2" dlg:left="65" dlg:top="19" 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:text dlg:id="txtStarDust" dlg:tab-index="19" dlg:left="90" dlg:top="21" dlg:width="30" dlg:height="8" dlg:help-text="&amp;32.DlgMain.txtStarDust.HelpText" dlg:value="&amp;33.DlgMain.txtStarDust.Label"/>
+  <dlg:menulist dlg:id="lstStarDust" dlg:tab-index="3" dlg:left="120" dlg:top="19" dlg:width="30" dlg:height="12" dlg:help-text="&amp;162.DlgMain.lstStarDust.HelpText" dlg:spin="true">
+   <dlg:menupopup>
+    <dlg:menuitem dlg:value="200"/>
+    <dlg:menuitem dlg:value="400"/>
+    <dlg:menuitem dlg:value="600"/>
+    <dlg:menuitem dlg:value="800"/>
+    <dlg:menuitem dlg:value="1000"/>
+    <dlg:menuitem dlg:value="1300"/>
+    <dlg:menuitem dlg:value="1600"/>
+    <dlg:menuitem dlg:value="1900"/>
+    <dlg:menuitem dlg:value="2200"/>
+    <dlg:menuitem dlg:value="2500"/>
+    <dlg:menuitem dlg:value="3000"/>
+    <dlg:menuitem dlg:value="3500"/>
+    <dlg:menuitem dlg:value="4000"/>
+    <dlg:menuitem dlg:value="4500"/>
+    <dlg:menuitem dlg:value="5000"/>
+    <dlg:menuitem dlg:value="6000"/>
+    <dlg:menuitem dlg:value="7000"/>
+    <dlg:menuitem dlg:value="8000"/>
+    <dlg:menuitem dlg:value="9000"/>
+    <dlg:menuitem dlg:value="10000"/>
+   </dlg:menupopup>
+  </dlg:menulist>
+  <dlg:text dlg:id="txtPlayerLevel" dlg:tab-index="20" dlg:left="160" dlg:top="21" dlg:width="35" dlg:height="8" dlg:help-text="&amp;40.DlgMain.txtPlayerLevel.HelpText" dlg:value="&amp;41.DlgMain.txtPlayerLevel.Label"/>
+  <dlg:menulist dlg:id="lstPlayerLevel" dlg:tab-index="4" dlg:left="195" dlg:top="19" dlg:width="20" dlg:height="12" dlg:help-text="&amp;163.DlgMain.lstPlayerLevel.HelpText" dlg:spin="true">
+   <dlg:menupopup>
+    <dlg:menuitem dlg:value="1"/>
+    <dlg:menuitem dlg:value="2"/>
+    <dlg:menuitem dlg:value="3"/>
+    <dlg:menuitem dlg:value="4"/>
+    <dlg:menuitem dlg:value="5"/>
+    <dlg:menuitem dlg:value="6"/>
+    <dlg:menuitem dlg:value="7"/>
+    <dlg:menuitem dlg:value="8"/>
+    <dlg:menuitem dlg:value="9"/>
+    <dlg:menuitem dlg:value="10"/>
+    <dlg:menuitem dlg:value="11"/>
+    <dlg:menuitem dlg:value="12"/>
+    <dlg:menuitem dlg:value="13"/>
+    <dlg:menuitem dlg:value="14"/>
+    <dlg:menuitem dlg:value="15"/>
+    <dlg:menuitem dlg:value="16"/>
+    <dlg:menuitem dlg:value="17"/>
+    <dlg:menuitem dlg:value="18"/>
+    <dlg:menuitem dlg:value="19"/>
+    <dlg:menuitem dlg:value="20"/>
+    <dlg:menuitem dlg:value="21"/>
+    <dlg:menuitem dlg:value="22"/>
+    <dlg:menuitem dlg:value="23"/>
+    <dlg:menuitem dlg:value="24"/>
+    <dlg:menuitem dlg:value="25"/>
+    <dlg:menuitem dlg:value="26"/>
+    <dlg:menuitem dlg:value="27"/>
+    <dlg:menuitem dlg:value="28"/>
+    <dlg:menuitem dlg:value="29"/>
+    <dlg:menuitem dlg:value="30"/>
+    <dlg:menuitem dlg:value="31"/>
+    <dlg:menuitem dlg:value="32"/>
+    <dlg:menuitem dlg:value="33"/>
+    <dlg:menuitem dlg:value="34"/>
+    <dlg:menuitem dlg:value="35"/>
+    <dlg:menuitem dlg:value="36"/>
+    <dlg:menuitem dlg:value="37"/>
+    <dlg:menuitem dlg:value="38"/>
+    <dlg:menuitem dlg:value="39"/>
+    <dlg:menuitem dlg:value="40"/>
+   </dlg:menupopup>
+  </dlg:menulist>
+  <dlg:checkbox dlg:id="cbxIsNew" dlg:tab-index="5" dlg:left="5" dlg:top="36" 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:titledbox dlg:id="grpApprasals" dlg:tab-index="21" dlg:left="5" dlg:top="50" dlg:width="210" dlg:height="110" dlg:help-text="&amp;50.DlgMain.grpApprasals.HelpText">
+   <dlg:title dlg:value="&amp;51.DlgMain.grpApprasals.Label"/>
+  </dlg:titledbox>
+  <dlg:text dlg:id="txtTeam" dlg:tab-index="22" dlg:left="10" dlg:top="66" dlg:width="20" dlg:height="8" dlg:help-text="&amp;180.DlgMain.txtTeam.HelpText" dlg:value="&amp;181.DlgMain.txtTeam.Label"/>
+  <dlg:radiogroup>
+   <dlg:radio dlg:style-id="0" dlg:id="rdoTeamRed" dlg:tab-index="6" dlg:left="30" dlg:top="66" dlg:width="25" dlg:height="8" dlg:help-text="&amp;182.DlgMain.rdoTeamRed.HelpText" 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"/>
+   </dlg:radio>
+   <dlg:radio dlg:style-id="1" dlg:id="rdoTeamBlue" dlg:tab-index="7" dlg:left="60" dlg:top="66" dlg:width="30" dlg:height="8" dlg:help-text="&amp;184.DlgMain.rdoTeamBlue.HelpText" 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"/>
+   </dlg:radio>
+   <dlg:radio dlg:style-id="2" dlg:id="rdoTeamYellow" dlg:tab-index="8" dlg:left="95" dlg:top="66" dlg:width="30" dlg:height="8" dlg:help-text="&amp;186.DlgMain.rdoTeamYellow.HelpText" 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"/>
+   </dlg:radio>
+  </dlg:radiogroup>
+  <dlg:menulist dlg:id="lstApprasal1" dlg:tab-index="9" dlg:left="10" dlg:top="79" dlg:width="200" dlg:height="12" dlg:help-text="&amp;164.DlgMain.lstApprasal1.HelpText" dlg:spin="true"/>
+  <dlg:text dlg:id="txtBestBefore" dlg:tab-index="23" dlg:left="10" dlg:top="96" dlg:width="20" dlg:height="8" dlg:help-text="&amp;194.DlgMain.txtBestBefore.HelpText"/>
+  <dlg:menulist dlg:id="lstBest" dlg:tab-index="10" dlg:left="30" dlg:top="94" dlg:width="35" dlg:height="12" dlg:help-text="&amp;193.DlgMain.lstBest.HelpText" 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"/>
+  </dlg:menulist>
+  <dlg:text dlg:id="txtBestAfter" dlg:tab-index="24" dlg:left="65" dlg:top="96" dlg:width="100" dlg:height="8" dlg:help-text="&amp;195.DlgMain.txtBestAfter.HelpText"/>
+  <dlg:checkbox dlg:id="cbxBest2" dlg:tab-index="11" dlg:left="10" dlg:top="111" dlg:width="200" dlg:height="8" dlg:help-text="&amp;201.DlgMain.cbxBest2.HelpText" dlg:checked="false"/>
+  <dlg:checkbox dlg:id="cbxBest3" dlg:tab-index="12" dlg:left="10" dlg:top="126" dlg:width="200" dlg:height="8" dlg:help-text="&amp;203.DlgMain.cbxBest3.HelpText" dlg:checked="false"/>
+  <dlg:menulist dlg:id="lstApprasal2" dlg:tab-index="13" dlg:left="10" dlg:top="139" dlg:width="200" dlg:height="12" dlg:help-text="&amp;165.DlgMain.lstApprasal2.HelpText" dlg:spin="true"/>
+  <dlg:button dlg:id="btnOK" dlg:tab-index="14" dlg:left="35" dlg:top="165" 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="btnCancel" dlg:tab-index="15" dlg:left="125" dlg:top="165" dlg:width="60" dlg:height="15" dlg:help-text="&amp;87.DlgMain.btnCancel.HelpText" dlg:button-type="cancel"/>
+ </dlg:bulletinboard>
+</dlg:window>

oxt/PokemonGoIV/dialog.xlb

@@ -1,3 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd">
-<library:library xmlns:library="http://openoffice.org/2000/library" library:name="PokemonGoIV" library:readonly="false" library:passwordprotected="false"/>
+<library:library xmlns:library="http://openoffice.org/2000/library" library:name="PokemonGoIV" library:readonly="false" library:passwordprotected="false">
+ <library:element library:name="DlgMain"/>
+</library:library>