steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove redundant code, cleanups

slava 2006-05-26 06:58:11 +00:00
parent 6816fc77b2
commit 7e4d704f07
3 changed files with 6 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
TODO.FACTOR.txt
View File

@ -46,9 +46,7 @@
+ ui/help: + ui/help:
- clearing pane with ^L leaves scrollbar a pixel off - clearing pane with ^L leaves scrollbar a pixel off
- clicking objects sends them to the listener - right click sends to listener & pushes on the stack
- right click sends to listener & pushes on the stack
- reuse windows where possible
- new browser: - new browser:
- browse generic words and classes - browse generic words and classes
- need actions for reloading the source file and opening word in jEdit - need actions for reloading the source file and opening word in jEdit
@ -57,7 +55,6 @@
- make-frame should compile - make-frame should compile
- track: don't allow negative dimensions - track: don't allow negative dimensions
- fix top level window positioning - fix top level window positioning
- changing window titles
- clicks sent twice - clicks sent twice
- speed up ideas: - speed up ideas:
- only do clipping for certain gadgets - only do clipping for certain gadgets
@ -70,7 +67,7 @@
- window zooming doesn't work - window zooming doesn't work
- polish OS X menu bar code - polish OS X menu bar code
- dock menu - dock menu
- services do not launch if not running - services do not launch if factor not running
- when scrolling wheel, or moving mouse out of window, rollover is not - when scrolling wheel, or moving mouse out of window, rollover is not
updated updated
- focus is not top-level window aware - focus is not top-level window aware
@ -81,6 +78,7 @@
+ compiler/ffi: + compiler/ffi:
- amd64 crash
- get factor running on mac intel - get factor running on mac intel
- free up r11, r12 as a vreg on ppc - free up r11, r12 as a vreg on ppc
- float= on powerpc doesn't consider nans equal - float= on powerpc doesn't consider nans equal

13
library/ui/browser.factor
View File

@ -32,7 +32,7 @@ C: browser-track ( builder closer -- gadget )
[ dup browser-track-closer call ] 2keep [ dup browser-track-closer call ] 2keep
[ browser-track-showing remove-hash* ] keep track-remove ; [ browser-track-showing remove-hash* ] keep track-remove ;
TUPLE: browser vocabs vocab-track word-track ; TUPLE: browser vocab-track word-track ;
: find-browser [ browser? ] find-parent ; : find-browser [ browser? ] find-parent ;
@ -111,15 +111,6 @@ DEFER: show-vocab
vocabs [ <vocab-button> ] map make-pile <scroller> vocabs [ <vocab-button> ] map make-pile <scroller>
"Vocabularies" f <tile> ; "Vocabularies" f <tile> ;
: add-vocabs ( vocabs browser -- )
[ set-browser-vocabs ] 2keep track-add ;
: add-vocab-track ( track browser -- )
[ set-browser-vocab-track ] 2keep track-add ;
: add-word-track ( track browser -- )
[ set-browser-word-track ] 2keep track-add ;
: <vocab-track> ( -- track ) : <vocab-track> ( -- track )
[ <vocab-view> ] [ find-browser hide-vocab-words ] [ <vocab-view> ] [ find-browser hide-vocab-words ]
<browser-track> ; <browser-track> ;
@ -129,7 +120,7 @@ DEFER: show-vocab
C: browser ( -- browser ) C: browser ( -- browser )
{ {
{ [ <vocabs> ] set-browser-vocabs 1/5 } { [ <vocabs> ] f 1/5 }
{ [ <vocab-track> ] set-browser-vocab-track 1/5 } { [ <vocab-track> ] set-browser-vocab-track 1/5 }
{ [ <word-track> ] set-browser-word-track 3/5 } { [ <word-track> ] set-browser-word-track 3/5 }
} { 1 0 0 } make-track* ; } { 1 0 0 } make-track* ;

3
library/x11/windows.factor
View File

@ -49,8 +49,7 @@ USING: alien hashtables kernel math namespaces sequences ;
: map-window ( win -- ) dpy get swap XMapWindow drop ; : map-window ( win -- ) dpy get swap XMapWindow drop ;
: map-window* ( world win -- ) : map-window* ( world win -- ) dup set-closable map-window ;
dup set-closable map-window ;
: glx-window* ( world dim -- win context ) : glx-window* ( world dim -- win context )
glx-window >r [ windows get set-hash ] keep r> ; glx-window >r [ windows get set-hash ] keep r> ;