<commit_before>(module gui frtime
  (require
   (except-in mzlib/etc rec)
   frtime/gui/fred)
  
  (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)<commit_msg>Remove mzlib/etc require<commit_after>(module gui frtime
  (require
   frtime/gui/fred)
  
  (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)
{'fraction_non_alphanumeric': 0.16020524515393386, 'fraction_numerical': 0.0068415051311288486, 'mean_word_length': 2.8656387665198237, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '6503337', 'n_tokens_mistral': 648, 'n_tokens_neox': 622, 'n_words': 180}