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

Support size hints in X11

slava 2006-06-02 23:34:29 +00:00
parent afa4aef86b
commit 3d414a42a7
2 changed files with 42 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
library/ui/x11/windows.factor
View File

@ -28,11 +28,17 @@ USING: alien gadgets hashtables kernel math namespaces sequences ;
[ >r create-colormap r> set-XSetWindowAttributes-colormap ] keep [ >r create-colormap r> set-XSetWindowAttributes-colormap ] keep
event-mask over set-XSetWindowAttributes-event_mask ; event-mask over set-XSetWindowAttributes-event_mask ;
: set-size-hints ( window -- )
"XSizeHints" <c-object>
USPosition over set-XSizeHints-flags
dpy get -rot XSetNormalWMHints ;
: create-window ( loc dim visinfo -- window ) : create-window ( loc dim visinfo -- window )
>r >r >r dpy get root get r> first2 r> first2 0 r> >r >r >r dpy get root get r> first2 r> first2 0 r>
[ XVisualInfo-depth InputOutput ] keep [ XVisualInfo-depth InputOutput ] keep
[ XVisualInfo-visual create-window-mask ] keep [ XVisualInfo-visual create-window-mask ] keep
window-attributes XCreateWindow ; window-attributes XCreateWindow
dup size-size-hints ;
: glx-window ( loc dim -- window context ) : glx-window ( loc dim -- window context )
choose-visual choose-visual

34
library/ui/x11/xlib.factor
View File

@ -1308,3 +1308,37 @@ FUNCTION: Status XSetStandardProperties (
FUNCTION: void XFree ( void* data ) ; FUNCTION: void XFree ( void* data ) ;
FUNCTION: int XStoreName ( Display* display, Window w, char* window_name ) ; FUNCTION: int XStoreName ( Display* display, Window w, char* window_name ) ;
: USPosition 1 0 shift ; inline
: USSize 1 1 shift ; inline
: PPosition 1 2 shift ; inline
: PSize 1 3 shift ; inline
: PMinSize 1 4 shift ; inline
: PMaxSize 1 5 shift ; inline
: PResizeInc 1 6 shift ; inline
: PAspect 1 7 shift ; inline
: PBaseSize 1 8 shift ; inline
: PWinGravity 1 9 shift ; inline
BEGIN-STRUCT: XSizeHints
FIELD: long flags
FIELD: int x
FIELD: int y
FIELD: int width
FIELD: int height
FIELD: int min_width
FIELD: int min_height
FIELD: int max_width
FIELD: int max_height
FIELD: int width_inc
FIELD: int height_inc
FIELD: int min_aspect_x
FIELD: int min_aspect_y
FIELD: int max_aspect_x
FIELD: int max_aspect_y
FIELD: int base_width
FIELD: int base_height
FIELD: int win_gravity
END-STRUCT
FUNCTION: void XSetWMNormalHints ( Display* display, Window w, XSizeHints* hints ) ;