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

disable the preferences menu in paint-by-numbers (since it does nothing)

Browse Source 
so that other games can call preferences:set-default.

closes PR 12851
This commit is contained in:
Robby Findler 2012-06-14 04:13:24 -05:00
parent 21c60bfa8b
commit cd923bb8f8
2 changed files with 22 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/games/paint-by-numbers/gui.rkt
View File

@ -1,3 +1,4 @@
#lang racket/base
#| #|
The paint-by-numbers-canavas% class accepts two initalization The paint-by-numbers-canavas% class accepts two initalization
@ -35,7 +36,6 @@ paint by numbers.
|# |#
(module gui mzscheme
(require mred (require mred
framework framework
mzlib/etc mzlib/etc
@ -863,6 +863,6 @@ paint by numbers.
(set! update-row-col? #t) (set! update-row-col? #t)
(update-all-rows-cols))] (update-all-rows-cols))]
(super-instantiate () (row-numbers null) (col-numbers null)) (super-new (row-numbers null) (col-numbers null))
(set! row-numbers (vector->list (make-vector height null))) (set! row-numbers (vector->list (make-vector height null)))
(set! col-numbers (vector->list (make-vector width null)))))) (set! col-numbers (vector->list (make-vector width null)))))

23
collects/games/paint-by-numbers/paint-by-numbers.rkt
View File

@ -1,6 +1,7 @@
(module paint-by-numbers mzscheme #lang racket/base
(require "gui.rkt" (require "gui.rkt"
(prefix solve: "solve.rkt") (prefix-in solve: "solve.rkt")
"all-problems.rkt" "all-problems.rkt"
"problem.rkt" "problem.rkt"
"../show-scribbling.rkt" "../show-scribbling.rkt"
@ -13,6 +14,13 @@
(provide game@) (provide game@)
(application-preferences-handler void)
;; reset this after the framework sets it.
;; we don't want to open the preferences window,
;; because other games then cannot call
;; preferences:set-default
(define default-font (send the-font-list find-or-create-font 10 'roman 'normal 'normal #f)) (define default-font (send the-font-list find-or-create-font 10 'roman 'normal 'normal #f))
(preferences:set-default 'paint-by-numbers:font default-font (lambda (f) (is-a? f font%))) (preferences:set-default 'paint-by-numbers:font default-font (lambda (f) (is-a? f font%)))
(preferences:set-un/marshall 'paint-by-numbers:font (preferences:set-un/marshall 'paint-by-numbers:font
@ -115,6 +123,13 @@
(class (frame:standard-menus-mixin frame:basic%) (class (frame:standard-menus-mixin frame:basic%)
(inherit set-label get-label get-area-container) (inherit set-label get-label get-area-container)
(define filename #f) (define filename #f)
(define/override (edit-menu:create-preferences?) #f)
;; don't open the preferences window,
;; because other games then cannot call
;; preferences:set-default
(define/override (edit-menu:preferences-callback item control) (void))
[define/public update-filename [define/public update-filename
(lambda (new-name) (lambda (new-name)
(set! filename new-name) (set! filename new-name)
@ -504,7 +519,7 @@
(let ([f (instantiate pbn-frame% () (problem problem))]) (let ([f (instantiate pbn-frame% () (problem problem))])
(send f show #t))] (send f show #t))]
[(problem state) [(problem state)
(let ([f (make-object pbn-frame% () (problem problem))]) (let ([f (instantiate pbn-frame% () (problem problem))])
(send (send f get-canvas) set-grid state) (send (send f get-canvas) set-grid state)
(send f show #t))])) (send f show #t))]))
@ -514,4 +529,4 @@
(export) (export)
(player) (player)
;(editor #f) ;(editor #f)
))) ))