Bugfix: target window

WordCat.vbp

@@ -20,7 +20,7 @@ HelpContextID="0"
 CompatibleMode="0"
 MajorVer=0
 MinorVer=9
-RevisionVer=8
+RevisionVer=9
 AutoIncrementVer=0
 ServerSupportFiles=0
 VersionComments="This program is free software: you can redistribute it and/or modify  it under the terms of the GNU General Public License as published by  the Free Software Foundation, either version 3 of the License, or  (at your option) any later version.    This program is distributed in the hope that it will be useful,  but WITHOUT ANY WARRANTY; without even the implied warranty of  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more details.    You should have received a copy of the GNU General Public License  along with this program. If not, see <http://www.gnu.org/licenses/>.  "

WordCat.vbw

@@ -1,6 +1,6 @@
-frmMain = 44, 58, 867, 488, C, 22, 29, 845, 459, C
-Prog = 66, 87, 889, 517, Z
-frmTarget = 154, 203, 977, 633, , 22, 29, 845, 459, C
+frmMain = 44, 58, 867, 488, , 22, 29, 845, 459, C
+Prog = 66, 87, 889, 517, 
+frmTarget = 154, 203, 977, 633, Z, 22, 29, 845, 459, C
 clsEnumFiles = 66, 87, 889, 517, 
 BrowseFolder = 44, 58, 867, 488, C
 Theme = 44, 58, 867, 488, C

frmTarget.frm

@@ -4,12 +4,12 @@ Begin VB.Form frmTarget
    ClientHeight    =   780
    ClientLeft      =   45
    ClientTop       =   315
-   ClientWidth     =   7455
+   ClientWidth     =   6975
    LinkTopic       =   "Form1"
    MaxButton       =   0   'False
    MinButton       =   0   'False
    ScaleHeight     =   780
-   ScaleWidth      =   7455
+   ScaleWidth      =   6975
    ShowInTaskbar   =   0   'False
    StartUpPosition =   1  'CenterOwner
    Begin VB.ComboBox cmbTpl 
@@ -18,13 +18,13 @@ Begin VB.Form frmTarget
       Style           =   2  'Dropdown List
       TabIndex        =   1
       Top             =   420
-      Width           =   5655
+      Width           =   5175
    End
    Begin VB.CommandButton cmdOk 
       Caption         =   "OPEN"
       Enabled         =   0   'False
       Height          =   315
-      Left            =   6600
+      Left            =   6120
       TabIndex        =   2
       Top             =   420
       Width           =   795
@@ -91,6 +91,7 @@ Private Sub Form_Activate()
  Me.Caption = Tr.Translate("Target directory", True)
  Me.txtTarget.Text = Prog.Target
  CheckTarget Me.txtTarget.Text
+ PressedOK = False
 End Sub
 
 

setup/setup.iss

@@ -1,6 +1,6 @@
 [Setup]
 AppName=WordCat
-AppVerName=WordCat v0.9 r8
+AppVerName=WordCat v0.9 r9
 DefaultDirName={pf}\WordCat
 DefaultGroupName=WordCat
 VersionInfoCopyright=by Guillaume HUYSMANS, 2013