cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- [GUI] allowed opening a URI indicated on the command line using the '-o' switch, when using the GUI.

This commit is contained in:
cage 2023-05-21 15:59:59 +02:00
parent 338dd77e70
commit 56dd0798a6
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/gui/client/main-window.lisp
View File

@ -1416,7 +1416,7 @@
(funcall (menu:show-bookmarks-clsr main-window))) (funcall (menu:show-bookmarks-clsr main-window)))
:exclusive t)) :exclusive t))
(defun init-main-window () (defun init-main-window (starting-iri)
(setf gui:*debug-tk* nil) (setf gui:*debug-tk* nil)
(gui:with-nodgui (:title +program-name+ :debugger-class 'gui:graphical-condition-handler) (gui:with-nodgui (:title +program-name+ :debugger-class 'gui:graphical-condition-handler)
(icons:load-icons) (icons:load-icons)
@ -1428,4 +1428,8 @@
(initialize-menu gui:*tk* main-frame) (initialize-menu gui:*tk* main-frame)
(gui:grid main-frame 0 0 :sticky :nswe) (gui:grid main-frame 0 0 :sticky :nswe)
(initialize-keybindings main-frame) (initialize-keybindings main-frame)
(gui-goodies:gui-resize-grid-all gui-goodies:*toplevel*)))) (gui-goodies:gui-resize-grid-all gui-goodies:*toplevel*)
(gui:wait-complete-redraw)
(when (string-not-empty-p starting-iri)
(set-address-bar-text main-frame starting-iri)
(open-iri starting-iri main-frame nil)))))

2
src/main.lisp
View File

@ -265,7 +265,7 @@ etc.) happened"
(command-line:*rpc-client-mode* (command-line:*rpc-client-mode*
(rpc-client-init) (rpc-client-init)
(json-rpc-communication::start-client) (json-rpc-communication::start-client)
(client-main-window:init-main-window)) (client-main-window:init-main-window command-line:*net-address*))
(command-line:*print-lisp-dependencies* (command-line:*print-lisp-dependencies*
(misc:all-program-dependencies t)) (misc:all-program-dependencies t))
(command-line:*script-file* (command-line:*script-file*