diff --git a/collects/handin-client/client-gui.rkt b/collects/handin-client/client-gui.rkt index 6166858781..ed7f1016f9 100644 --- a/collects/handin-client/client-gui.rkt +++ b/collects/handin-client/client-gui.rkt @@ -1,8 +1,8 @@ -#lang scheme/base +#lang racket/base -(require scheme/class scheme/unit scheme/file mred net/sendurl - mrlib/switchable-button mrlib/bitmap-label drscheme/tool framework - "info.ss" "client.ss" "this-collection.ss") +(require racket/class racket/unit racket/file mred net/sendurl + mrlib/switchable-button mrlib/bitmap-label drracket/tool framework + "info.rkt" "client.rkt" "this-collection.rkt") (provide tool@) @@ -521,8 +521,8 @@ exe "it will be overwritten") this '(ok-cancel caution)))) ((launcher 'make-mred-launcher) - (list "-mvLe-" "handin-multi.ss" - this-collection-name + (list "-le-" (format "~a/handin-multi" + this-collection-name) "(multifile-handin)") (build-path dir exe)) (message-box "Standalone Executable" @@ -737,13 +737,13 @@ (define tool@ (unit - (import drscheme:tool^) - (export drscheme:tool-exports^) + (import drracket:tool^) + (export drracket:tool-exports^) (define phase1 void) (define phase2 (if updater? - (dynamic-require `(lib "updater.ss" ,this-collection-name) 'bg-update) + (dynamic-require `(lib "updater.rkt" ,this-collection-name) 'bg-update) void)) (define tool-button-label (bitmap-label-maker button-label/h handin-icon)) @@ -769,7 +769,7 @@ [parent file-menu] [callback (lambda (m e) ((dynamic-require - `(lib "handin-multi.ss" ,this-collection-name) + `(lib "handin-multi.rkt" ,this-collection-name) 'multifile-handin)))])) (when updater? (new menu-item% @@ -777,7 +777,7 @@ [parent file-menu] [callback (lambda (m e) - ((dynamic-require `(lib "updater.ss" ,this-collection-name) + ((dynamic-require `(lib "updater.rkt" ,this-collection-name) 'update) #f #t))])) ; no parent (new separator-menu-item% [parent file-menu])) @@ -810,7 +810,7 @@ (lambda (buf) (string->editor! buf - (send (drscheme:unit:open-drscheme-window) + (send (drracket:unit:open-drscheme-window) get-editor)))])))])) (inherit register-toolbar-button) @@ -820,4 +820,4 @@ (lambda (l) (cons client-panel (remq client-panel l)))))) (when (and server port-no) - (drscheme:get/extend:extend-unit-frame make-new-unit-frame% #f)))) + (drracket:get/extend:extend-unit-frame make-new-unit-frame% #f)))) diff --git a/collects/handin-client/client.rkt b/collects/handin-client/client.rkt index 774e837216..30dc49467b 100644 --- a/collects/handin-client/client.rkt +++ b/collects/handin-client/client.rkt @@ -1,6 +1,6 @@ -#lang scheme/base +#lang racket/base -(require openssl/mzssl "this-collection.ss") +(require openssl/mzssl "this-collection.rkt") (provide handin-connect handin-disconnect diff --git a/collects/handin-client/handin-multi.rkt b/collects/handin-client/handin-multi.rkt index 3939b94669..cb52e7cd76 100644 --- a/collects/handin-client/handin-multi.rkt +++ b/collects/handin-client/handin-multi.rkt @@ -1,14 +1,14 @@ -#lang scheme/base +#lang racket/base -(require scheme/class scheme/port mred framework browser/external - "info.ss" "client-gui.ss" "this-collection.ss") +(require racket/class racket/port mred framework browser/external + "info.rkt" "client-gui.rkt" "this-collection.rkt") (define handin-name (#%info-lookup 'name)) (define web-address (#%info-lookup 'web-address (lambda () "http://racket-lang.org"))) (define selection-mode (#%info-lookup 'selection-mode (lambda () 'extended))) (define selection-defaults - (let ([sd (#%info-lookup 'selection-default (lambda () '("*.scm" "*.ss")))]) + (let ([sd (#%info-lookup 'selection-default (lambda () '("*.rkt")))]) (if (string? sd) (list sd) sd))) (define last-dir-key (make-my-key 'multifile:last-dir)) (preferences:set-default last-dir-key "" string?) @@ -19,7 +19,7 @@ (define update (and (#%info-lookup 'enable-auto-update (lambda () #f)) - (dynamic-require `(lib "updater.ss" ,this-collection-name) 'update))) + (dynamic-require `(lib "updater.rkt" ,this-collection-name) 'update))) ;; ========================================================================== (define magic #"<<>>") diff --git a/collects/handin-client/info.rkt b/collects/handin-client/info.rkt index c8aae4ca13..396d4a35be 100644 --- a/collects/handin-client/info.rkt +++ b/collects/handin-client/info.rkt @@ -9,9 +9,9 @@ ;; The handin tool is disabled by default, uncomment these three lines to ;; enable it -;(define tools `("client-gui.ss")) -;(define tool-names `(,name)) -;(define tool-icons `("icon.png")) +;(define drracket-tools `("client-gui.ss")) +;(define drracket-tool-names `(,name)) +;(define drracket-tool-icons `("icon.png")) ;; Modify the provided "icon.png" file to your school/lab/etc logo. ;; You must define a server:port for the client to be functional @@ -33,7 +33,7 @@ ;(define enable-multifile-handin #t) ; enable multi-file? ;(define selection-mode 'extended) ; mode for file choose, usually 'extended ;(define selection-default ; suffixes to auto-choose (string or string-list) -; '("*.scm;*.ss" "*.scm;*.ss;*.txt")) +; '("*.rkt" "*.rkt;*.txt")) ;; Client configuration ;(define password-keep-minutes 5) ; client remembers entered password 5 mins diff --git a/collects/handin-client/updater.rkt b/collects/handin-client/updater.rkt index 05d34dade4..9d794e318f 100644 --- a/collects/handin-client/updater.rkt +++ b/collects/handin-client/updater.rkt @@ -1,6 +1,6 @@ -#lang scheme/base -(require scheme/file scheme/port net/url setup/plt-installer mred framework - "info.ss" "this-collection.ss") +#lang racket/base +(require racket/file racket/port net/url setup/plt-installer mred framework + "info.rkt" "this-collection.rkt") (define name (#%info-lookup 'name)) (define web-address (#%info-lookup 'web-address))