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

fixed bug in language dialog -- it was not creating the details panels when they were shown initially

Browse Source 
svn: r1292
This commit is contained in:
Robby Findler 2005-11-12 03:58:04 +00:00
parent 09aba062b7
commit fef378f468
1 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
collects/drscheme/private/language-configuration.ss
View File

@ -687,21 +687,23 @@
;; details-callback : -> void
;; flips the details-shown? flag and resets the GUI
(define (details-callback)
(let ([do-construction? (and construct-details #t)])
(when do-construction?
(send details-button enable #f)
(construct-details)
(set! construct-details #f))
(set! details-shown? (not details-shown?))
(when re-center
(send re-center begin-container-sequence))
(update-show/hide-details)
(when re-center
(send re-center center 'both)
(send re-center end-container-sequence))
(when do-construction?
(send details-button enable #t))))
(do-construct-details)
(set! details-shown? (not details-shown?))
(when re-center
(send re-center begin-container-sequence))
(update-show/hide-details)
(when re-center
(send re-center center 'both)
(send re-center end-container-sequence)))
;; do-construct-details : -> void
;; construct the details panels, if they have not been constructed
(define (do-construct-details)
(when construct-details
(send details-button enable #f)
(construct-details)
(set! construct-details #f)
(send details-button enable #t)))
;; show/hide-details : -> void
;; udpates the GUI based on the details-shown? flag
@ -814,6 +816,8 @@
(send languages-hier-list min-client-height (text-height (send languages-hier-list get-editor)))
(when get/set-selected-language-settings
(get/set-selected-language-settings settings-to-show))
(when details-shown?
(do-construct-details))
(send languages-hier-list focus)
(values
(λ () selected-language)