1371 2((3) 0 () 1 ((q lib "setup/plt-installer.rkt")) () (h ! (equal) ((c def c (c (? . 0) q run-single-installer)) q (423 . 9)) ((c def c (c (? . 0) q with-installer-window)) q (182 . 6)) ((q form ((lib "setup/plt-installer-sig.rkt") setup:plt-installer^)) q (883 . 2)) ((c def c (c (? . 0) q run-installer)) q (0 . 3)) ((c def c (c (? . 0) q on-installer-run)) q (77 . 4)))) 3procedure 4(run-installer filename) -> void? 5 filename : path-string? 6parameter 7(on-installer-run) -> (-> any) 8(on-installer-run thunk) -> void? 9 thunk : (-> any) 10procedure 11(with-installer-window do-install 12 cleanup-thunk) -> void? 13 do-install : (-> (or/c (is-a?/c dialog%) (is-a?/c frame%)) 14 void?) 15 cleanup-thunk : (-> any) 16procedure 17(run-single-installer 18 file 19 get-dir-proc 20 [#:show-beginning-of-file? show-beginning-of-file?]) 21 -> void? 22 file : path-string? 23 get-dir-proc : (-> (or/c path-string? #f)) 24 show-beginning-of-file? : any/c = #f 25signature 26setup:plt-installer^ : signature 27