racket/collects/framework/private/sig.ss

(module sig mzscheme
  (require (lib "unitsig.ss"))

  (provide framework:menu^
	   framework:menu-class^
	   framework:menu-fun^
	   framework:version^
	   framework:version-class^
	   framework:version-fun^
	   framework:panel^
	   framework:panel-class^
	   framework:panel-fun^
	   framework:exn^
	   framework:exn-class^
	   framework:exn-fun^
	   framework:application^
	   framework:application-class^
	   framework:application-fun^
	   framework:preferences^
	   framework:preferences-class^
	   framework:preferences-fun^
	   framework:autosave^
	   framework:autosave-class^
	   framework:autosave-fun^
	   framework:exit^
	   framework:exit-class^
	   framework:exit-fun^
	   framework:path-utils^
	   framework:path-utils-class^
	   framework:path-utils-fun^
	   framework:finder^
	   framework:finder-class^
	   framework:finder-fun^
	   framework:editor^
	   framework:editor-class^
	   framework:editor-fun^
	   framework:pasteboard^
	   framework:pasteboard-class^
	   framework:pasteboard-fun^
	   framework:text^
	   framework:text-class^
	   framework:text-fun^
	   framework:canvas^
	   framework:canvas-class^
	   framework:canvas-fun^
	   framework:frame^
	   framework:frame-class^
	   framework:frame-fun^
	   framework:group^
	   framework:group-class^
	   framework:group-fun^
	   framework:handler^
	   framework:handler-class^
	   framework:handler-fun^
	   framework:icon^
	   framework:icon-class^
	   framework:icon-fun^
	   framework:keymap^
	   framework:keymap-class^
	   framework:keymap-fun^
           framework:color^
           framework:color-class^
           framework:color-fun^
           framework:color-prefs^
           framework:color-prefs-class^
           framework:color-prefs-fun^
	   framework:scheme^
	   framework:scheme-class^
	   framework:scheme-fun^
	   framework:main^
	   framework:main-class^
	   framework:main-fun^
	   framework:mode^
           framework:mode-class^
           framework:mode-fun^
           framework:color-model^
	   framework:color-model-class^
	   framework:color-model-fun^
           framework:comment-box-fun^
           framework:comment-box-class^
           framework:comment-box^
           framework:number-snip^
           framework:number-snip-fun^
           framework:number-snip-class^)
           
  (define-signature framework:number-snip-fun^ 
    (make-repeating-decimal-snip
     make-fraction-snip))
  (define-signature framework:number-snip-class^ 
    (snip-class%))
  (define-signature framework:number-snip^
    ((open framework:number-snip-fun^)
     (open framework:number-snip-class^)))
  
  (define-signature framework:comment-box-fun^
    ())
  (define-signature framework:comment-box-class^
    (snipclass snip%))
  (define-signature framework:comment-box^
    ((open framework:comment-box-fun^)
     (open framework:comment-box-class^)))
  
  (define-signature framework:menu-class^
    (can-restore<%>
     can-restore-mixin
     can-restore-underscore<%>
     can-restore-underscore-mixin
     can-restore-menu-item%
     can-restore-checkable-menu-item%
     can-restore-underscore-menu%))
  (define-signature framework:menu-fun^
    ())
  (define-signature framework:menu^
    ((open framework:menu-class^)
     (open framework:menu-fun^)))

  (define-signature framework:version-class^
    ())
  (define-signature framework:version-fun^
    (add-spec
     version))
  (define-signature framework:version^
    ((open framework:version-class^)
     (open framework:version-fun^)))

  (define-signature framework:panel-class^
    (single-mixin
     single<%>

     single-window<%>
     single-window-mixin

     ;;multi-view-mixin
     ;;multi-view<%>

     
     single%
     single-pane%
     ;;multi-view%

     dragable<%>
     dragable-mixin

     vertical-dragable<%>
     vertical-dragable-mixin
     vertical-dragable%

     horizontal-dragable<%>
     horizontal-dragable-mixin
     horizontal-dragable%))
  (define-signature framework:panel-fun^
    ())
  (define-signature framework:panel^
    ((open framework:panel-class^)
     (open framework:panel-fun^)))

  (define-signature framework:exn-class^
    ())
  (define-signature framework:exn-fun^
    ((struct exn ())
     (struct unknown-preference ())))
  (define-signature framework:exn^
    ((open framework:exn-class^)
     (open framework:exn-fun^)))

  (define-signature framework:application-class^
    ())
  (define-signature framework:application-fun^
    (current-app-name))
  (define-signature framework:application^
    ((open framework:application-class^)
     (open framework:application-fun^)))

  (define-signature framework:preferences-class^
    ())
  (define-signature framework:preferences-fun^
    (get
     add-callback
     set
     set-default
     set-un/marshall

     save
     silent-save
     restore-defaults
     
     add-panel
     add-font-panel

     add-editor-checkbox-panel
     add-warnings-checkbox-panel
     add-scheme-checkbox-panel

     add-to-editor-checkbox-panel
     add-to-warnings-checkbox-panel
     add-to-scheme-checkbox-panel
     
     add-on-close-dialog-callback
     add-can-close-dialog-callback

     show-dialog
     hide-dialog))
  (define-signature framework:preferences^
    ((open framework:preferences-class^)
     (open framework:preferences-fun^)))

  (define-signature framework:autosave-class^
    (autosavable<%>))
  (define-signature framework:autosave-fun^
    (register
     restore-autosave-files/gui))
  (define-signature framework:autosave^
    ((open framework:autosave-class^)
     (open framework:autosave-fun^)))

  (define-signature framework:exit-class^
    ())
  (define-signature framework:exit-fun^
    (set-exiting
     exiting?
     user-oks-exit
     insert-on-callback
     insert-can?-callback
     can-exit?
     on-exit
     exit))
  (define-signature framework:exit^
    ((open framework:exit-class^)
     (open framework:exit-fun^)))

  (define-signature framework:path-utils-class^
    ())
  (define-signature framework:path-utils-fun^
    (generate-autosave-name 
     generate-backup-name))
  (define-signature framework:path-utils^
    ((open framework:path-utils-class^)
     (open framework:path-utils-fun^)))

  (define-signature framework:finder-class^
    ())
  (define-signature framework:finder-fun^
    (dialog-parent-parameter
     default-extension
     default-filters
     common-put-file 
     common-get-file 
     std-put-file 
     std-get-file 
     common-get-file-list
     get-file
     put-file))
  (define-signature framework:finder^
    ((open framework:finder-class^)
     (open framework:finder-fun^)))

  (define-signature framework:editor-class^
    (basic<%>
     standard-style-list<%>
     keymap<%>
     autowrap<%>
     info<%>
     file<%>
     backup-autosave<%>
     basic-mixin
     standard-style-list-mixin
     keymap-mixin
     autowrap-mixin
     info-mixin
     file-mixin
     backup-autosave-mixin))
  (define-signature framework:editor-fun^
    (get-standard-style-list
     set-standard-style-list-pref-callbacks
     set-standard-style-list-delta
     set-default-font-color
     get-default-color-style-name))
  (define-signature framework:editor^
    ((open framework:editor-class^)
     (open framework:editor-fun^)))

  (define-signature framework:pasteboard-class^
    (basic%
     standard-style-list%
     keymap%
     file%
     backup-autosave%
     info%))
  (define-signature framework:pasteboard-fun^
    ())
  (define-signature framework:pasteboard^
    ((open framework:pasteboard-class^)
     (open framework:pasteboard-fun^)))

  (define-signature framework:text-class^
    (basic<%>
     foreground-color<%>
     hide-caret/selection<%>
     nbsp->space<%>
     delegate<%>
     wide-snip<%>
     searching<%>
     return<%>
     info<%>
     file<%>
     clever-file-format<%>
     ports<%>
     input-box<%>
     
     basic% 
     hide-caret/selection%
     nbsp->space%
     1-pixel-string-snip%
     1-pixel-tab-snip%
     delegate%
     wide-snip%
     standard-style-list%
     keymap%
     return%
     autowrap%
     file%
     clever-file-format%
     backup-autosave%
     searching%
     info%
     input-box%
     
     basic-mixin
     foreground-color-mixin
     hide-caret/selection-mixin
     nbsp->space-mixin
     wide-snip-mixin
     delegate-mixin
     searching-mixin
     return-mixin
     info-mixin
     file-mixin
     clever-file-format-mixin
     ports-mixin
     input-box-mixin))
  (define-signature framework:text-fun^
    ())
  (define-signature framework:text^
    ((open framework:text-class^)
     (open framework:text-fun^)))

  (define-signature framework:canvas-class^
    (basic<%>
     color<%>
     delegate<%>
     info<%>
     wide-snip<%>
     
     basic%
     color%
     info%
     delegate%
     wide-snip%

     basic-mixin
     color-mixin
     delegate-mixin
     info-mixin
     wide-snip-mixin))
  (define-signature framework:canvas-fun^
    ())
  (define-signature framework:canvas^
    ((open framework:canvas-class^)
     (open framework:canvas-fun^)))

  (define-signature framework:frame-class^
    (basic<%>
     size-pref<%>
     register-group<%>
     status-line<%>
     standard-menus<%>
     editor<%>
     open-here<%>
     text<%>
     pasteboard<%>
     delegate<%>
     searchable<%>
     searchable-text<%>
     info<%>
     text-info<%>
     pasteboard-info<%>
     
     basic%
     size-pref%
     status-line%
     info%
     text-info%
     pasteboard-info%
     standard-menus%
     editor%
     open-here%
     text%
     searchable%
     delegate%
     pasteboard%
     
     basic-mixin
     size-pref-mixin
     register-group-mixin
     status-line-mixin
     standard-menus-mixin
     editor-mixin
     open-here-mixin
     text-mixin
     pasteboard-mixin
     delegate-mixin
     searchable-mixin
     searchable-text-mixin
     info-mixin
     text-info-mixin
     pasteboard-info-mixin))
  (define-signature framework:frame-fun^
    (reorder-menus
     add-snip-menu-items
     setup-size-pref))
  (define-signature framework:frame^
    ((open framework:frame-class^)
     (open framework:frame-fun^)))

  (define-signature framework:group-class^
    (%))
  (define-signature framework:group-fun^
    (get-the-frame-group))
  (define-signature framework:group^
    ((open framework:group-class^)
     (open framework:group-fun^)))

  (define-signature framework:handler-class^
    ())
  (define-signature framework:handler-fun^
    (handler? 
     handler-name 
     handler-extension
     handler-handler
     insert-format-handler
     find-format-handler 
     find-named-format-handler 
     current-create-new-window
     edit-file
     open-file
     install-recent-items
     add-to-recent
     set-recent-position
     set-recent-items-frame-superclass
     size-recently-opened-files))
  (define-signature framework:handler^
    ((open framework:handler-class^)
     (open framework:handler-fun^)))

  (define-signature framework:icon-class^
    ())
  (define-signature framework:icon-fun^
    (get-paren-highlight-bitmap
     get-autowrap-bitmap
     get-eof-bitmap
     
     get-lock-bitmap
     get-unlock-bitmap
     get-anchor-bitmap

     get-left/right-cursor
     get-up/down-cursor
     
     get-gc-on-bitmap
     get-gc-off-bitmap))
  (define-signature framework:icon^
    ((open framework:icon-class^)
     (open framework:icon-fun^)))

  (define-signature framework:keymap-class^
    (aug-keymap%
     aug-keymap<%>
     aug-keymap-mixin))
  (define-signature framework:keymap-fun^
    (send-map-function-meta
     make-meta-prefix-list

     canonicalize-keybinding-string

     add-to-right-button-menu
     add-to-right-button-menu/before

     setup-global
     setup-search
     setup-file
     setup-editor

     get-global
     get-search
     get-file
     get-editor

     set-chained-keymaps
     remove-chained-keymap
     
     call/text-keymap-initializer
     
     add-user-keybindings-file
     remove-user-keybindings-file))
  (define-signature framework:keymap^
    ((open framework:keymap-class^)
     (open framework:keymap-fun^)))

  (define-signature framework:color-class^
    (text<%>
     text-mixin
     text%

     text-mode<%>
     text-mode-mixin
     text-mode%))
  (define-signature framework:color-fun^
    ())
  (define-signature framework:color^
    ((open framework:color-class^)
     (open framework:color-fun^)))
  
  (define-signature framework:color-prefs-class^
    ())
  (define-signature framework:color-prefs-fun^
    (register-color-pref
     add-to-preferences-panel
     build-color-selection-panel
     add-background-preferences-panel
     marshall-style
     unmarshall-style))
  (define-signature framework:color-prefs^
    ((open framework:color-prefs-class^)
     (open framework:color-prefs-fun^)))
  
  
  (define-signature framework:scheme-class^
    (text<%>
     text-mixin
     text%
     
     text-mode<%>
     text-mode-mixin
     text-mode%
     
     set-mode-mixin

     sexp-snip%
     sexp-snip<%>))
  (define-signature framework:scheme-fun^
    (get-wordbreak-map
     init-wordbreak-map
     get-keymap
     setup-keymap
     add-preferences-panel
     add-coloring-preferences-panel
     
     get-color-prefs-table
     short-sym->pref-name
     short-sym->style-name
     
     text-balanced?))
  (define-signature framework:scheme^
    ((open framework:scheme-class^)
     (open framework:scheme-fun^)))

  (define-signature framework:main-class^ ())
  (define-signature framework:main-fun^ ())
  (define-signature framework:main^
    ((open framework:main-class^)
     (open framework:main-fun^)))

  (define-signature framework:mode-class^ 
    (host-text-mixin
     host-text<%>
     surrogate-text%
     surrogate-text<%>))
  (define-signature framework:mode-fun^ ())
  (define-signature framework:mode^
    ((open framework:mode-class^)
     (open framework:mode-fun^)))

  (define-signature framework:color-model-class^
    ())
  (define-signature framework:color-model-fun^
    (xyz?
     xyz-x
     xyz-y
     xyz-z
     rgb-color-distance
     rgb->xyz
     xyz->rgb))
  (define-signature framework:color-model^
    ((open framework:color-model-class^)
     (open framework:color-model-fun^))))