void handle_pushbuttons(void) {
static u8 s_last_pb = 0;
u8 new_pb;
// Check if push buttons have been pressed or released
new_pb = read_PB5();
if (new_pb == s_last_pb) return;
s_last_pb = new_pb;
//xil_printf("New Pushbuttons value: 0x%X\r\n", new_pb);
// Up/down
if (new_pb & PB5_N) { // Up pressed?
handle_menu(UP_PRESSED);
}
else if (new_pb & PB5_S) { // Down pressed?
handle_menu(DOWN_PRESSED);
}
// Left/right
if (new_pb & PB5_E) { // Right pressed?
handle_menu(RIGHT_PRESSED);
}
else if (new_pb & PB5_W) { // Left pressed?
handle_menu(LEFT_PRESSED);
}
// Center
if (new_pb & PB5_C) { // Center pressed?
handle_menu(CENTER_PRESSED);
}
}
void check(void)
{
int exit=FALSE;
RESULT svar;
char temp[MAXSTRING];
do
{
svar=form_dialog();
switch(svar.type)
{
case MENU_CLICKED:
exit=!handle_menu(svar);
break;
case DIALOG_CLICKED:
case WINDOW_CLICKED:
exit=!handle_window(svar);
break;
case KEY_CLICKED:
exit=!handle_key(svar);
break;
case BUTTON_CLICKED:
exit=!handle_button(svar);
break;
case TIMER_EXIT:
exit=TRUE;
break;
default:
sprintf(temp,"[1][ Meddelande #%d][ OK ]",svar.type);
alertbox(1,temp);
}
}while(!exit);
}
static void handle_msg(int16 *msg)
{
if (!message_wdial(msg))
{
switch (msg[0])
{
case MN_SELECTED:
handle_menu(msg[3], msg[4]);
break;
case WM_CLOSED :
case WM_BOTTOMED:
case WM_REDRAW:
case WM_NEWTOP:
case WM_TOPPED:
case WM_MOVED:
case WM_SIZED:
break;
case AC_OPEN:
open_wdial( wdial, -1, -1 );
break;
case AP_TERM :
quit = TRUE;
break;
}
}
}
static gboolean button_pressed(int x, int y)
{
if (menu_on && menubg &&
x < menubg->w &&
y < menubg->h) {
if (handle_menu(x, y))
refresh_window();
return TRUE;
}
if (menuicon &&
x < menuicon->w &&
y < menuicon->h) {
menu_on = TRUE;
refresh_window();
return TRUE;
}
int t = find_box(x, y);
if (t < 0)
return FALSE;
int tatami = point_click_areas[t].tatami;
last_wins[tatami-1].cat = match_list[tatami-1][0].category;
last_wins[tatami-1].num = match_list[tatami-1][0].number;
refresh_window();
return TRUE;
}
/*
** Description
** Wait for events and update windows
*/
static
void
updatewait(void)
{
WORD quit = FALSE;
int ant_klick;
WORD buffert[16];
WORD happ;
int knapplage;
int tangent,tanglage;
int x,y;
while(!quit)
{
happ = evnt_multi(MU_KEYBD | MU_MESAG,
0,0,0,0,0,0,0,0,0,0,0,0,0,
buffert,0,&x,&y,&knapplage,&tanglage,
&tangent,&ant_klick);
if (happ & MU_MESAG)
{
if (buffert[0] == MN_SELECTED)
{
quit = handle_menu(buffert);
}
}
else if((happ & MU_KEYBD) && ((tangent & 0xff) == 'q'))
{
quit = TRUE;
}
}
}
LRESULT CALLBACK DialogProc(const HWND hWnd,
const UINT Msg,
const WPARAM wParam,
const LPARAM lParam)
{
LRESULT res = 0;
switch (Msg) {
case WM_CREATE:
g_hWndMain = hWnd;
if (FALSE == InitDialog()){
DestroyWindow(g_hWndMain);
}
break;
case WM_CLOSE:
DestroyWindow(g_hWndMain);
break;
case WM_DESTROY:
if (g_hWndMenuBar)
DestroyWindow(g_hWndMenuBar);
g_hWndMenuBar = NULL;
g_hWndMain = NULL;
PostQuitMessage(0);
break;
case WM_HOTKEY:
/* Exit app when back is pressed. */
if (VK_TBACK == HIWORD(lParam) && (0 != (MOD_KEYUP & LOWORD(lParam)))) {
DestroyWindow(g_hWndMain);
} else {
return DefWindowProc(hWnd, Msg, wParam, lParam);
}
break;
case WM_COMMAND:
res = handle_menu(LOWORD(wParam));
break;
default:
return DefWindowProc(hWnd, Msg, wParam, lParam);
}
return res;
}
int main()
{
//SWICH_D = 0x00; // read from swich
lcd_init();
lcd_cursor_on();
lcd_set_position(0,0);
init_dcf77_interupt();
home_init();
/*timer_init();*/
while (1)
{
handle_menu();
}
return 0;
}
void check(void)
{
int exit=FALSE;
RESULT svar;
do
{
svar=form_dialog();
switch(svar.type)
{
case MENU_CLICKED:
exit=!handle_menu(svar);
break;
case DIALOG_CLICKED:
case WINDOW_CLICKED:
exit=!handle_window(svar);
break;
case KEY_CLICKED:
exit=!handle_key(svar);
break;
case BUTTON_CLICKED:
exit=!handle_button(svar);
break;
case TIMER_EXIT:
check_port();
break;
default:
switch(svar.data[0])
{
char temp[MAXSTRING];
case 0x400: /* ACC_ID */
case 0x4700: /* AV_PROTOKOLL */
case 0x4724: /* VA_ACCWINDOPEN */
case 0x4726: /* AV_ACCWINDCLOSED */
break;
default:
sprintf(temp,"[1][ Message %#lx|From %d|%d,%d,%d,%d,%d][ NEXT ]",svar.data[0],svar.data[1],
(unsigned short)svar.data[3],(unsigned short)svar.data[4],(unsigned short)svar.data[5],(unsigned short)svar.data[6],(unsigned short)svar.data[7]);
alertbox(1,temp);
break;
}
}
}while(!exit);
}
void MON_LABELS::import_menu()
{
find_xas();
find_alasm();
MENUITEM items[MAX_ALASM_LTABLES+4] = { 0 };
unsigned menuptr = 0;
items[menuptr].text = xas_errstr;
items[menuptr].flags = xaspage? (MENUITEM::FLAGS)0 : MENUITEM::DISABLED;
menuptr++;
char alasm_text[MAX_ALASM_LTABLES][64];
if (!alasm_found_tables) {
sprintf(alasm_text[0], "No ALASM labels in whole %dK memory", conf.ramsize);
items[menuptr].text = alasm_text[0];
items[menuptr].flags = MENUITEM::DISABLED;
menuptr++;
} else {
for (unsigned i = 0; i < alasm_found_tables; i++) {
sprintf(alasm_text[i], "%d ALASM labels in page %d, offset #%04X", alasm_count[i], alasm_offset[i]/PAGE, (alasm_offset[i] & 0x3FFF) | 0xC000);
items[menuptr].text = alasm_text[i];
items[menuptr].flags = (MENUITEM::FLAGS)0;
menuptr++;
}
}
items[menuptr].text = nil;
items[menuptr].flags = MENUITEM::DISABLED;
menuptr++;
items[menuptr].text = "CANCEL";
items[menuptr].flags = MENUITEM::CENTER;
menuptr++;
MENUDEF menu = { items, menuptr, "import labels" };
if (!handle_menu(&menu)) return;
if (menu.pos == 0) import_xas();
menu.pos--;
if ((unsigned)menu.pos < alasm_found_tables) import_alasm(alasm_offset[menu.pos], alasm_text[menu.pos]);
}
int16 main(void)
{
GRECT n = {0,0,0,0};
GRECT r1;
EVNTDATA ev;
int16 bclicks, bmask, bstate;
boolean leave;
quit = FALSE;
debug_init("MControl", null, NULL);
init_app("mcontrol.rsc");
init_rsrc();
init_conf();
init_dial();
init_comm();
init_beta();
/* Callback f�r modale Fensterdialoge, Fenster-Alerts usw. */
set_mdial_wincb(handle_msg);
graf_mkstate( &ev );
wdial_hover( ev.x, ev.y, &r1, &leave );
while (!quit)
{
mbutton = 0;
if( !((ev.bstate) & 3) )
bclicks = 258;
else
bclicks = 0;
bmask = 3;
bstate = 0;
event = evnt_multi( MU_BUTTON|MU_M1|MU_MESAG|MU_KEYBD,
bclicks, bmask, bstate,
leave, &r1, 0, &n,
msg,
0l,
&ev,
&kreturn, &mclick );
msx = ev.x;
msy = ev.y;
mbutton = ev.bstate;
kstate = ev.kstate;
if (event & MU_MESAG)
{
if( msg[0] == WM_MOVED )
wdial_hover( msx, msy, &r1, &leave );
handle_msg(msg);
}
if (event & MU_BUTTON)
{
if( mbutton == 2 )
menu_context( msx, msy );
else if (!click_wdial(mclick, msx, msy, kstate, mbutton))
;
}
if (event & MU_M1)
wdial_hover( msx, msy, &r1, &leave );
if (event & MU_KEYBD)
{
int16 title, item;
if (is_menu_key(kreturn, kstate, &title, &item))
handle_menu(title, item);
else
{
key_wdial(kreturn, kstate);
key_sdial(kreturn, kstate);
}
}
}
exit_comm();
exit_dial();
exit_rsrc();
debug_exit();
exit_app(0);
return 0;
}
LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
PAINTSTRUCT ps;
POINT press;
HMENU menu;
switch (message) {
case WM_KEYDOWN:
if (hwnd != mainPtr)
check_cd_event(hwnd,message,wParam,lParam);
return 0;
break;
case WM_CHAR:
if (hwnd != mainPtr)
check_cd_event(hwnd,message,wParam,lParam);
return 0;
break;
case WM_LBUTTONDOWN:
cursor_stay();
if (hwnd != mainPtr)
check_cd_event(hwnd,message,wParam,lParam);
else {
SetFocus(hwnd);
press = MAKEPOINT(lParam);
All_Done = handle_action(press, wParam,lParam);
check_game_done();
}
return 0;
break;
case WM_RBUTTONDOWN:
cursor_stay();
if (hwnd != mainPtr)
check_cd_event(hwnd,message,wParam,lParam);
return 0;
break;
case WM_ACTIVATE:
if (hwnd == mainPtr) {
if ((LOWORD(wParam) == WA_ACTIVE) ||(LOWORD(wParam) == WA_CLICKACTIVE)) {
window_in_front = TRUE;
}
if (LOWORD(wParam) == WA_INACTIVE) {
window_in_front = FALSE;
}
}
return 0;
case WM_MOUSEMOVE:
set_cursor(sword_curs);
return 0;
case WM_PAINT:
BeginPaint(hwnd,&ps);
EndPaint(hwnd,&ps);
if (hwnd != mainPtr)
check_cd_event(hwnd,message,wParam,lParam);
else redraw_screen();
return 0;
case WM_COMMAND:
if (hwnd == mainPtr) {
menu = GetMenu(mainPtr);
handle_menu((short) LOWORD(wParam), menu);
check_game_done();
}
else {
check_cd_event(hwnd,message,wParam,lParam);
}
return 0;
case WM_DESTROY:
case WM_CLOSE:
if (hwnd == mainPtr) {
lose_graphics();
PostQuitMessage(0);
}
return 0;
case WM_QUIT:
if (hwnd == mainPtr){
lose_graphics();
PostQuitMessage(0);
}
break;
}
return DefWindowProc(hwnd,message,wParam,lParam);
}
LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam)
{
PAINTSTRUCT ps;
POINT press;
HMENU menu;
RECT dlg_rect;
RECT wind_rect;
short handled = 0;
short store_ulx;
short store_uly;
short sbar_pos;
short which_sbar;
short old_setting;
short smin;
short smax;
// First, handle window size
GetWindowRect(mainPtr,&wind_rect);
switch (display_mode) { //case 0 is center
case 1:
store_ulx = 0;
store_uly = 0;
break;
case 2:
store_ulx = wind_rect.right - 550 - 21;
store_uly = 0;
break;
case 3:
store_ulx = 0;
store_uly = wind_rect.bottom - 422 - 24 - 21;
break;
case 4:
store_ulx = wind_rect.right - 550 - 21;
store_uly = wind_rect.bottom - 422 - 24 - 21;
break;
case 5:
store_ulx = 0;
store_uly = 0;
break;
default:
store_ulx = ((wind_rect.right - wind_rect.left) - 536) / 2 - 30;
store_uly = ((wind_rect.bottom - wind_rect.top) - 478) / 2 + 8;
break;
}
store_ulx -= store_ulx % 8;
store_uly -= store_uly % 8;
if ((store_ulx != ulx) || (store_uly != uly))
{
ulx = store_ulx;
uly = store_uly;
adjust_window_mode();
}
switch (message) {
case WM_KEYDOWN:
if (hwnd != mainPtr)
check_cd_event(hwnd,message,wParam,lParam);
else {
cursor_go();
All_Done = handle_syskeystroke(wParam,lParam,&handled);
check_game_done();
}
if (handled == 1)
FlushEvents(0);
return 0;
case WM_CHAR:
if (hwnd != mainPtr)
check_cd_event(hwnd,message,wParam,lParam);
else {
cursor_go();
All_Done = handle_keystroke(wParam,lParam);
check_game_done();
}
return 0;
case WM_LBUTTONDOWN:
cursor_stay();
if (hwnd != mainPtr) check_cd_event(hwnd,message,wParam,lParam);
else {
SetFocus(hwnd);
press = MAKEPOINT(lParam);
if (in_startup_mode == false)
All_Done = handle_action(press, wParam,lParam);
else All_Done = handle_startup_press(press);
change_cursor(press);
check_game_done();
}
return 0;
break;
case WM_RBUTTONDOWN:
cursor_stay();
if (hwnd != mainPtr)
check_cd_event(hwnd,message,wParam,lParam);
else {
SetFocus(hwnd);
press = MAKEPOINT(lParam);
if (in_startup_mode == false)
All_Done = handle_action(press, wParam,-2);
else All_Done = handle_startup_press(press);
change_cursor(press);
check_game_done();
}
return 0;
break;
case WM_ACTIVATE:
if (hwnd == mainPtr)
{
WORD fActive = LOWORD(wParam);
if ((fActive == WA_ACTIVE) ||(fActive == WA_CLICKACTIVE))
{
window_in_front = true;
GetClientRect(hwnd,&dlg_rect);
InvalidateRect(hwnd,&dlg_rect,false);
}
if (fActive == WA_INACTIVE)
{
cursor_stay();
anim_onscreen = false;
window_in_front = false;
}
}
return 0;
case WM_ERASEBKGND:
if (hwnd != mainPtr) break;
block_erase = false;
return 1;
case WM_MOUSEMOVE:
if (store_mouse != lParam) cursor_stay();
store_mouse = lParam;
press = MAKEPOINT(lParam);
if (hwnd == mainPtr) {
change_cursor(press);
if ((overall_mode > MODE_COMBAT) && (overall_mode < MODE_TALKING))
draw_targeting_line(press);
}
return 0;
case WM_PAINT:
if ((block_erase == true) && (hwnd == mainPtr)) {
block_erase = false;
}
BeginPaint(hwnd,&ps);
EndPaint(hwnd,&ps);
if (hwnd != mainPtr)
check_cd_event(hwnd,message,wParam,lParam);
else {
string_added = true;
reset_text_bar();
if (in_startup_mode == true) draw_startup(0);
else if (first_update == true)
{
first_update = false;
if (overall_mode == MODE_OUTDOORS) redraw_screen(0);
if ((overall_mode > MODE_OUTDOORS) & (overall_mode < MODE_COMBAT)) redraw_screen(1);
// 1st update never combat
}
else refresh_screen(overall_mode);
}
return 0;
case WM_TIMER:
switch(wParam) {
case 1:
if ((in_startup_mode == false) && (anim_onscreen == true)
&& (window_in_front == true) && (give_delays == false)) {
if(PSD[SDF_NO_TER_ANIM] != 1)
anim_ticks++;
initiate_redraw();
}
break;
case 2:
if ((overall_mode > MODE_COMBAT) && (overall_mode < MODE_TALKING)) {
GetCursorPos(&press);
press.x -= wind_rect.left + 3;
press.y -= wind_rect.top + 41;
draw_targeting_line(press);
}
if ((in_startup_mode == true) && (window_in_front == true))
draw_startup_anim();
break;
}
return 0;
case WM_COMMAND: // 1006 is dummy event
// creation events 2000 spend xp 2001 pick graphic 2002 finish up
if (hwnd == mainPtr) {
menu = GetMenu(mainPtr);
All_Done = handle_menu((short) LOWORD(wParam), menu);
check_game_done();
}
else check_cd_event(hwnd,message,wParam,lParam);
return 0;
case WM_VSCROLL:
which_sbar = GetWindowLong((HWND) lParam, GWL_ID);
switch (which_sbar) {// 1 text 2 items 3 shop
case 1:
sbar_pos = GetScrollPos(text_sbar,SB_CTL);
switch (wParam ) {
case SB_PAGEDOWN:
sbar_pos += 11;
break;
case SB_LINEDOWN:
sbar_pos++;
break;
case SB_PAGEUP:
sbar_pos -= 11;
break;
case SB_LINEUP:
sbar_pos--;
break;
case SB_TOP:
sbar_pos = 0;
break;
case SB_BOTTOM:
sbar_pos = 57;
break;
case SB_THUMBPOSITION:
case SB_THUMBTRACK:
sbar_pos = LOWORD(lParam);
break;
}
if (sbar_pos < 0) sbar_pos = 0;
if (sbar_pos > 58) sbar_pos = 58;
{
// SetScrollPos(text_sbar,SB_CTL,sbar_pos,true);
lpsi.nPos = sbar_pos;
lpsi.fMask = SIF_POS;
SetScrollInfo(text_sbar,SB_CTL,&lpsi,true);
}
string_added = true;
print_buf();
break;
case 2:
old_setting = sbar_pos = GetScrollPos(item_sbar,SB_CTL);
GetScrollRange(item_sbar,SB_CTL,(int *) &smin,(int *) &smax);
switch (wParam ) {
case SB_PAGEDOWN:
sbar_pos += (stat_window == 7) ? 2 : 8;
break;
case SB_LINEDOWN:
sbar_pos++;
break;
case SB_PAGEUP:
sbar_pos -= (stat_window == 7) ? 2 : 8;
break;
case SB_LINEUP:
sbar_pos--;
break;
case SB_TOP:
sbar_pos = 0;
break;
case SB_BOTTOM:
sbar_pos = smax;
break;
case SB_THUMBPOSITION:
case SB_THUMBTRACK:
sbar_pos = LOWORD(lParam);
break;
}
if (sbar_pos < 0) sbar_pos = 0;
if (sbar_pos > smax) sbar_pos = smax;
{
// SetScrollPos(item_sbar,SB_CTL,sbar_pos,true);
lpsi.nPos = sbar_pos;
lpsi.fMask = SIF_POS;
SetScrollInfo(item_sbar,SB_CTL,&lpsi,true);
}
if (sbar_pos != old_setting)
put_item_screen(stat_window,1);
break;
case 3:
old_setting = sbar_pos = GetScrollPos(shop_sbar,SB_CTL);
GetScrollRange(shop_sbar,SB_CTL,(int *) &smin,(int *) &smax);
switch (wParam ) {
case SB_PAGEDOWN:
sbar_pos += 8;
break;
case SB_LINEDOWN:
sbar_pos++;
break;
case SB_PAGEUP:
sbar_pos -= 8;
break;
case SB_LINEUP:
sbar_pos--;
break;
case SB_TOP:
sbar_pos = 0;
break;
case SB_BOTTOM:
sbar_pos = smax;
break;
case SB_THUMBPOSITION:
case SB_THUMBTRACK:
sbar_pos = LOWORD(lParam);
break;
}
if (sbar_pos < 0) sbar_pos = 0;
if (sbar_pos > smax) sbar_pos = smax;
{
// SetScrollPos(shop_sbar,SB_CTL,sbar_pos,true);
lpsi.nPos = sbar_pos;
lpsi.fMask = SIF_POS;
SetScrollInfo(shop_sbar,SB_CTL,&lpsi,true);
}
if (sbar_pos != old_setting)
draw_shop_graphics(0,shop_sbar_rect);
break;
}
SetFocus(mainPtr);
return 0;
case WM_DESTROY:
case WM_CLOSE:
if (hwnd == mainPtr)
{
lose_graphics();
PostQuitMessage(0);
}
return 0;
case WM_QUIT:
if (hwnd == mainPtr)
lose_graphics();
break;
}
return DefWindowProc(hwnd,message,wParam,lParam);
}
long CALLBACK WndProc (HWND hwnd, UINT message,WPARAM wParam, LPARAM lParam)
{
HDC hdc;
PAINTSTRUCT ps;
//RECT s_rect = {0,0,30,30},d_rect = {0,0,30,30},d2 = {0,0,420,216},s2 = {0,0,420,216};
POINT press;
short handled = 0,sbar_pos = 0,old_setting;
long which_sbar;
int min = 0, max = 0;
HMENU menu;
POINT p;
RECT r;
switch (message) {
case WM_KEYDOWN:
if (hwnd != mainPtr) {
check_cd_event(hwnd,message,wParam,lParam);
}
else {
All_Done = handle_syskeystroke(wParam,lParam,&handled);
}
return 0;
break;
case WM_CHAR:
if (hwnd != mainPtr)
check_cd_event(hwnd,message,wParam,lParam);
else {
All_Done = handle_keystroke(wParam,lParam);
}
return 0;
break;
case WM_LBUTTONDOWN:
cursor_stay();
if (hwnd != mainPtr)
check_cd_event(hwnd,message,wParam,lParam);
else {
SetFocus(hwnd);
press = MAKEPOINT(lParam);
All_Done = handle_action(press, wParam,lParam);
check_game_done();
}
return 0;
break;
case WM_LBUTTONUP:
mouse_button_held = FALSE;
break;
case WM_RBUTTONDOWN:
mouse_button_held = FALSE;
cursor_stay();
if (hwnd != mainPtr)
check_cd_event(hwnd,message,wParam,lParam);
else {
SetFocus(hwnd);
press = MAKEPOINT(lParam);
All_Done = handle_action(press, wParam,-2);
check_game_done();
}
return 0;
break;
case WM_TIMER:
// first, mouse held?
if ((wParam == 1) && (mouse_button_held == TRUE)) {
GetCursorPos(&p);
ScreenToClient(mainPtr,&p);
All_Done = handle_action(p, 0,0);
}
// second, refresh cursor?
if ((wParam == 1) && (overall_mode < 60) && (GetFocus() == mainPtr)) {
GetCursorPos(&p);
ScreenToClient(mainPtr,&p);
GetClientRect(mainPtr,&r);
if (PtInRect(&r,p))
restore_cursor();
}
if(play_anim == TRUE){
anim_ticks++;
if(overall_mode < 60){
draw_terrain();
}
if(overall_mode == 62){
if(store_ter.picture >= 2000)
csp(813,14,store_ter.picture - 2000, 5);
else if (store_ter.picture >= 400 && store_ter.picture < 1000)
csp(813,14,store_ter.picture - 100, 0);
if(do_choose_anim == TRUE){
put_choice_pics();
}
}
}
break;
case WM_PALETTECHANGED:
palette_suspect = TRUE;
return 0;
case WM_ACTIVATE:
if (hwnd == mainPtr) {
if (((wParam == WA_ACTIVE) ||(wParam == WA_CLICKACTIVE)) &&
(palette_suspect == TRUE)) {
palette_suspect = FALSE;
}
if ((wParam == WA_ACTIVE) ||(wParam == WA_CLICKACTIVE)) {
window_in_front = TRUE;
}
if (wParam == WA_INACTIVE) {
window_in_front = FALSE;
}
}
return 0;
case WM_MOUSEMOVE:
if ((mouse_button_held == TRUE) && (hwnd == mainPtr)) {
press = MAKEPOINT(lParam);
All_Done = handle_action(press, wParam,lParam);
}
restore_cursor();
return 0;
case WM_PAINT:
hdc = BeginPaint(hwnd,&ps);
EndPaint(hwnd,&ps);
if (hwnd != mainPtr)
check_cd_event(hwnd,message,wParam,lParam);
else redraw_screen();
return 0;
case WM_VSCROLL:
which_sbar = GetWindowLong((HWND) lParam, GWL_ID);
switch (which_sbar) {
case 1:
sbar_pos = GetScrollPos(right_sbar,SB_CTL);
old_setting = sbar_pos;
GetScrollRange(right_sbar,SB_CTL,&min,&max);
switch (LOWORD(wParam)) {
case SB_PAGEDOWN: sbar_pos += NRSONPAGE - 1; break;
case SB_LINEDOWN: sbar_pos++; break;
case SB_PAGEUP: sbar_pos -= NRSONPAGE - 1; break;
case SB_LINEUP: sbar_pos--; break;
case SB_TOP: sbar_pos = 0; break;
case SB_BOTTOM: sbar_pos = max; break;
case SB_THUMBPOSITION:
case SB_THUMBTRACK:
sbar_pos = HIWORD(wParam);
break;
}
if (sbar_pos < 0)
sbar_pos = 0;
if (sbar_pos > max)
sbar_pos = max;
lpsi.fMask = SIF_POS;
lpsi.nPos = sbar_pos;
SetScrollInfo(right_sbar,SB_CTL,&lpsi,TRUE);
// SetScrollPos(right_sbar,SB_CTL,sbar_pos,TRUE);
if (sbar_pos != old_setting)
draw_rb();
break;
}
SetFocus(mainPtr);
return 0;
case WM_COMMAND:
if (hwnd == mainPtr) {
menu = GetMenu(mainPtr);
handle_menu((short) wParam, menu);
check_game_done();
}
else {
check_cd_event(hwnd,message,wParam,lParam);
}
return 0;
case WM_DESTROY:
case WM_CLOSE:
if (hwnd == mainPtr) {
discard_graphics();
PostQuitMessage(0);
}
return 0;
case WM_QUIT:
if (hwnd == mainPtr)
discard_graphics();
break;
}
return DefWindowProc(hwnd,message,wParam,lParam);
}
/*** Handle events coming from main window: ***/
void dispatch_events()
{
extern ULONG sigmainwnd, swinsig;
extern UBYTE record;
BYTE scrolldisp=0, state=0, cnt=0, mark=0, quit = 0;
while( quit == 0 )
{
/* Active collect, when pressing arrow gadgets */
sigrcvd = (state==0 ? Wait(sigbits) : sigmainwnd);
/* if(sigrcvd & SIGBREAKF_CTRL_C) break;
else */ if(sigrcvd & sigport) { handle_port(); continue; }
else if(sigrcvd & swinsig) { handle_search(); continue; }
/* Collect messages posted to the window port */
while( ( msg = (struct IntuiMessage *) GetMsg(Wnd->UserPort) ) )
{
/* Copy the entire message into the buffer */
CopyMemQuick(msg, &msgbuf, sizeof(msgbuf));
ReplyMsg( (struct Message *) msg );
switch( msgbuf.Class )
{
case IDCMP_CLOSEWINDOW: handle_menu(112); break;
case IDCMP_RAWKEY:
handle_kbd(edit);
if(record) {
if(record == 1) reg_act_com(MAC_ACT_SHORTCUT, msgbuf.Code, msgbuf.Qualifier);
else record &= 0x7f;
}
break;
case IDCMP_INTUITICKS:
/* An error message which needs to be removed? */
if(err_time == 0) err_time = msgbuf.Seconds;
if(err_time && msgbuf.Seconds-err_time>4) StopError(Wnd);
break;
case IDCMP_MOUSEBUTTONS:
/* Click somewhere in the text */
switch( msgbuf.Code )
{
case SELECTDOWN:
/* Click over the project bar ? */
if(msgbuf.MouseY < gui.top)
{
edit = select_panel(edit, msgbuf.MouseX);
break;
}
click(edit, msgbuf.MouseX, msgbuf.MouseY, FALSE);
/* Shift-click to use columnar selection */
if( ( move_selection = SwitchSelect(edit, msgbuf.Qualifier & SHIFTKEYS ? 1:0, 1) ) )
mark=TRUE;
break;
case SELECTUP:
if(mark) unclick(edit);
mark=FALSE; scrolldisp=0; break;
}
break;
case IDCMP_NEWSIZE:
new_size(EDIT_ALL);
break;
case IDCMP_GADGETDOWN: /* Left scroll bar */
if(msgbuf.IAddress == (APTR) &Prop->down) state=1;
if(msgbuf.IAddress == (APTR) &Prop->up) state=2;
break;
case IDCMP_GADGETUP: /* Arrows or prop gadget */
state=0;
if(msgbuf.IAddress == (APTR) Prop)
scroll_disp(edit, FALSE), scrolldisp=0;
break;
case IDCMP_MOUSEMOVE:
if(mark) scrolldisp=2;
else
if(Prop->scroller.Flags & GFLG_SELECTED) scrolldisp=1;
break;
case IDCMP_MENUPICK:
{ struct MenuItem * Item;
ULONG MenuId;
/* Multi-selection of menu entries */
while(msgbuf.Code != MENUNULL)
if( (Item = ItemAddress( Menu, msgbuf.Code )) )
{
/* stegerg: get NextSelect here in case menu action causes screen
to be closed/reopened in which case item becomes invalid.
Also assuming here that user in such case will not use
multiselection, ie. that nextselect will be MENUNULL.
If that's not the case it would mean more trouble and to protect
against that one would need to check if during handle_menu() the
screen has been closed/reopened and in that case break out of
the menu multiselection loop here. */
UWORD nextselect = Item->NextSelect;
MenuId = (ULONG)GTMENUITEM_USERDATA( Item );
handle_menu( MenuId );
if(record) reg_act_com(MAC_ACT_COM_MENU, MenuId, msgbuf.Qualifier);
else record &= 0x7f;
msgbuf.Code = nextselect;
}
}
}
}
/* Reduces the number of IDCMP mousemove messages to process */
if(scrolldisp==1) scroll_disp(edit, FALSE), scrolldisp=0;
if(scrolldisp==2) { scrolldisp=0; goto moveit; }
/* User may want to auto-scroll the display using arrow gadgets */
if(state && (mark || (((struct Gadget *)Prop)[state].Flags & GFLG_SELECTED))) {
/* Slow down animation: */
WaitTOF(); cnt++;
if(cnt>1) {
cnt=0;
if(autoscroll(edit,state==1 ? 1:-1)==0) state=0;
else if(mark) {
LONG x , y; moveit:
/* Adjust mouse position */
x = (msgbuf.MouseX-gui.left) / XSIZE;
y = (msgbuf.MouseY-gui.top) / YSIZE;
if(x < 0) x = 0; if(x >= gui.nbcol) x = gui.nbcol-1;
if(y < 0) y = -1; if(y > gui.nbline) y = gui.nbline;
edit->nbrwc = (x += edit->left_pos);
y += (LONG)edit->top_line;
if( x != edit->ccp.xc || y != edit->ccp.yc )
/* Move the selected stream */
if( !(state = move_selection(edit,x,y)) )
set_cursor_line(edit, y, edit->top_line),
inv_curs(edit,TRUE);
}
}
} /* endif: arrow gadget pressed or autoscroll */
}
}
void handle_msg(int *msg)
{
WINDOWP window;
wake_mouse();
window= get_window(msg[3]); /* Zugeh�riges Fenster */
switch (msg[0]) /* Art der Nachricht */
{
case MN_SELECTED:
if (makro_rec) /* Makro wird Tastendruck vorgegaukelt */
{
int kstate, kreturn;
char str[50];
get_string(menu, msg[4], str);
if (str_to_key(str, &kstate, &kreturn))
{
kstate |= (kstate & 3);
to_makro(kstate, kreturn);
}
}
handle_menu(msg[3], msg[4], menu_ctrl);
menu_ctrl = FALSE;
break;
case WM_REDRAW :
if (msg[3] == akt_handle)
redraw_aktion();
else
redraw_window (window, (GRECT*)(msg+4));
break;
case WM_CLOSED :
do_icon(window->handle, DO_DELETE);
break;
case WM_FULLED :
full_window (window);
break;
case WM_ARROWED :
arrow_window (window, msg[4], 1);
break;
case WM_HSLID :
h_slider (window, msg[4]);
break;
case WM_VSLID :
v_slider (window, msg[4]);
break;
case WM_SIZED :
size_window (window, (GRECT*)(msg+4), TRUE);
break;
case WM_MOVED :
move_window (window, (GRECT*)(msg+4));
break;
case WM_NEWTOP : /* Fenster von qed ist irgendwie nach oben gekommen */
case WM_ONTOP :
ontop_window(window);
break;
case WM_TOPPED :
top_window (window);
break;
case WM_UNTOPPED: /* qed hat jetzt nicht mehr das Top-Fenster */
untop_window (window);
break;
case WM_BOTTOMED: /* AES 4.00 MagiC 3 : Fenster nach hinten */
case WM_M_BDROPPED : /* Magic 2 */
bottom_window (window, msg[0]);
break;
case WM_ICONIFY:
iconify_window(window, (GRECT*)(msg+4));
break;
case WM_ALLICONIFY:
all_iconify(window, (GRECT*)(msg+4));
break;
case WM_UNICONIFY:
if (all_iconified)
all_uniconify(NULL, (GRECT*)(msg+4));
else
uniconify_window(window, (GRECT*)(msg+4));
break;
case WM_SHADED :
case WM_UNSHADED :
shade_window(window, msg[0]);
break;
case AP_TERM:
if (all_iconified)
all_uniconify(NULL, NULL);
quick_close = TRUE;
if (prepare_quit())
do_quit();
break;
case AP_DRAGDROP :
if (all_iconified)
Bconout(2, 7);
else
handle_dd(msg);
break;
case SC_CHANGED :
/*
* Ignorieren, da wir vor dem Paste sowieso neu laden.
*/
break;
case VA_START :
case VA_PROTOSTATUS :
case VA_DRAG_COMPLETE :
case VA_DRAGACCWIND :
case AV_SENDKEY :
handle_av(msg);
break;
case SE_INIT:
case SE_OK:
case SE_ACK:
case SE_OPEN:
case SE_ERROR:
case SE_ERRFILE:
case SE_PROJECT:
case SE_QUIT:
case SE_TERMINATE:
case SE_CLOSE :
case SE_MENU :
if (all_iconified)
all_uniconify(NULL, NULL);
handle_se(msg);
break;
case OLGA_INIT :
case OLE_NEW :
case OLGA_ACK :
case OLE_EXIT :
handle_olga(msg);
break;
case SH_WDRAW: /* schickt Freedom st�ndig */
case DHST_ACK: /* SMU antwortet */
/* ignore */
break;
case FONT_CHANGED :
if (msg[4] != 0)
font_id = msg[4];
if (msg[5] != 0)
font_pts = msg[5];
font_change();
break;
default:
if (debug_level)
{
char str[12];
int d, i, id;
if ((appl_xgetinfo(4, &d, &d, &i, &d)) && (i == 1)) /* gibts appl_search? */
{
i = appl_search(0, str, &d, &id);
while (i != 0)
{
if (id == msg[1])
break;
i = appl_search( 1, str, &d, &id);
}
}
else
{
strcpy(str, "");
id = msg[1];
}
debug("Unbekannte Msg %d (0x%X) von %s (%d)\n", msg[0], msg[0], str, id);
}
break;
}
}
static LRESULT WINAPI
fuse_window_proc( HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam )
{
switch( msg ) {
#if defined USE_JOYSTICK && !defined HAVE_JSW_H
case WM_CREATE:
if( joysticks_supported > 0 )
if( joySetCapture( hWnd, JOYSTICKID1, 0, FALSE ) )
ui_error( UI_ERROR_ERROR, "Couldn't start capture for joystick 1" );
if( joysticks_supported > 1 )
if( joySetCapture( hWnd, JOYSTICKID2, 0, FALSE ) )
ui_error( UI_ERROR_ERROR, "Couldn't start capture for joystick 2" );
break;
#endif /* if defined USE_JOYSTICK && !defined HAVE_JSW_H */
case WM_COMMAND:
if( ! handle_menu( LOWORD( wParam ), hWnd ) )
return 0;
break;
case WM_DROPFILES:
handle_drop( ( HDROP )wParam );
return 0;
case WM_CLOSE:
menu_file_exit( 0 );
return 0;
case WM_KEYDOWN:
win32keyboard_keypress( wParam, lParam );
return 0;
case WM_KEYUP:
win32keyboard_keyrelease( wParam, lParam );
return 0;
case WM_PAINT:
if( ! win32ui_window_paint( hWnd, wParam, lParam ) )
return 0;
break;
case WM_SIZING:
if( win32ui_window_resizing( hWnd, wParam, lParam ) )
return TRUE;
break;
case WM_SIZE:
if( ! win32ui_window_resize( hWnd, wParam, lParam ) )
return 0;
break;
case WM_DRAWITEM:
if( wParam == ID_STATUSBAR ) {
win32statusbar_redraw( hWnd, lParam );
return TRUE;
}
break;
case WM_DESTROY:
fuse_exiting = 1;
PostQuitMessage( 0 );
/* Stop the paused state to allow us to exit (occurs from main
emulation loop) */
if( paused ) menu_machine_pause( 0 );
return 0;
case WM_ENTERMENULOOP:
case WM_ENTERSIZEMOVE:
{
fuse_emulation_pause();
return 0;
}
case WM_EXITMENULOOP:
case WM_EXITSIZEMOVE:
{
fuse_emulation_unpause();
return 0;
}
case WM_LBUTTONUP:
win32mouse_button( 1, 0 );
return 0;
case WM_LBUTTONDOWN:
win32mouse_button( 1, 1 );
return 0;
case WM_MBUTTONUP:
win32mouse_button( 2, 0 );
return 0;
case WM_MBUTTONDOWN:
win32mouse_button( 2, 1 );
return 0;
case WM_RBUTTONUP:
win32mouse_button( 3, 0 );
return 0;
case WM_RBUTTONDOWN:
win32mouse_button( 3, 1 );
return 0;
case WM_MOUSEMOVE:
win32mouse_position( lParam );
return 0;
case WM_SETCURSOR:
/* prevent the cursor from being redrawn if fuse has grabbed the mouse */
if( ui_mouse_grabbed )
return TRUE;
else
return( DefWindowProc( hWnd, msg, wParam, lParam ) );
case WM_ACTIVATE:
if( ( LOWORD( wParam ) == WA_ACTIVE ) ||
( LOWORD( wParam ) == WA_CLICKACTIVE ) )
win32ui_gain_focus( hWnd, wParam, lParam );
else if( LOWORD( wParam ) == WA_INACTIVE )
win32ui_lose_focus( hWnd, wParam, lParam );
/* We'll call DefWindowProc to get keyboard focus when debugger window
is open and inactive */
break;
case WM_USER_EXIT_PROCESS_MESSAGES:
/* Odd case when message loop is overridden by a modal dialog. This
should not be caught here, so we delay this notification */
exit_process_messages++;
return 0;
case WM_ERASEBKGND:
/* Improves speed and avoid flickering when main window is invalidated by
another window */
return TRUE;
#if defined USE_JOYSTICK && !defined HAVE_JSW_H
case MM_JOY1BUTTONDOWN:
win32joystick_buttonevent( 0, 1, wParam );
break;
case MM_JOY1BUTTONUP:
win32joystick_buttonevent( 0, 0, wParam );
break;
case MM_JOY2BUTTONDOWN:
win32joystick_buttonevent( 1, 1, wParam );
break;
case MM_JOY2BUTTONUP:
win32joystick_buttonevent( 1, 0, wParam );
break;
case MM_JOY1MOVE:
win32joystick_move( 0, LOWORD( lParam ), HIWORD( lParam ) );
break;
case MM_JOY2MOVE:
win32joystick_move( 1, LOWORD( lParam ), HIWORD( lParam ) );
break;
#endif /* if defined USE_JOYSTICK && !defined HAVE_JSW_H */
}
return( DefWindowProc( hWnd, msg, wParam, lParam ) );
}
