From 4fb5e10aae202d10aad8d1c97a312668f08d01f8 Mon Sep 17 00:00:00 2001 From: ImminentFate Date: Mon, 16 Oct 2017 22:44:53 +1000 Subject: [PATCH] Accidentally broke the compact command in the last patch - it's fixed now. --- WindowsApp1/Compact.Designer.vb | 2 +- WindowsApp1/Compact.vb | 4 ++-- WindowsApp1/My Project/AssemblyInfo.vb | 4 ++-- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/WindowsApp1/Compact.Designer.vb b/WindowsApp1/Compact.Designer.vb index 3de19f4..cc063fc 100644 --- a/WindowsApp1/Compact.Designer.vb +++ b/WindowsApp1/Compact.Designer.vb @@ -255,7 +255,7 @@ Partial Class Compact ' Me.showinfopopup.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.showinfopopup.AutoSize = True - Me.showinfopopup.ForeColor = System.Drawing.SystemColors.ControlDark + Me.showinfopopup.ForeColor = System.Drawing.Color.DarkGray Me.showinfopopup.Location = New System.Drawing.Point(439, 33) Me.showinfopopup.Name = "showinfopopup" Me.showinfopopup.Size = New System.Drawing.Size(25, 13) diff --git a/WindowsApp1/Compact.vb b/WindowsApp1/Compact.vb index 6a5352b..5f4d3bb 100644 --- a/WindowsApp1/Compact.vb +++ b/WindowsApp1/Compact.vb @@ -5,7 +5,7 @@ Imports System.Text.RegularExpressions Imports Ookii.Dialogs 'Uses Ookii Dialogs for the non-archaic filebrowser dialog. http://www.ookii.org/Software/Dialogs Public Class Compact - Dim version = "1.3.5" + Dim version = "1.3.5.1" Private WithEvents MyProcess As Process Private Delegate Sub AppendOutputTextDelegate(ByVal text As String) @@ -361,7 +361,7 @@ Public Class Compact Try - MyProcess.StandardInput.WriteLine("cd " + workingDir) + MyProcess.StandardInput.WriteLine("cd /d " + workingDir) MyProcess.StandardInput.Flush() MyProcess.StandardInput.WriteLine("") 'Required for the embedded console to show the next line in the buffer after the 'cd' command. No idea why diff --git a/WindowsApp1/My Project/AssemblyInfo.vb b/WindowsApp1/My Project/AssemblyInfo.vb index 5ddde44..1eb60b8 100644 --- a/WindowsApp1/My Project/AssemblyInfo.vb +++ b/WindowsApp1/My Project/AssemblyInfo.vb @@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices ' by using the '*' as shown below: ' - - + +