v0.2 + Improved startup sshuttle.service

Author: AKotov-dev

sshuttle-gui/all/etc/systemd/system/sshuttle.service

@@ -1,5 +1,6 @@
 [Unit]
 Description=sshuttle
+Wants=network-online.target
 After=network.target
 
 [Service]

sshuttle-gui/backup/sshuttle_gui.lpr

@@ -5,9 +5,9 @@
 uses
  {$IFDEF UNIX}
   cthreads,
-   {$ENDIF} {$IFDEF HASAMIGA}
+    {$ENDIF} {$IFDEF HASAMIGA}
   athreads,
-   {$ENDIF}
+    {$ENDIF}
   Interfaces, // this includes the LCL widgetset
   Forms,
   Unit1,
@@ -17,8 +17,8 @@
 
 begin
   RequireDerivedFormResource := True;
-  Application.Title:='SShuttle-GUI v0.1';
-  Application.Scaled:=True;
+  Application.Title := 'SShuttle-GUI v0.1';
+  Application.Scaled := True;
   Application.Initialize;
   Application.CreateForm(TMainForm, MainForm);
   Application.Run;

sshuttle-gui/backup/sshuttle_gui.lps

@@ -51,7 +51,7 @@
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
         <TopLine Value="144"/>
-        <CursorPos X="30" Y="148"/>
+        <CursorPos X="29" Y="146"/>
         <UsageCount Value="37"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

sshuttle-gui/backup/unit1.pas

@@ -143,7 +143,7 @@ procedure TMainForm.AutoStartBoxChange(Sender: TObject);
 
 procedure TMainForm.FormShow(Sender: TObject);
 begin
-  IniPropStorage1.Restore;
+  //IniPropStorage1.Restore;
 
   //Высота/Ширина формы (Auto)
   MainForm.Height := ClearBox.Top + ClearBox.Height + StaticText1.Height + 5;

sshuttle-gui/lib/x86_64-linux/sshuttle_gui.o

@@ -1,10 +1,10 @@
 object MainForm: TMainForm
-  Left = 263
-  Height = 175
-  Top = 126
+  Left = 287
+  Height = 189
+  Top = 125
   Width = 531
   Caption = 'SShuttle-GUI'
-  ClientHeight = 175
+  ClientHeight = 189
   ClientWidth = 531
   OnCreate = FormCreate
   OnShow = FormShow
@@ -87,7 +87,7 @@ object MainForm: TMainForm
     AnchorSideRight.Side = asrBottom
     Left = 283
     Height = 32
-    Top = 134
+    Top = 135
     Width = 242
     Anchors = [akTop, akRight]
     BorderSpacing.Right = 6
@@ -134,7 +134,7 @@ object MainForm: TMainForm
   object StaticText1: TStaticText
     Left = 0
     Height = 20
-    Top = 155
+    Top = 169
     Width = 531
     Align = alBottom
     BorderStyle = sbsSingle
@@ -205,9 +205,9 @@ object MainForm: TMainForm
     AnchorSideTop.Side = asrBottom
     Left = 8
     Height = 32
-    Top = 134
+    Top = 135
     Width = 161
-    BorderSpacing.Top = 2
+    BorderSpacing.Top = 3
     Caption = '--no-latency-control'
     Checked = True
     State = cbChecked

sshuttle-gui/lib/x86_64-linux/sshuttle_gui.or

@@ -2,7 +2,7 @@
 name=sshuttle-gui
 
 [VERSION]
-version=0.1
+version=0.2
 
 [RELEASE]
 release=0.mrx9
@@ -70,4 +70,8 @@ devtool=Lazarus
 toolversion=2.2.4
 
 [INFO]
-0=v0.1 - initial release
+0=v0.2
+1=+ Improved startup sshuttle.service
+2=+ RPM-packages for Mageia-8, ROSA Linux and Mageia-9
+3=
+4=v0.1 - initial release