suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

...

Browse Source 
original commit: 1b01f103192530c2db2bfdef67d4af3fe3bbc476
This commit is contained in:
Robby Findler 2002-01-06 04:08:52 +00:00
parent cc39042762
commit 7eef06ec0d
1 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
collects/help/help.ss
View File

@ -10,6 +10,8 @@
"startup-url.ss"
"help-unit.ss"
"help-sig.ss"
"proxy-prefs.ss"
(lib "string-constant.ss" "string-constants")
(lib "framework.ss" "framework")
(lib "framework-sig.ss" "framework")
(lib "plt-installer.ss" "setup")
@ -17,7 +19,29 @@
(lib "mred-sig.ss" "mred")
(lib "mred.ss" "mred"))
(define frame-mixin values)
(preferences:add-general-panel)
(add-proxy-prefs-panel)
(define (frame-mixin %)
(class %
(define/override (help-menu:about-string)
(string-constant about-help-desk))
(define/override (help-menu:about-callback i e)
(message-box (string-constant about-help-desk)
(format
(string-constant help-desk-about-string)
(version:version))
this))
(define/override (help-menu:create-about?) #t)
(define/override (help-menu:after-about menu)
(make-object menu-item% (string-constant help-on-help) menu
(lambda (i e)
(message-box
(string-constant help-on-help)
(string-constant help-on-help-details)
this))))
(super-instantiate ())))
(define (user-defined-doc-position x) #f)
;; just in case drscheme hasn't been run before, we