Racket 语言编写的一个简单记事本程序

#lang racket/gui
;;;; RacketNote --- a notepad based on racket
;;;; Author: leesper

;;; definition of the RacketNoteGui

(define app-name " RacketNote")
(define version " v0.0.9")
(define app-label (string-append "*Untitled" app-name version))
(define window-width 600)
(define window-height 400)

(define editor (new text%))

(define racket-note-gui%
  (class frame%    
    
    (define/public (clear-all)
      (send editor select-all)
      (send editor clear)
      (send editor set-filename #f)
      (send this refresh))
    
    (define/augment (can-close?)
      (ask-for-save? editor))
    
    (define/public (ask-for-save? editor)
      (if (send editor is-modified?)
          (let ([res (message-box/custom "Save File" "Do you want to save this file ?"
                                         "Yes" "No" "Cancel")])
            (cond
              [(= res 1) (send editor save-file