Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!umich!samsung!uakari.primate.wisc.edu!xanth!cs.odu.edu!Amiga-Request
From: Amiga-Request@cs.odu.edu (Amiga Sources/Binaries Moderator)
Newsgroups: comp.sources.amiga
Subject: v90i062: FixIntuition - avoids lockup from lace/non-lace screen switching, Part01/01
Message-ID: <11356@xanth.cs.odu.edu>
Date: 10 Feb 90 19:26:35 GMT
Sender: tadguy@cs.odu.edu
Reply-To: "KOCH, KARL W" <kochk@uservx.afwl.af.mil>
Lines: 202
Approved: tadguy@cs.odu.edu (Tad Guy)
X-Mail-Submissions-To: Amiga@cs.odu.edu
X-Post-Discussions-To: comp.sys.amiga

Submitted-by: "KOCH, KARL W" <kochk@uservx.afwl.af.mil>
Posting-number: Volume 90, Issue 062
Archive-name: util/fixintuit

[ uuencoded executable included.  ...tad ]

I got this file from a local BBS and use it continuously on my Amiga
whose WorkBench screen is in hi-res.  I have never had a problem with
it.  I run ARPS commands, ARP-shell, VirusX4.0, Xoper2.2, GraBBit, and
DMouse along with the FixIntuition.  Previous to running FixIntuition,
my computer would lock up when switching between hi- and lo-res
screens.  I have not had that problem since I have run FixIntuition.

Karl Koch
kochk@uservx.afwl.af.mil
koch@arom-sun.afwl.af.mil

#!/bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of archive 1 (of 1)."
# Contents:  FixIntuition.c FixIntuition.uu fixintuition.lnk readme
# Wrapped by tadguy@xanth on Sat Feb 10 14:26:23 1990
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'FixIntuition.c' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'FixIntuition.c'\"
else
echo shar: Extracting \"'FixIntuition.c'\" \(927 characters\)
sed "s/^X//" >'FixIntuition.c' <<'END_OF_FILE'
X#include <proto/exec.h>
X#include <exec/libraries.h>
X#include <stdio.h>
X#include <string.h>
X#include <stdlib.h>
X#include <proto/dos.h>
X#include <proto/intuition.h> /* be sure LockIBase, UnlockIBase, ViewAddress */
X#include <intuition/intuitionbase.h>
X#include <graphics/view.h>
X
X/***********
X/*
X/* Using Lattice 5.0X : lc -v -O -cf FixIntuition
X/* Blink with FixIntuition.lnk
X/*
X/************/
Xvoid main(void);
X
Xvoid main()
X{
X ULONG lock;
X struct View *view;
X struct ViewPort *vp;
X 
X  if (!(IntuitionBase = 
X   (struct IntuitionBase *)OpenLibrary("intuition.library",33L)))
X    {
X     exit(0);
X    }
X  if (IntuitionBase->LibNode.lib_Version > 35)
X   {
X    CloseLibrary((struct Library *)IntuitionBase);
X    exit(0);
X   }
X  while(1)
X   {
X    lock = LockIBase( 4L );
X    view = ViewAddress();
X    for(vp=view->ViewPort;vp;vp = vp->Next)
X     if (vp->Modes & VP_HIDE) vp->DHeight = 0;
X    UnlockIBase(lock);
X    Delay(15L);
X   }
X}
END_OF_FILE
if test 927 -ne `wc -c <'FixIntuition.c'`; then
    echo shar: \"'FixIntuition.c'\" unpacked with wrong size!
fi
# end of 'FixIntuition.c'
fi
if test -f 'FixIntuition.uu' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'FixIntuition.uu'\"
else
echo shar: Extracting \"'FixIntuition.uu'\" \(2646 characters\)
sed "s/^X//" >'FixIntuition.uu' <<'END_OF_FILE'
Xbegin 664 FixIntuition
XM```#\P`````````#``````````(```%J````(@```(D```/I```!:B1()`!)!
XM^0````!'^0```(!R`"`\````:6`")L%1R/_\+'@`!"E.`+@I3P#`0JP`O"9N:
XM`11P`"(\```P`$ZN_LXI:P"8`+1*JP"L9P``<"`/D*\`!`:`````@"E``(1AY
XM``$N(&L`K-'(T<@B:``0T\G3R2`"<@`2&2E)`,C0@5*`0F=2@`)`__Z?P%6`T
XM0G<(`"`"4X#4@1^R```@`%."4<C_]A^\`"`@`%."'[$@`"``4<K_^")/+PE@Z
XM``!X*6L`.@"$<']2@-&L`(1A``#"0>L`7$ZN_H!!ZP!<3J[^C"E``+PO`"1`W
XM("H`)&<2+&P"%"!`(B@``"E!`+1.KO^"(BH`(&<:)#P```/M3J[_XBE``,1G(
XM"N6(($`G:``(`*0@;`"\+PA(;`"`(&@`)"EH``0`R$ZZ`'A.N@#@<`!@!"`O9
XM``0O`"`L`*QG!"!`3I!.N@0H+'@`!")L`A1.KOYB3KH`3DJL`+QG&B(L`,1GR
XM!$ZN_]PL>``$3J[_?")L`+Q.KOZ&(!\N;`#`3G5P9&"T0_H`$'``3J[]V"E`_
XM`A1G[$YU9&]S+FQI8G)A<GD`3G5.=4CG!S`N+P`8)F\`'"PO`"`O!TZZ`L18^
XM3R1`(`IF!'#_8#8(*@`#``-G$$AX``)"IR\'3KH`_$_O``PO!B\++RH`!$ZZ^
XM`9A/[P`,*@!*K`"89P1P_V`"(`5,WPS@3G4``````````'!A3E7_=$CG`3`F#
XM;P"@?@!P(+Z`;```@A`3<B"P`6<,<@FP`6<&<@JP`68$4HM@Z$H39V0@!^6`K
XM4H=![?]TT<`D2'`BL!-F)E*+)(M*$V<*<"*P$V<$4HM@\DH39@Q(>``!3KK^W
XMQ%A/8*9"&V"B)(M*$V<8$!-R(+`!9Q!R";`!9PIR"K`!9P12BV#D2A-F`F`&Y
XM0AM@`/]Z2H=G!D'M_W1@!"!L`+PO""\'3KH`$D*73KK^=DSM#(#_:$Y=3G5.%
XM^0````````````!(YP\0+B\`&"PO`!PJ+P`@+P=.N@&46$\F0"`+9@1P_V`>.
XM+P4O!B\K``1.N@#@3^\`#"@`2JP`F&<$</]@`B`$3-\(\$YU``````````!PE
XM84CG`Q`N+P`01^P`&"`+9S0(*P`"`!MF*`@K``$`&V<@("L`!)"K`!`L`$J&K
XM9Q(O!B\K`!`O*P`<3KK^1D_O``PF4V#(+P=.N@&L6$],WPC`3G4`````````-
XM`'!A2.<W$"XO`!PF;P`@+"\`)$JL`+!G!$ZZ`3!"K`"8(@<D"R8&+&P"%$ZNR
XM_]`J`'#_NH!F#DZN_WPI0`"8<`4I0`(0(`5,WPCL3G4`````````````````%
XM`````````'!A2.<_`"XO`!PL+P`@*B\`)$JL`+!G!$ZZ`-!"K`"8(`53@"('`
XM)`8F`"QL`A1.KO^^*`!P_[B`9@Y.KO]\*4``F'`6*4`"$"`%#(`````"9Q8,O
XM@`````%G"$J`9A@@!F`4(`30AF`.(@=T`'8`+&P"%$ZN_[Y,WP#\3G4``"\'4
XM+B\`"$JL`+!G!$ZZ`%XB!RQL`A1.KO_<<``N'TYU+P<N+P`(<``I0`"82H=K2
XM(KZL`!1L'"`'YX!![`#,2K`(`&<.(`?G@$'L`,S1P"`(8`AP"2E``A!P`"X?_
XM3G4``````````````````$CG`0)P`"(\```P`"QX``1.KO[.+@`"AP``,`!*4
XMAV8$<`!@($JL`+!G&"!L`+!.D$J`9@1P`&`,2'@`%$ZZ`!)83R`'3-]`@$YU:
XM8;1.=0``2.<'`"XO`!`@+``44X`L`$I&:S`@!DC`YX!![`#,*C`(`$H%9QH(-
XM!0`"9A0@!DC`YX!![`#,+S`(!$ZZ_PA83U-&8,PO!TZZ^])83TS?`.!.=0``U
XM2.<`,B9L`A@@"V<4)%,B2R`K``@L>``$3J[_+B9*8.B1R"E(`API2`(83-],=
XM`$YU```#[`````$````!```"U@````(````"````#`````8````````#\@``7
XM`^D````B2.<!$D/L``!P(2QX``1.KOW8*4`"#$J`9@A"ITZZ`&)83R!L`@PP\
XM*``4<B.P06,2(D@L>``$3J[^8D*G3KH`0EA/<`0L;`(,3J[^8BX`3J[^VB!`7
XM)E!@#@@K``4`(&<$0FL`&B93(`MF[B!'+&P"#$ZN_EQR#RQL`A1.KO\Z8,).=
XM^0```S!P80```^P````!`````````((````````#\@```^H````@:6YT=6ET.
XM:6]N+FQI8G)A<GD````````H````.@``````````````````````````````+
XM`````````````%P`````````````````````````````````````````````<
XM``````````````````````````````````````````````/L`````@````(`S
X/```Z````&`````````/R'
X``
Xend
Xsize 1860
END_OF_FILE
if test 2646 -ne `wc -c <'FixIntuition.uu'`; then
    echo shar: \"'FixIntuition.uu'\" unpacked with wrong size!
fi
# end of 'FixIntuition.uu'
fi
if test -f 'fixintuition.lnk' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'fixintuition.lnk'\"
else
echo shar: Extracting \"'fixintuition.lnk'\" \(86 characters\)
sed "s/^X//" >'fixintuition.lnk' <<'END_OF_FILE'
XFROM LIB:c.o+"fix.o"
XTO "FixIntuition"
XLIB LIB:lc.lib
XBATCH
XDEFINE __main=__tinymain
X
END_OF_FILE
if test 86 -ne `wc -c <'fixintuition.lnk'`; then
    echo shar: \"'fixintuition.lnk'\" unpacked with wrong size!
fi
# end of 'fixintuition.lnk'
fi
if test -f 'readme' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'readme'\"
else
echo shar: Extracting \"'readme'\" \(366 characters\)
sed "s/^X//" >'readme' <<'END_OF_FILE'
XHere is a fix for the intuition switch screen lace problem as
Xdescribed by jmackraz on bix.  It is a hack but it works.
Xto use it type :
Xrun <nil: >nil: FixIntuition
XShould run at a prio of about 2-4 I would think.
XThis version checks every 1/4 of a sec to fix the
Xsystem view structs!
X
XSomeone will surely do a better one but this works!
X
X-Roger
X
XThanks jmackraz!
X
END_OF_FILE
if test 366 -ne `wc -c <'readme'`; then
    echo shar: \"'readme'\" unpacked with wrong size!
fi
# end of 'readme'
fi
echo shar: End of archive 1 \(of 1\).
cp /dev/null ark1isdone
MISSING=""
for I in 1 ; do
    if test ! -f ark${I}isdone ; then
	MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have the archive.
    rm -f ark[1-9]isdone
else
    echo You still need to unpack the following archives:
    echo "        " ${MISSING}
fi
##  End of shell archive.
exit 0
-- 
Mail submissions (sources or binaries) to <amiga@cs.odu.edu>.
Mail comments to the moderator at <amiga-request@cs.odu.edu>.
Post requests for sources, and general dicussion to comp.sys.amiga.