96 lines
1.9 KiB
Plaintext
96 lines
1.9 KiB
Plaintext
|
Date: Sat, 16 Dec 95 01:48:00 GMT
|
||
|
|
X-Mailviewer: RRR/DIGITAL CANDY E-Mail
|
||
|
|
From: Paul Wellstead <Steve@dcandy.demon.co.uk>
|
||
|
|
To: achurch@goober.mbhs.edu
|
||
|
|
Subject: Int Ext
|
||
|
|
X-Smtp-Posting-Host: dcandy.demon.co.uk [Sat, 16 Dec 95 12:31:30 GMT]
|
||
|
|
X-Smtp-Posting-Host: post.demon.co.uk [Sat, 16 Dec 95 12:33:44 GMT]
|
||
|
|
|
||
|
|
achurch@goober.mbhs.edu
|
||
|
|
|
||
|
|
Hi Andy
|
||
|
|
|
||
|
|
I am sending you this privately cos I don't want to show myself up :-)
|
||
|
|
|
||
|
|
Right the Intuition Ext. Does it draw buttons on the screen as you would
|
||
|
|
expect it to?
|
||
|
|
|
||
|
|
When I use Igadget it defines (and reacts) to the zone where the button
|
||
|
|
should be but there is no visible button, surely we don't have to write in
|
||
|
|
our own button drawing routines do we? I did this and it slows things down
|
||
|
|
quite horribly. I am sure it's summit stupid I am doing, so can you put
|
||
|
|
me straight please?
|
||
|
|
|
||
|
|
|
||
|
|
I was attempting to write an easy to use Archiver/de-archiver called Exarc.
|
||
|
|
By the way the text gadget and sliders work fine.
|
||
|
|
I am using an A1200 4meg Amos Pro V2.
|
||
|
|
|
||
|
|
'requester title
|
||
|
|
Irequest Def Title "ExArc Request"
|
||
|
|
|
||
|
|
Iwindow_open Wb 0,0,0,640,200,"ExArc V1.0"
|
||
|
|
|
||
|
|
Itext 24,18,"Extract"
|
||
|
|
Itext 24,38,"Archive"
|
||
|
|
|
||
|
|
Reserve Igadget 2
|
||
|
|
Set Igadget Hit 1,24,10,64,12
|
||
|
|
Set Igadget Hit 2,24,30,64,12
|
||
|
|
|
||
|
|
Igadget On
|
||
|
|
Amos To Back
|
||
|
|
|
||
|
|
'main loop
|
||
|
|
|
||
|
|
Do
|
||
|
|
Multi Wait
|
||
|
|
EVENT=Iwait Event
|
||
|
|
|
||
|
|
A=Igadget Read(1)
|
||
|
|
If A=True
|
||
|
|
_EXTRACT
|
||
|
|
End If
|
||
|
|
|
||
|
|
A=Igadget Read(1)
|
||
|
|
If A=True
|
||
|
|
_ARCHIVE
|
||
|
|
End If
|
||
|
|
|
||
|
|
If EVENT=Ievent Close
|
||
|
|
Exit
|
||
|
|
End If
|
||
|
|
Loop
|
||
|
|
|
||
|
|
Itrap On
|
||
|
|
Iscreen Close 0
|
||
|
|
Itrap Off
|
||
|
|
Iwindow Close Wb 0
|
||
|
|
Amos To Front
|
||
|
|
Edit
|
||
|
|
|
||
|
|
|
||
|
|
Procedure _EXTRACT
|
||
|
|
Iwrite "extract ok"
|
||
|
|
End Proc
|
||
|
|
|
||
|
|
Procedure _ARCHIVE
|
||
|
|
Iwrite "archive ok"
|
||
|
|
End Proc
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
I haven't put the extension in the F1 cat yet as I would like to see how
|
||
|
|
this problem turns out. Our Amos customers would have my balls if you have
|
||
|
|
to write your own buttons (I am sure you don't but this needs to be sorted)
|
||
|
|
|
||
|
|
/\Steve Bye/\ steve@dcandy.demon.co.uk
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
--------------------
|
||
|
|
| F1 Licenceware |
|
||
|
|
--------------------
|