FIX: freeze when trying to save tfkiss settings. #5

Author: andreaspeters

CHANGELOG.md

@@ -5,6 +5,7 @@
 - ADD: Wayland support
 - ADD: Dock Convers window at the Main Window.
 - CHANGE: special aprsmap pipe mechanism to the PR-Modem pipes of FP.
+- FIX: freeze when trying to save tfkiss settings. #5
 
 ## v0.8.0
 

src/flexpacket.lpi

@@ -23,7 +23,7 @@
       <UseVersionInfo Value="True"/>
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="8"/>
-      <BuildNr Value="2611"/>
+      <BuildNr Value="2615"/>
       <Language Value="0C0C"/>
       <StringTable InternalName="flexpacket" ProductName="flexpacket" ProductVersion="0.8.0"/>
     </VersionInfo>

src/flexpacket.lps

@@ -21,8 +21,8 @@
         <UnitName Value="UMain"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="15"/>
-        <TopLine Value="1301"/>
-        <CursorPos X="40" Y="1314"/>
+        <TopLine Value="643"/>
+        <CursorPos X="11" Y="650"/>
         <UsageCount Value="210"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -31,8 +31,8 @@
         <Filename Value="uhostmode.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="9"/>
-        <TopLine Value="141"/>
-        <CursorPos X="11" Y="156"/>
+        <TopLine Value="505"/>
+        <CursorPos X="5" Y="526"/>
         <UsageCount Value="214"/>
         <Loaded Value="True"/>
       </Unit>
@@ -54,6 +54,7 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <EditorIndex Value="18"/>
+        <TopLine Value="43"/>
         <CursorPos X="11"/>
         <UsageCount Value="220"/>
         <Loaded Value="True"/>
@@ -63,8 +64,8 @@
         <Filename Value="utypes.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="19"/>
-        <TopLine Value="31"/>
-        <CursorPos X="21" Y="58"/>
+        <TopLine Value="167"/>
+        <CursorPos X="3" Y="171"/>
         <UsageCount Value="357"/>
         <Loaded Value="True"/>
       </Unit>
@@ -277,30 +278,6 @@
       </Unit>
     </Units>
     <JumpHistory HistoryIndex="29">
-      <Position>
-        <Filename Value="umain.pas"/>
-        <Caret Line="492" Column="39" TopLine="479"/>
-      </Position>
-      <Position>
-        <Filename Value="umain.pas"/>
-        <Caret Line="1531" Column="20" TopLine="1518"/>
-      </Position>
-      <Position>
-        <Filename Value="umain.pas"/>
-        <Caret Line="1545" Column="27" TopLine="1531"/>
-      </Position>
-      <Position>
-        <Filename Value="umain.pas"/>
-        <Caret Line="1603" Column="16" TopLine="1590"/>
-      </Position>
-      <Position>
-        <Filename Value="umain.pas"/>
-        <Caret Line="1621" Column="26" TopLine="1608"/>
-      </Position>
-      <Position>
-        <Filename Value="umain.pas"/>
-        <Caret Line="1713" Column="48" TopLine="1697"/>
-      </Position>
       <Position>
         <Filename Value="umain.pas"/>
         <Caret Line="491" Column="34" TopLine="478"/>
@@ -397,6 +374,30 @@
         <Filename Value="uinfo.pas"/>
         <Caret Line="50" TopLine="36"/>
       </Position>
+      <Position>
+        <Filename Value="umain.pas"/>
+        <Caret Line="1314" Column="40" TopLine="1302"/>
+      </Position>
+      <Position>
+        <Filename Value="umain.pas"/>
+        <Caret Line="1724" TopLine="1717"/>
+      </Position>
+      <Position>
+        <Filename Value="umain.pas"/>
+        <Caret Line="1085" TopLine="1079"/>
+      </Position>
+      <Position>
+        <Filename Value="umain.pas"/>
+        <Caret Line="753" Column="17" TopLine="746"/>
+      </Position>
+      <Position>
+        <Filename Value="utypes.pas"/>
+        <Caret Line="126" Column="18" TopLine="112"/>
+      </Position>
+      <Position>
+        <Filename Value="umain.pas"/>
+        <Caret Line="753" Column="17" TopLine="746"/>
+      </Position>
     </JumpHistory>
     <RunParams>
       <FormatVersion Value="2"/>

src/flexpacket.res

@@ -653,7 +653,7 @@ procedure TFMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
   except
   end;
 
-  if MIEnableTNC.Checked and Assigned(Hostmode) then
+  if FPConfig.EnableTNC and Assigned(Hostmode) then
   begin
     Hostmode.Terminate;
     Hostmode.WaitFor;
@@ -747,7 +747,7 @@ procedure TFMain.EnableKISSClick(Sender: TObject);
 begin
   FPConfig.EnableTNC := False;
   FPConfig.EnableAGW := False;
-  FPCOnfig.EnableKISS := True;
+  FPConfig.EnableKISS := True;
   SaveConfigToFile(@FPConfig);
   if MessageDlg('To apply the configuration, we have to restart FlexPacket.', mtConfirmation, [mbCancel, mbOk], 0) = mrOk then
     RestartApplication;
@@ -1080,6 +1080,10 @@ procedure TFMain.actFileUploadClick(Sender: TObject);
 procedure TFMain.TBMapClick(Sender: TObject);
 var run: TProcess;
 begin
+  // Set Monitoring Mode
+  if MIEnableTNC.Checked or MIEnableKISS.Checked  then
+    SendStringCommand(0,1,'M USIC');
+
   actSetExternalMode.Checked := True;
   ExternalMode := True;
   miSetExternalMode.Checked := True;
@@ -1718,6 +1722,9 @@ procedure TFMain.actOpenConversExecute(Sender: TObject);
 
 procedure TFMain.actSetExternalModeExecute(Sender: TObject);
 begin
+  // Set Monitoring Mode
+  if MIEnableTNC.Checked or MIEnableKISS.Checked  then
+    SendStringCommand(0,1,'M USIC');
   if actSetExternalMode.Checked then
   begin
     actSetExternalMode.Checked := False;