suzanne.soy/gui
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

original commit: 658bc59a92c82bdb22d0b654e8c47ef6b16258cc
This commit is contained in:
Robby Findler 2011-04-11 06:17:28 -05:00
parent d8217c9402
commit 2db01ab5e4
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -309,7 +309,7 @@
(min-width 0)
(min-height 0)))))
(super-new [style '(transparent)])
(super-new [style '(transparent no-focus)])
(send (get-dc) set-font small-control-font)
(setup-sizes)
@ -669,7 +669,7 @@
(set! memory-canvases (remq ec memory-canvases))))
(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)
(let ([onb (icon:get-gc-on-bitmap)]
[offb (icon:get-gc-off-bitmap)])
@ -776,7 +776,7 @@
(when (and (<= (send evt get-x) cw)
(<= (send evt get-y) ch))
(button-up))))))
(super-new (style '(transparent)))
(super-new (style '(transparent no-focus)))
(let ([dc (get-dc)])
(let-values ([(_1 th _2 _3) (send dc get-text-extent str)])
(min-client-height (inexact->exact (floor th)))))
@ -2583,7 +2583,7 @@
(inherit get-dc flush get-client-size min-width min-height)
(super-new [stretchable-width #f]
[stretchable-height #f]
[style '(transparent)])
[style '(transparent no-focus)])
(send (get-dc) set-smoothing 'smoothed)
(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 8 (+ sx three-bar-pen-bar-width) 8)))))
(super-instantiate ())
(super-new [style '(no-focus)])
(inherit stretchable-height min-height)
(stretchable-height #f)
(min-height 10)))