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