changeset 64:1c68552e8ac2 default tip

minor
author Franklin Schmidt <fschmidt@gmail.com>
date Thu, 05 Jun 2025 12:48:30 -0600
parents f9ce379de456
children
files dev.sh src/luan_editor/Window.luan src/luan_editor/menu.luan
diffstat 3 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/dev.sh	Thu Jun 05 10:50:14 2025 -0600
+++ b/dev.sh	Thu Jun 05 12:48:30 2025 -0600
@@ -12,4 +12,4 @@
 
 set +m
 
-java -Dport=56588 -Xdock:name="Luan Editor" -classpath $CLASSPATH luan.Luan classpath:luan_editor/editor.luan "$@" 2>&1 | grep --line-buffered -v 'NSRemoteView\|NSSavePanel' | tee err 
+java -Dport=56588 -Xdock:name="Luan Editor dev" -classpath $CLASSPATH luan.Luan classpath:luan_editor/editor.luan "$@" 2>&1 | grep --line-buffered -v 'NSRemoteView\|NSSavePanel' | tee err 
--- a/src/luan_editor/Window.luan	Thu Jun 05 10:50:14 2025 -0600
+++ b/src/luan_editor/Window.luan	Thu Jun 05 12:48:30 2025 -0600
@@ -229,7 +229,6 @@
 	undo_listener()
 	--window.undo_listener = undo_listener  -- dont gc
 	text_area.document.add_undo_listener(undo_listener)
-	window.new = new_window
 	function window.title()
 		return title
 	end
--- a/src/luan_editor/menu.luan	Thu Jun 05 10:50:14 2025 -0600
+++ b/src/luan_editor/menu.luan	Thu Jun 05 12:48:30 2025 -0600
@@ -18,6 +18,7 @@
 local spell_check = Spell_checker.spell_check or error()
 local Window = require "classpath:luan_editor/Window.luan"
 local show_list_window = Window.show_list_window or error()
+local new_window = Window.new_window or error()
 
 
 local function action_listener(fn)
@@ -77,7 +78,7 @@
 					new_menu_item{
 						text = "New File"
 						accelerator = "N"
-						action_listener = action_listener(window.new)
+						action_listener = action_listener(new_window)
 					}
 					new_menu_item{
 						text = "Open..."
@@ -101,6 +102,7 @@
 					revert
 					new_menu_item{
 						text = "Paste File(s)"
+						accelerator = "P"
 						action_listener = function(_)
 							if not window.paste_files() then
 								show_message_dialog(nil,"No files to paste")