Really ! This is V0.13

tomboy-notes · Feb 5, 2018 · 03e184f · 03e184f
1 parent 1a339e4
commit 03e184f
Show file tree

Hide file tree

Showing 4 changed files with 14 additions and 5 deletions.
diff --git a/package/package_debian.sh b/package/package_debian.sh
@@ -8,7 +8,7 @@
 # http://wiki.lazarus.freepascal.org/Cross_compiling
 
 PRODUCT="tomboy-ng"
-VERSION="0.12"
+VERSION="0.13"
 
 SOURCE_DIR="../tomboy-ng"
 ICON_DIR="../glyphs"

diff --git a/tomboy-ng/mainunit.pas b/tomboy-ng/mainunit.pas
@@ -72,6 +72,7 @@
                 the traymenu recent used list.
     2018/02/04  Don't show or populate the TrayIcon for Macs. Hooked into Sett's Main Menu
                 for Mac and now most IconTray/Main menu items are responded to in Sett.
+    2018/02/04  Now control MMSync when we do the Popup One.
 }
 
 {$mode objfpc}{$H+}
@@ -335,9 +336,8 @@ procedure TRTSearch.RecentMenu();
         end;
       	inc(Count);
   	end;
-    if Sett.RemoteRepo = '' then
-        MenuSynchronise.Enabled := False
-    else MenuSynchronise.Enabled := True;
+    MenuSynchronise.Enabled := not (Sett.RemoteRepo = '');
+    Sett.MMSync.Enabled := not (Sett.RemoteRepo = '');
 end;
 
 procedure TRTSearch.ButtonRefreshClick(Sender: TObject);

diff --git a/tomboy-ng/settings.lfm b/tomboy-ng/settings.lfm
@@ -87,6 +87,7 @@ object Sett: TSett
         Top = 239
         Width = 306
         Caption = 'Allow a note to be in Multiple Notebooks.'
+        OnChange = CheckManyNotebooksChange
         TabOrder = 2
       end
     end

diff --git a/tomboy-ng/settings.pas b/tomboy-ng/settings.pas
@@ -140,6 +140,7 @@     TSett = class(TForm)
 		procedure ButtonSetNotePathClick(Sender: TObject);
 		procedure ButtonSetSynServerClick(Sender: TObject);
 		procedure ButtonShowBackUpClick(Sender: TObject);
+        procedure CheckManyNotebooksChange(Sender: TObject);
         { Called when ANY of the setting check boxes change so use can save. }
 		procedure CheckReadOnlyChange(Sender: TObject);
 		procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -285,7 +286,7 @@ procedure TSett.ShowAboutBox();
 var
     S1, S2, S3, S4, S5 : string;
 begin
-    S1 := 'This is v0.12b of tomboy-ng, a rewrite of Tomboy Notes'#10;
+    S1 := 'This is v0.13 of tomboy-ng, a rewrite of Tomboy Notes'#10;
     S2 := 'using Lazarus and FPC. It is not quite ready for production'#10;
     S3 := 'use unless you are very careful and have good backups.'#10;
     S5 := '';
@@ -387,6 +388,8 @@ procedure TSett.FormCreate(Sender: TObject);
 		end;
 end;
 
+
+
 procedure TSett.MMAboutClick(Sender: TObject);
 begin
     ShowAboutBox();
@@ -559,6 +562,11 @@ procedure TSett.ButtonShowBackUpClick(Sender: TObject);
     NoteLister.Free;
 end;
 
+procedure TSett.CheckManyNotebooksChange(Sender: TObject);
+begin
+    ButtonSaveConfig.Enabled := True;
+end;
+
 	{ Called when ANY of the setting check boxes change so use can save. }
 procedure TSett.CheckReadOnlyChange(Sender: TObject);
 begin