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

added ability to put the definitions / interactions side by side

Browse Source 
svn: r6939
This commit is contained in:
Robby Findler 2007-07-20 20:58:14 +00:00
parent 6f00ea32a8
commit 2ad94edfe7
3 changed files with 27 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/drscheme/private/main.ss
View File

@ -57,6 +57,7 @@
(finder:default-filters)))
(application:current-app-name (string-constant drscheme))
(preferences:set-default 'drscheme:defs/ints-horizontal #f boolean?)
(preferences:set-default 'drscheme:unit-window-max? #f boolean?)
(preferences:set-default 'drscheme:frame:initial-position #f
(λ (x) (or (not x)
@ -215,7 +216,9 @@
(string-constant switch-to-module-language-automatically)
editor-panel)
(make-check-box 'drscheme:defs/ints-horizontal
(string-constant interactions-beside-definitions)
editor-panel)
;; come back to this one.
#;
(letrec ([hp (new horizontal-panel%

39
collects/drscheme/private/unit.ss
View File

@ -958,20 +958,23 @@ module browser threading seems wrong.
; ; ;;;;; ; ; ; ;;;;
(define vertical-dragable/def-int%
(class panel:vertical-dragable%
(init-field unit-frame)
(inherit get-percentages)
(define/augment (after-percentage-change)
(let ([percentages (get-percentages)])
(when (and (= 1
(length (send unit-frame get-definitions-canvases))
(length (send unit-frame get-interactions-canvases)))
(= 2 (length percentages)))
(preferences:set 'drscheme:unit-window-size-percentage (car percentages))))
(inner (void) after-percentage-change))
(super-new)))
(define dragable/def-int-mixin
(mixin (panel:dragable<%>) ()
(init-field unit-frame)
(inherit get-percentages)
(define/augment (after-percentage-change)
(let ([percentages (get-percentages)])
(when (and (= 1
(length (send unit-frame get-definitions-canvases))
(length (send unit-frame get-interactions-canvases)))
(= 2 (length percentages)))
(preferences:set 'drscheme:unit-window-size-percentage (car percentages))))
(inner (void) after-percentage-change))
(super-new)))
(define vertical-dragable/def-int% (dragable/def-int-mixin panel:vertical-dragable%))
(define horizontal-dragable/def-int% (dragable/def-int-mixin panel:horizontal-dragable%))
(define super-frame%
(drscheme:frame:mixin
@ -3170,9 +3173,11 @@ module browser threading seems wrong.
(let ([sel (send tabs-panel get-selection)])
(when sel
(change-to-nth-tab sel)))))))
[define resizable-panel (new vertical-dragable/def-int%
(unit-frame this)
(parent panel-with-tabs))]
[define resizable-panel (new (if (preferences:get 'drscheme:defs/ints-horizontal)
horizontal-dragable/def-int%
vertical-dragable/def-int%)
(unit-frame this)
(parent panel-with-tabs))]
[define definitions-canvas #f]
(initialize-definitions-canvas)

1
collects/string-constants/english-string-constants.ss
View File

@ -417,6 +417,7 @@ please adhere to these guidelines:
(open-files-in-tabs "Open files in separate tabs (not separate windows)")
(show-interactions-on-execute "Automatically open interactions window when running a program")
(switch-to-module-language-automatically "Automatically switch to the module language when opening a module")
(interactions-beside-definitions "Put the interactions window beside the definitions window") ;; in preferences, below the checkbox one line above this one
(limit-interactions-size "Limit interactions size")
(background-color "Background Color")
(default-text-color "Default text") ;; used for configuring colors, but doesn't need the word "color"