X-Git-Url: https://sfsrealm.hopto.org/projects/gitweb.cgi?a=blobdiff_plain;f=frmMpq.frm;h=ae3ba78ccb67ac1d9a80a2b1277f2b79d77050f7;hb=4f46372bce0a79844805fe4e09d962c547b83f9c;hp=95384d56621d25d94b7c2abea60f807721888946;hpb=62046253535cb1df0280f7e331d2f76b0fbf2d17;p=WinMPQ.git diff --git a/frmMpq.frm b/frmMpq.frm index 95384d5..ae3ba78 100644 --- a/frmMpq.frm +++ b/frmMpq.frm @@ -97,7 +97,7 @@ Dim MpqHeader As Long, IsEXE As Boolean, FileDialog As OPENFILENAME Private Sub cmdAdd_Click() Dim OldFileName As String, NewMpqHeader As Long, fNum As Long, Text As String, fNum2 As Long, Text2 As String, bNum As Long FileDialog.Flags = &H1000 Or &H4 Or &H2 -FileDialog.Filter = "Mpq Archives (*.mpq;*.exe;*.snp;*.scm;*.scx)|*.mpq;*.exe;*.snp;*.scm;*.scx|All Files (*.*)|*.*" +FileDialog.Filter = "Mpq Archives (*.mpq;*.exe;*.snp;*.scm;*.scx;*.w3m;*.w3x)|*.mpq;*.exe;*.snp;*.scm;*.scx;*.w3m;*.w3x|All Files (*.*)|*.*" OldFileName = FileDialog.FileName FileDialog.hwndOwner = hWnd If ShowOpen(FileDialog) = False Then GoTo Cancel