fixed crash when editbox caption is blank

package/package_debian.sh

@@ -9,7 +9,7 @@
 # and that a 'Release' mode exists.
 
 PRODUCT="tomboy-ng"
-VERSION="0.16"
+VERSION="0.16a"
 
 SOURCE_DIR="../tomboy-ng"
 ICON_DIR="../glyphs"

tomboy-ng/Tomboy_NG.lpi

@@ -273,6 +273,7 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
+        <CommandLineParams Value="--config-dir=/home/dbannon/Desktop --debug-index"/>
       </local>
     </RunParams>
     <RequiredPackages Count="3">

tomboy-ng/editbox.pas

@@ -149,6 +149,8 @@
     2018/06/22  DRB added LoadSingleNote and related to do just that. Needs more testing.
     2018/07/05  Changed MonospaceFont to 'Monaco' on the Mac, apparently universal...
     2018/07/20  Force copy on selection paste to always paste to left of a newline.
+    2018/07/23  If a note has no title in content but does have one in xml, caption is
+                left blank and that crashes things that look for * in first char. Fixed
 }
 
 
@@ -559,7 +561,7 @@ procedure TEditBoxForm.PrimaryPaste(SelIndex : integer);
  {$ifdef LINUX}
    MonospaceFont = 'monospace';
  {$else}
-   MonospaceFont = 'Lucida Console';
+   //MonospaceFont = 'Lucida Console';
    MonospaceFont = 'Monaco';        // might be a better choice
  {$ifend}
 
@@ -847,13 +849,15 @@ procedure TEditBoxForm.MarkDirty();
 begin
     {if not Dirty then} TimerSave.Enabled := true;
     Dirty := true;
-    if Caption[1] <> '*' then
+    if Caption = '' then Caption := '*'
+    else if Caption[1] <> '*' then
         Caption := '* ' + Caption;
 end;
 
 
 function TEditBoxForm.CleanCaption(): ANSIString;
 begin
+    if Caption = '' then exit('');
     if Caption[1] = '*' then
         Result := Copy(Caption, 3, 256)
     else Result := Caption;