suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Rename "standard-menus.rkt" -> "standard-menus.rktl".

Browse Source 
Since it's a file that gets included.  This is likely to be temporary,
if I get on with turning the whole thing into a macro.

original commit: 01c859072e7dc2a4b3296e06bf10ff5d82f80295
This commit is contained in:
Eli Barzilay 2011-09-25 19:46:47 -04:00
parent 0683d8a898
commit 4f3d062242
2 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/private/frame.rkt
View File

@ -1168,13 +1168,13 @@
(mixin (basic<%>) (pasteboard-info<%>) (mixin (basic<%>) (pasteboard-info<%>)
(super-new))) (super-new)))
(include "standard-menus.rkt") (include "standard-menus.rktl")
(define -editor<%> (interface (standard-menus<%>) (define -editor<%> (interface (standard-menus<%>)
get-entire-label get-entire-label
get-label-prefix get-label-prefix
set-label-prefix set-label-prefix
get-canvas% get-canvas%
get-canvas<%> get-canvas<%>
get-editor% get-editor%

15
collects/framework/private/gen-standard-menus.rkt
View File

@ -8,8 +8,11 @@
(define-runtime-path here ".") (define-runtime-path here ".")
(define standard-menus.rkt-filename (simplify-path (build-path here "standard-menus.rkt"))) (define standard-menus.rktl-filename
(define docs-menus-filename (simplify-path (build-path here 'up 'up "scribblings" "framework" "standard-menus.scrbl"))) (simplify-path (build-path here "standard-menus.rktl")))
(define docs-menus-filename
(simplify-path (build-path here 'up 'up
"scribblings" "framework" "standard-menus.scrbl")))
;; build-before-super-item-clause : an-item -> (listof clause) ;; build-before-super-item-clause : an-item -> (listof clause)
(define build-before-super-item-clause (define build-before-super-item-clause
@ -122,7 +125,7 @@
,(generic-initializer generic)))])) ,(generic-initializer generic)))]))
(define (main) (define (main)
(write-standard-menus.rkt) (write-standard-menus.rktl)
(write-docs)) (write-docs))
(define (write-docs) (define (write-docs)
@ -203,10 +206,10 @@
(display docs-footer-text port)) (display docs-footer-text port))
#:exists 'truncate)) #:exists 'truncate))
(define (write-standard-menus.rkt) (define (write-standard-menus.rktl)
(printf "writing to ~a\n" standard-menus.rkt-filename) (printf "writing to ~a\n" standard-menus.rktl-filename)
(call-with-output-file standard-menus.rkt-filename (call-with-output-file standard-menus.rktl-filename
(λ (port) (λ (port)
(pretty-print (pretty-print
`(define standard-menus<%> `(define standard-menus<%>