john13@garfield.UUCP (04/25/87)
[]
Here is a debugged version of expose. It now will not attempt to resize
screen-height windows that have no resize gadgets, nor will it attempt to
move them. All others (as long as they are tight to the top border) are
assumed to be safe to send move messages at least, and resize messages for
those with size gadgets.
I can't verify that the method used is 100% foolproof; however it now works
with DPaint II, and even with VT100 (I guess it must have an invisible size
gadget, or a non-standard-height screen?). Please let me know if there are
any programs that it fools up with.
Usage: expose
Purpose: re-arrange windows so you have at least 1 pixel of the top border
free on all screens, so you can drag screens up and down, or use
the depth arranger gadget. Saves needless "mousing". I'd like to
be able to put this on a hotkey, but that's not exactly vital :-).
John Russell john13@garfield.mun.cdn
5 Alderdice Place john13@garfield.UUCP
St. John's, NF (Canada)
A1B 2P8
(709) 726-7847
-----Cut Here-----Cut Here-----Cut Here-----Cut Here-----
#!/bin/sh
# shar: Shell Archiver
# Run the following text with /bin/sh to create:
# expose.c
# expose.uue
echo shar: extracting expose.c
sed 's/^X//' << 'END_OF_FILE' > expose.c
X/*
X * This program will attempt to let you at the screen depth arrangment
X * gadgets. All windows that are tight to the top border will be moved
X * down by one pixel, and resized if necessary (ie they are as high as
X * the screen). After running it, you can also access the screen drag
X * bars.
X *
X * Does anyone else hate having to fiddle with the initial CLI window
X * and the VT100 window to get at those $@$@#$@ gadgets???
X *
X * ((c)) 1987, John Russell
X * Unlimited distribution; donations to starving programmers always welcome.
X */
X
X/*
X * This is the second posting of this program. The first would act flakey,
X * since there was a missing ",0L" in the OpenLibrary call. It would work
X * time after time in some cases, and not at all in others.
X *
X * This release also incorporates a fix which should keep it from moving any
X * windows which really don't want to be moved (the DPaint window is one
X * example). I initially used a delay to see if the window responded to the
X * sizewindow message; it seems like the sizewindow itself may introduce
X * problems, so I no longer try to size the window if it has no size gadget.
X * There is no delay, but the window will not be moved if it is full screen-
X * height and cannot be resized.
X */
X
Xchar *copyright = "((c)) 1987, John Russell";
Xchar *address = "5 Alderdice Place";
Xchar *city = "St. John's, Newfoundland, Canada";
Xchar *postal_code = "A1B 2P8";
Xchar *phone = "(709) 726-7847";
X
X#include "intuition/intuition.h"
X
Xstruct IntuitionBase *IntuitionBase;
X
Xmain(argc, argv)
Xint argc;
Xchar *argv[];
X{
X struct Screen *screen;
X struct Window *window;
X
X if ((IntuitionBase=(struct IntuitionBase *)OpenLibrary("intuition.library",0L))==NULL) {
X exit(0);
X }
X
X Forbid();
X
X screen=IntuitionBase->FirstScreen;
X
X while (screen) {
X
X window=screen->FirstWindow;
X
X while(window) {
X
X if (window->TopEdge == 0) { /* NOT "== screen->topedge" */
X
X if ((window->Height == screen->Height) &&
X (window->Flags & WINDOWSIZING)) {
X
X/* window sent resizing message only if full screen-height AND it has a
X sizing gadget. Otherwise results with backdrop windows and those with
X odd Viewmodes, overscan, etc are unpredictable. */
X
X SizeWindow(window,0,-1);
X }
X
X if ((window->Height != screen->Height) ||
X (window->Flags & WINDOWSIZING) ) {
X
X/* move a window that is
X 1) not as tall as the screen and hence can be lowered
X 2) equipped with a size gadget, which will shrink vertically when it
X gets the first message
X*/
X
X MoveWindow(window,0,1); /* move down and expose gadgets */
X }
X }
X window=window->NextWindow;
X }
X screen=screen->NextScreen;
X }
X
X Permit();
X
X CloseLibrary(IntuitionBase);
X}
X
X
END_OF_FILE
echo 'Orignal Sum -> 52935 3'
echo -n 'Current Sum -> '
sum expose.c
echo shar: extracting expose.uue
sed 's/^X//' << 'END_OF_FILE' > expose.uue
Xbegin 600 expose
XM #\P # ( '+ 4P /I !RTZY !
XM<B@H8RDI(#$Y.#<L($IO:&X@4G5S<V5L; -2!!;&1E<F1I8V4@4&QA8V4
XM4W0N($IO:&XG<RP@3F5W9F]U;F1L86YD+"!#86YA9&$ $$Q0B R4#@ *#<P
XM.2D@-S(V+3<X-#< $Y5__A"ITAZ .Q.N@9<4$\I0("V2H!F"$*G3KH!,%A/
XM3KH&'BQL@+8K;@ \__Q*K?_\9P KBQM__PK;@ $__A*K?_X9P D"QM__@V
XM+@ &2,-*@V9T+&W_^#8N I(PRQM__PT+@ .2,*V@F8B+&W_^"8N !C&O
XM %G$DAX__]"IR\M__A.N@8D3^\ #"QM__@V+@ *2,,L;?_\-"X #DC"MH)F
XM$"QM__@F+@ 8QKP !9Q)(> !0J<O+?_X3KH%V$_O PL;?_X*U;_^&
XM_VPL;?_\*U;__& _TY.N@68+RR MDZZ!2I83TY=3G5I;G1U:71I;VXN;&EB
XM<F%R>0 B7Y+\ HB$=*!TH$H0=G\ " D/L@*)%[("BM<EF#C(\ "IK"'0
XM(L)1R?_\*4^ NBQX 0I3H"^2.> @$ZZ "103TYU3E4 $JL@!9G!BQL@!9.
XMEB\M A.N@+26$].74YU3E7__$CG#C!(> ?2'H"GDZZ!/!03RE @,)*@&84
XM0J=(>0 #@ =.N@1L4$\N;("Z3G5(> ?2'H"@$ZZ!,903RE @,9*@&800J=(
XM>0 #@ 5.N@1"4$]@U$*G3KH$;EA/)D!*JP"L9P !HB8K *SE@RH#+$4F+@ 0
XMY8,D0Q822(-(P]:M A4@RE#@*9"IR\L@*9.N@0H4$\I0("N%A)(@TC#+P-(
XM:@ !+RR KDZZ P)/[P ,2'H"$A822(-(P]:L@*XO TZZ LA03RQM A(;@ !
XM+RT #"\L@*Y.N@*03^\ #$*L@*(D;("N%A)(@TC#3>R 'Q0V. !(@DC"Q+P
XM 09P12BF#B%A)(@TC#MKP @;386$DB#. -*0V<83>R 'Q8V0 !(@TC#
XMQKP 09@12BF#>+$I2BD(6=@ V!$J#9P92K("B8)Y"$D*G)BR HE*#Y8,O
XM TZZ V!03RE @*IX "1L@*Y@.A822(-(PTWL@!\4-C@ 2()(PL2\ $&<$
XM4HI@XG8 -@3E@RQL@*HMBC@ +PI.N@("6$]2@-7 4D1V #8$MJR HF6\=@ V
XM!.6#+&R JD*V. !.N@*V*4" UCE\@ " VDZZ KXI0(#<.7R 8#@3KH"L"E
XM@.(Y?( !@.8I? & TB\L@*HO+("B3KK\G%!/0J=.N@#(6$]@ "<2&L
XM7$ZZ Q983TAK %Q.N@+86$\I0("R+&R LDJN "1G$"QL@+(B;@ D+Q%.N@(F
XM6$\L;("R2JX (&=,2'@#[2QL@+(O+@ @3KH"*E!/*4" UDJ 9S(I;(#6@.(I
XM;(#6@-PY?( @-HY?( !@.8Y?( !@. F+(#6Y8,K0__\+&W__"=N @ I"\L
XM@+)"ITZZ^_Q03T*G82A83TS?#'!.74YU9&]S+FQI8G)A<GD ;6%T:&9F<"YL
XM:6)R87)Y " 3E7__$*M__PO+?_\3KH ^%A/4JW__ RM "O_\;>A*K( :
XM9P8L;( :3I9*K(#*9PHO+(#*3KH!KEA/2JR QF<*+RR QDZZ 9Y83TJL@+)F
XM+B\L@*8O+("N3KH!O%!/)BR HE*#Y8,O R\L@*I.N@&H4$\O+0 (3KH!)EA/
XM8!A.N@&.+RR LDZZ <983R M @N;("Z3G5.74YU,#Q__V $,"\ #B!O 1*
XM&&;\4T@B;P (4T 0V5?(__Q"(" O 1.=2!O 0@"")O @0V6;\3G4@;P $
XM( A*&&;\D< @"%. 3G5,[P, 0@""(O Q@ A#95\G__%)!8 )"&%')__Q.
XM=4Y5 !(YPX@*"T "" $<@9.N@!,3>R UB1 U<ZXO !M#+B\ $VX$
XM2I)F$BE\ X#.</],WP1P3EU.=38J 1(P\:\ " &8(+Q).N@ N6$]"
XMDG 8-Q(YS - '$P"8!2$/&P$A#0D/4@TA P,%(0$) T(),WP ,3G4B+P $
XM+&R PD[N_]PB+P $+&R PD[N_X(B+P $+&R PD[N_W L;(#"3N[_RDSO 8
XM!"QL@,).[O_B+&R PD[N_\1(YP$$3.\@@ ,+&R ODZN_Y1,WR" 3G5.^@ "
XM(F\ !"QL@+Y.[OYB3.\ P $+&R OD[N_SHB;P $+&R OD[N_MI.^@ "+&R
XMOD[N_WPB;P $("\ ""QL@+Y.[O\N(&\ !"QL@+Y.[OZ,3OH BQL@+XB;P $
XM("\ "$[N_=@L;("^3N[_=B)O 0L;("^3N[^AB!O 0L;("^3N[^@"!O 1,
XM[P # @L;("V3N[_6"!O 1,[P # @L;("V3N[^X ^P !
XM ( #\0 ( _( /J * 8 @
XM,@ %0 !< (" @(" @(" @,# P,# @(" @(" @(" @(" @
XM(" @(""00$! 0$! 0$! 0$! 0$! # P,# P,# P,#$! 0$! 0$ )"0D)"0D!
XM 0$! 0$! 0$! 0$! 0$! 0$! 4! 0$! 0 H*"@H*"@(" @(" @(" @(" @("
XM @(" @("0$! 0" /L !0 ! @ ,
XE$ /Q @ #\@ ^L #\@@
X
Xend
END_OF_FILE
echo 'Orignal Sum -> 23234 3'
echo -n 'Current Sum -> '
sum expose.uue
exit