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

adjust various status controls so they don't take the focus

Browse Source 
also added a separator menu item to the line/column number popup menu
This commit is contained in:
Robby Findler 2011-04-11 06:17:28 -05:00
parent ace0faa50f
commit 658bc59a92
4 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/drracket/private/bitmap-message.rkt
View File

@ -17,4 +17,5 @@
(min-height (send bm get-height)) (min-height (send bm get-height))
(refresh)) (refresh))
(super-new (stretchable-width #f) (super-new (stretchable-width #f)
(stretchable-height #f)))) (stretchable-height #f)
(style '(no-focus)))))

5
collects/drracket/private/unit.rkt
View File

@ -1436,6 +1436,7 @@ module browser threading seems wrong.
(define/override (add-line-number-menu-items menu) (define/override (add-line-number-menu-items menu)
(define on? (preferences:get 'drracket:show-line-numbers?)) (define on? (preferences:get 'drracket:show-line-numbers?))
(new separator-menu-item% [parent menu])
(new checkable-menu-item% (new checkable-menu-item%
[label (string-constant show-line-numbers-in-definitions)] [label (string-constant show-line-numbers-in-definitions)]
[parent menu] [parent menu]
@ -4262,7 +4263,7 @@ module browser threading seems wrong.
(send dc draw-text message (send dc draw-text message
(floor (- (/ w 2) (/ tw 2))) (floor (- (/ w 2) (/ tw 2)))
(floor (- (/ h 2) (/ th 2))))))))) (floor (- (/ h 2) (/ th 2)))))))))
(super-new) (super-new [style '(no-focus)])
(let-values ([(w h d a) (send (get-dc) get-text-extent "Xy")]) (let-values ([(w h d a) (send (get-dc) get-text-extent "Xy")])
(min-height (+ 4 (floor (inexact->exact h))))))) (min-height (+ 4 (floor (inexact->exact h)))))))
@ -4341,7 +4342,7 @@ module browser threading seems wrong.
(super-new [stretchable-width #f] (super-new [stretchable-width #f]
[stretchable-height #f] [stretchable-height #f]
[style '(transparent)]) [style '(transparent no-focus)])
(inherit min-width min-height) (inherit min-width min-height)
(min-width (apply max (map (λ (x) (send x get-width)) running/waiting-bitmaps))) (min-width (apply max (map (λ (x) (send x get-width)) running/waiting-bitmaps)))
(min-height (apply max (map (λ (x) (send x get-height)) running/waiting-bitmaps))))) (min-height (apply max (map (λ (x) (send x get-height)) running/waiting-bitmaps)))))

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

@ -309,7 +309,7 @@
(min-width 0) (min-width 0)
(min-height 0))))) (min-height 0)))))
(super-new [style '(transparent)]) (super-new [style '(transparent no-focus)])
(send (get-dc) set-font small-control-font) (send (get-dc) set-font small-control-font)
(setup-sizes) (setup-sizes)
@ -669,7 +669,7 @@
(set! memory-canvases (remq ec memory-canvases)))) (set! memory-canvases (remq ec memory-canvases))))
(send panel stretchable-width #f))) (send panel stretchable-width #f)))
[define gc-canvas (make-object bday-click-canvas% (get-info-panel) '(border))] (define gc-canvas (new bday-click-canvas% [parent (get-info-panel)] [style '(border no-focus)]))
(define/private (register-gc-blit) (define/private (register-gc-blit)
(let ([onb (icon:get-gc-on-bitmap)] (let ([onb (icon:get-gc-on-bitmap)]
[offb (icon:get-gc-off-bitmap)]) [offb (icon:get-gc-off-bitmap)])
@ -776,7 +776,7 @@
(when (and (<= (send evt get-x) cw) (when (and (<= (send evt get-x) cw)
(<= (send evt get-y) ch)) (<= (send evt get-y) ch))
(button-up)))))) (button-up))))))
(super-new (style '(transparent))) (super-new (style '(transparent no-focus)))
(let ([dc (get-dc)]) (let ([dc (get-dc)])
(let-values ([(_1 th _2 _3) (send dc get-text-extent str)]) (let-values ([(_1 th _2 _3) (send dc get-text-extent str)])
(min-client-height (inexact->exact (floor th))))) (min-client-height (inexact->exact (floor th)))))
@ -2583,7 +2583,7 @@
(inherit get-dc flush get-client-size min-width min-height) (inherit get-dc flush get-client-size min-width min-height)
(super-new [stretchable-width #f] (super-new [stretchable-width #f]
[stretchable-height #f] [stretchable-height #f]
[style '(transparent)]) [style '(transparent no-focus)])
(send (get-dc) set-smoothing 'smoothed) (send (get-dc) set-smoothing 'smoothed)
(define-values (indicator-width indicator-height) (define-values (indicator-width indicator-height)

2
collects/framework/private/panel.rkt
View File

@ -488,7 +488,7 @@
(send dc draw-line sx 5 (+ sx three-bar-pen-bar-width) 5) (send dc draw-line sx 5 (+ sx three-bar-pen-bar-width) 5)
(send dc draw-line sx 8 (+ sx three-bar-pen-bar-width) 8))))) (send dc draw-line sx 8 (+ sx three-bar-pen-bar-width) 8)))))
(super-instantiate ()) (super-new [style '(no-focus)])
(inherit stretchable-height min-height) (inherit stretchable-height min-height)
(stretchable-height #f) (stretchable-height #f)
(min-height 10))) (min-height 10)))