steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/basis/ui/gadgets/status-bar/status-bar.factor

30 lines
966 B
Factor
Raw Normal View History

Fixes
2008-02-21 21:57:41 -05:00
! Copyright (C) 2007, 2008 Slava Pestov.
Initial import
2007-09-20 18:09:08 -04:00
! See http://factorcode.org/license.txt for BSD license.
Applied ui-tweaks patchset. - prettyprinter now does syntax highlighting of Factor code - added a prettyprinter.stylesheet vocab - text shadow character style for formatted streams - text shadow for labels - toolbar buttons display keyboard shortcut in status bar rather than in the button title - changed some colors in help.stylesheet to match the colors in Factor's scrollbars and border-buttons - changed status bar color to match the dark blue in Factor's scrollbars - added some internal padding to the browser gadget to give the article content some breathing room NOTE: I removed the "pane" slot from browser-gadget. The slot was never used (at least in my image), and now that the browser-gadget's help-pane is wrapped by a "border" gadget, the slot name would be misleading.
2009-09-08 12:43:47 -04:00
USING: accessors calendar colors colors.constants fonts kernel
models models.arrow models.delay sequences summary ui
ui.gadgets ui.gadgets.labels ui.gadgets.tracks
ui.gadgets.worlds ui.pens.solid ui.private ;
Initial import
2007-09-20 18:09:08 -04:00
IN: ui.gadgets.status-bar
Applied ui-tweaks patchset. - prettyprinter now does syntax highlighting of Factor code - added a prettyprinter.stylesheet vocab - text shadow character style for formatted streams - text shadow for labels - toolbar buttons display keyboard shortcut in status bar rather than in the button title - changed some colors in help.stylesheet to match the colors in Factor's scrollbars and border-buttons - changed status bar color to match the dark blue in Factor's scrollbars - added some internal padding to the browser gadget to give the article content some breathing room NOTE: I removed the "pane" slot from browser-gadget. The slot was never used (at least in my image), and now that the browser-gadget's help-pane is wrapped by a "border" gadget, the slot name would be misleading.
2009-09-08 12:43:47 -04:00
: status-bar-font ( -- font )
sans-serif-font clone
Factor theme colors are now referenced by name. Added a text file, "factor-colors.txt", which is like "rgb.txt" except it lists the theme colors used in the Factor UI. Changed url-style color to DodgerBlue4 to match link-style.
2009-09-08 15:22:13 -04:00
COLOR: FactorDarkSlateBlue >>background
Applied ui-tweaks patchset. - prettyprinter now does syntax highlighting of Factor code - added a prettyprinter.stylesheet vocab - text shadow character style for formatted streams - text shadow for labels - toolbar buttons display keyboard shortcut in status bar rather than in the button title - changed some colors in help.stylesheet to match the colors in Factor's scrollbars and border-buttons - changed status bar color to match the dark blue in Factor's scrollbars - added some internal padding to the browser gadget to give the article content some breathing room NOTE: I removed the "pane" slot from browser-gadget. The slot was never used (at least in my image), and now that the browser-gadget's help-pane is wrapped by a "border" gadget, the slot name would be misleading.
2009-09-08 12:43:47 -04:00
COLOR: white >>foreground ;
: status-bar-theme ( label -- label )
status-bar-font >>font
Factor theme colors are now referenced by name. Added a text file, "factor-colors.txt", which is like "rgb.txt" except it lists the theme colors used in the Factor UI. Changed url-style color to DodgerBlue4 to match link-style.
2009-09-08 15:22:13 -04:00
COLOR: FactorDarkSlateBlue <solid> >>interior ;
Applied ui-tweaks patchset. - prettyprinter now does syntax highlighting of Factor code - added a prettyprinter.stylesheet vocab - text shadow character style for formatted streams - text shadow for labels - toolbar buttons display keyboard shortcut in status bar rather than in the button title - changed some colors in help.stylesheet to match the colors in Factor's scrollbars and border-buttons - changed status bar color to match the dark blue in Factor's scrollbars - added some internal padding to the browser gadget to give the article content some breathing room NOTE: I removed the "pane" slot from browser-gadget. The slot was never used (at least in my image), and now that the browser-gadget's help-pane is wrapped by a "border" gadget, the slot name would be misleading.
2009-09-08 12:43:47 -04:00
Initial import
2007-09-20 18:09:08 -04:00
: <status-bar> ( model -- gadget )
Update code for model class renamings
2009-02-26 17:15:28 -05:00
1/10 seconds <delay> [ "" like ] <arrow> <label-control>
Applied ui-tweaks patchset. - prettyprinter now does syntax highlighting of Factor code - added a prettyprinter.stylesheet vocab - text shadow character style for formatted streams - text shadow for labels - toolbar buttons display keyboard shortcut in status bar rather than in the button title - changed some colors in help.stylesheet to match the colors in Factor's scrollbars and border-buttons - changed status bar color to match the dark blue in Factor's scrollbars - added some internal padding to the browser gadget to give the article content some breathing room NOTE: I removed the "pane" slot from browser-gadget. The slot was never used (at least in my image), and now that the browser-gadget's help-pane is wrapped by a "border" gadget, the slot name would be misleading.
2009-09-08 12:43:47 -04:00
status-bar-theme
Clean up UI a bit
2008-06-18 23:30:54 -04:00
t >>root? ;
Initial import
2007-09-20 18:09:08 -04:00
update status-bar for api changes. set the gl-context outside of draw-world* generic
2009-05-03 18:11:01 -04:00
: open-status-window ( gadget title/attributes -- )
?attributes f <model> >>status <world>
dup status>> <status-bar> f track-add
UI inheritance conversion step 1: eliminate all usages of set-gadget-delegate except build-* and some contributed vocabs
2008-07-10 21:32:17 -04:00
open-world-window ;
: show-summary ( object gadget -- )
Refactoring usages of >r/r> to dip in UI
2008-11-28 01:02:02 -05:00
[ [ summary ] [ "" ] if* ] dip show-status ;