Commit 95e64c84 authored by Robert Ricci's avatar Robert Ricci

Make separate structure for apt and cloudlab screenshots

In CloudLab mode, uses the Apt version if the CloudLab one is missing,
but emits a warning.
parent 2448d764
......@@ -72,7 +72,13 @@
properties))))
(define (screenshot path)
(let* ([fullpath (string-append "screenshots/" path)]
(let* ([aptpath (string-append "screenshots/apt/" path)]
[clabpath (string-append "screenshots/clab/" path)]
[fullpath (if (apt?)
aptpath
(if (file-exists? clabpath)
clabpath
(cdr (cons (displayln (string-append "WARNING: CloudLab missing screenshot " path)) aptpath))))]
[b (make-object bitmap% fullpath)]
[width (send b get-width)]
[scale-factor (/ screenshot-width width)])
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment