Output clear button now clears the active output tab

Villavu · Jun 11, 2023 · 833fc58 · 833fc58
1 parent 3456e6c
commit 833fc58
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/Source/forms/simba.main.lfm b/Source/forms/simba.main.lfm
@@ -76,7 +76,7 @@ object SimbaForm: TSimbaForm
     end
     object ToolbarButtonClearOutput: TToolButton
       Left = 240
-      Hint = 'Clear Script Output'
+      Hint = 'Clear Output Box'
       Top = 0
       Caption = 'Clear'
       ImageIndex = 7
@@ -2660,6 +2660,7 @@ object SimbaForm: TSimbaForm
   end
   object MainMenuFile: TPopupMenu
     Images = Images
+    OnPopup = MenuFileClick
     Left = 390
     Top = 160
     object MenuItemNew: TMenuItem
@@ -2736,6 +2737,7 @@ object SimbaForm: TSimbaForm
   end
   object MainMenuEdit: TPopupMenu
     Images = Images
+    OnPopup = MenuEditClick
     Left = 740
     Top = 60
     object MenuItemUndo: TMenuItem

diff --git a/Source/forms/simba.main.pas b/Source/forms/simba.main.pas
@@ -846,7 +846,7 @@ procedure TSimbaForm.MenuItemShapeBoxClick(Sender: TObject);
 
 procedure TSimbaForm.MenuClearOutputClick(Sender: TObject);
 begin
-  SimbaScriptTabsForm.CurrentTab.OutputBox.Empty();
+  SimbaOutputForm.CurrentTab.Empty();
 end;
 
 procedure TSimbaForm.MenuFileClick(Sender: TObject);
@@ -867,7 +867,7 @@ procedure TSimbaForm.MenuFileClick(Sender: TObject);
     end;
 
     Item := TMenuItem.Create(MenuItemOpenRecent);
-    Item.Caption := ShortDisplayFilename(FRecentFiles[I], 100);
+    Item.Caption := ShortDisplayFilename(FRecentFiles[I], 80);
     Item.OnClick := @HandleRecentFileClick;
     Item.Hint := FRecentFiles[I];