suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gtk: set app name on startup

Browse Source 
Closes PR 11896
Closes PR 11408

original commit: 941dacd966913ebbeca150e0b5cd193788b5bd90
This commit is contained in:
Matthew Flatt 2011-08-04 08:41:56 -06:00
parent 14aaa67a74
commit 81ebd9a26b
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mred/private/wx/gtk/queue.rkt
View File

@ -63,13 +63,11 @@
;; all other ignored flags have a single argument ;; all other ignored flags have a single argument
(loop (+ i 2) #t)])))))]) (loop (+ i 2) #t)])))))])
(let-values ([(new-argc new-argv) (let-values ([(new-argc new-argv)
(if (null? args) (values (add1 (length args))
(values 0 #f) (cast (cons (path->bytes (find-system-path 'run-file))
(values (add1 (length args)) args)
(cast (cons (ptr-ref argv _bytes 0) (_list i _bytes)
args) _pointer))])
(_list i _bytes)
_pointer)))])
(unless (gtk_init_check new-argc new-argv) (unless (gtk_init_check new-argc new-argv)
(error (format (error (format
"Gtk initialization failed for display ~s" "Gtk initialization failed for display ~s"