From e3b81af025a9ff6191bfbe0b79848c625816225d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E4=BE=9D=E7=91=AA=E8=B2=93?= <imacat@mail.imacat.idv.tw>
Date: Tue, 6 Dec 2016 07:34:41 +0800
Subject: [PATCH] Fixed to load the dialog library before creating the dialog. 
 Advanced the version number to 0.1.1.

---
 PokemonGoIV/0Main.vb      | 1 +
 VERSION                   | 2 +-
 oxt/PokemonGoIV/0Main.xba | 5 +++++
 3 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/PokemonGoIV/0Main.vb b/PokemonGoIV/0Main.vb
index 2ff2d25..6214687 100644
--- a/PokemonGoIV/0Main.vb
+++ b/PokemonGoIV/0Main.vb
@@ -83,6 +83,7 @@ Function fnAskParam As aFindIVParam
 	Dim bIsBestHP As Boolean
 	Dim aQuery As New aFindIVParam
 	
+	DialogLibraries.loadLibrary "PokemonGoIV"
 	oDialog = CreateUnoDialog (DialogLibraries.PokemonGoIV.DlgMain)
 	oDialog.getControl ("lstApprasal1").setVisible (False)
 	oDialog.getControl ("txtBestBefore").setVisible (False)
diff --git a/VERSION b/VERSION
index 6e8bf73..17e51c3 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-0.1.0
+0.1.1
diff --git a/oxt/PokemonGoIV/0Main.xba b/oxt/PokemonGoIV/0Main.xba
index 8d558e9..39a7be5 100644
--- a/oxt/PokemonGoIV/0Main.xba
+++ b/oxt/PokemonGoIV/0Main.xba
@@ -85,6 +85,7 @@ Function fnAskParam As aFindIVParam
 	Dim bIsBestHP As Boolean
 	Dim aQuery As New aFindIVParam
 	
+	DialogLibraries.loadLibrary &quot;PokemonGoIV&quot;
 	oDialog = CreateUnoDialog (DialogLibraries.PokemonGoIV.DlgMain)
 	oDialog.getControl (&quot;lstApprasal1&quot;).setVisible (False)
 	oDialog.getControl (&quot;txtBestBefore&quot;).setVisible (False)
@@ -115,6 +116,7 @@ Function fnAskParam As aFindIVParam
 	Else
 		aQuery.bIsNew = False
 	End If
+	
 	&apos; The best stats
 	bIsBestAttack = False
 	bIsBestDefense = False
@@ -156,6 +158,7 @@ Function fnAskParam As aFindIVParam
 	If bIsBestHP Then
 		aQuery.sBest = aQuery.sBest &amp; &quot;Sta &quot;
 	End If
+	
 	fnAskParam = aQuery
 End Function
 
@@ -507,6 +510,7 @@ Function fnAskParam0 As aFindIVParam
 	Else
 		aQuery.bIsNew = False
 	End If
+	
 	&apos; The best stats
 	bIsBestAttack = False
 	bIsBestDefense = False
@@ -548,6 +552,7 @@ Function fnAskParam0 As aFindIVParam
 	If bIsBestHP Then
 		aQuery.sBest = aQuery.sBest &amp; &quot;Sta &quot;
 	End If
+	
 	fnAskParam0 = aQuery
 End Function