home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
324.lha
/
Gone
/
gone.cp
< prev
next >
Wrap
Text File
|
1989-12-12
|
2KB
|
77 lines
#include "exec/types.h"
#include <stdio.h>
#include <stdlib.h>
#include <intuition/intuition.h>
#include <graphics/gfxmacros.h>
#include <devices/input.h>
#include <devices/inputevent.h>
// this routine provided by the programmer
void displayroutine(struct RastPort *DRrastport,struct ListNode *list,short y)
{
struct Window *DRwindow;
DRwindow = (struct Window *)list;
if (DRwindow->Title)
{
SetAPen(DRrastport,2);
Move(DRrastport,2,y+6);
Text(DRrastport,DRwindow->Title,strlen(DRwindow->Title));
}
}
#include "poplist.hxx" // header file
#include "poplist.h" // methods
#include "gone.h" // window defines
// see comments for C++ in file poplist.h
BOOL Debug = 0; // set to 1 to print debug # to stdio
main()
/* The main program. Open an Intuition window in Workbench
with two gadgets, one to send a window to the front, the
second to send it to the back.
When a gadget is clicked on, call ScrollingPopUpMenu() and
pass it the list of Workbench windows. If the user selects
one of the windows, either call WindowToFront(window) or
WindowToBack(window), depending on which gadget was clicked.
*/
{
PopUpList popup_list;
if (popup_list.openflag == 0)
{
Gripe("Unable to open list manager.");
exit(20);
}
struct IntuiMessage *message;
struct Window *window;
struct Window *selectwindow;
long miclass; /* code*/
struct Gadget *gadget;
window =(struct Window *) OpenWindow(&wNewWindowStructure1);
if (window) {
for (;;) {
message = 0;
while (!message) {
WaitPort(window->UserPort);
message = (struct IntuiMessage *) GetMsg(window->UserPort);
}
miclass = message->Class;
gadget = (struct Gadget *) message->IAddress;
ReplyMsg(message);
if (miclass == CLOSEWINDOW) break;
selectwindow = (struct Window *)popup_list.ScrollingPopUpMenu(window->WScreen,(struct ListNode *)window->WScreen->FirstWindow,(WORD)8,(WORD)100,(WORD)4);
if (miclass == GADGETDOWN) {
if (gadget->GadgetID == 1) {
if (selectwindow) WindowToFront(selectwindow);
}
else if (gadget->GadgetID == 2) {
if (selectwindow) WindowToBack(selectwindow);
}
}
}
CloseWindow(window);
}
exit(20);
}