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

src/gui/client/main-window.lisp

@@ -1416,7 +1416,7 @@
               (funcall (menu:show-bookmarks-clsr main-window)))
             :exclusive t))
 
-(defun init-main-window ()
+(defun init-main-window (starting-iri)
   (setf gui:*debug-tk* nil)
   (gui:with-nodgui (:title +program-name+ :debugger-class 'gui:graphical-condition-handler)
     (icons:load-icons)
@@ -1428,4 +1428,8 @@
       (initialize-menu gui:*tk* main-frame)
       (gui:grid main-frame 0 0 :sticky :nswe)
       (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)))))

src/main.lisp

@@ -265,7 +265,7 @@ etc.) happened"
       (command-line:*rpc-client-mode*
        (rpc-client-init)
        (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*
        (misc:all-program-dependencies t))
       (command-line:*script-file*