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

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

@ -959,8 +959,8 @@ module browser threading seems wrong.
(define vertical-dragable/def-int% (define dragable/def-int-mixin
(class panel:vertical-dragable% (mixin (panel:dragable<%>) ()
(init-field unit-frame) (init-field unit-frame)
(inherit get-percentages) (inherit get-percentages)
(define/augment (after-percentage-change) (define/augment (after-percentage-change)
@ -973,6 +973,9 @@ module browser threading seems wrong.
(inner (void) after-percentage-change)) (inner (void) after-percentage-change))
(super-new))) (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% (define super-frame%
(drscheme:frame:mixin (drscheme:frame:mixin
(drscheme:frame:basics-mixin (drscheme:frame:basics-mixin
@ -3170,7 +3173,9 @@ module browser threading seems wrong.
(let ([sel (send tabs-panel get-selection)]) (let ([sel (send tabs-panel get-selection)])
(when sel (when sel
(change-to-nth-tab sel))))))) (change-to-nth-tab sel)))))))
[define resizable-panel (new vertical-dragable/def-int% [define resizable-panel (new (if (preferences:get 'drscheme:defs/ints-horizontal)
horizontal-dragable/def-int%
vertical-dragable/def-int%)
(unit-frame this) (unit-frame this)
(parent panel-with-tabs))] (parent panel-with-tabs))]

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)") (open-files-in-tabs "Open files in separate tabs (not separate windows)")
(show-interactions-on-execute "Automatically open interactions window when running a program") (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") (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") (limit-interactions-size "Limit interactions size")
(background-color "Background Color") (background-color "Background Color")
(default-text-color "Default text") ;; used for configuring colors, but doesn't need the word "color" (default-text-color "Default text") ;; used for configuring colors, but doesn't need the word "color"