/usr/share/racket/pkgs/frtime/gui.rkt is in racket-common 6.1-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | (module gui frtime
(require frtime/gui/fred)
(module test racket/base)
(define frame (new ft-frame% [label "GUI"] [min-height 150] [min-width 200] [shown #t]))
(define (make-button str)
(send (new ft-button% [parent frame] [label str]) get-value-e))
(define (make-message str~)
(new ft-message% [parent frame] [label str~]
[stretchable-height #t]
[stretchable-width #t]))
(define (make-gauge rng val~)
(new ft-gauge% [parent frame] [label ""] [range rng] [stretchable-width #t]
[value val~]))
(define (make-text str)
(send (new ft-text-field% [parent frame] [label str] [init-value ""])
get-value-b))
(define (make-choice str los)
(send (new ft-choice% [parent frame] [label str] [choices los])
get-selection-b))
(define (make-slider str min max init)
(send (new ft-slider% [parent frame] [min-value min] [max-value max]
[init-value init] [label str])
get-value-b))
(define make-check-box
(opt-lambda (str [val #f])
(send (new ft-check-box% [parent frame] [label str] [value val])
get-value-b)))
(define fresh-window
(let ([first #t])
(lambda ()
(if first
(set! first #f)
(begin
(set! frame (new ft-frame% [label "GUI"] [min-height 150] [min-width 200]
[shown #t])))))))
(provide (all-defined-out)))
|