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<%>)
(super-new)))
(include "standard-menus.rkt")
(include "standard-menus.rktl")
(define -editor<%> (interface (standard-menus<%>)
get-entire-label
get-label-prefix
set-label-prefix
get-canvas%
get-canvas<%>
get-editor%

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

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