/**
    @file
    scrollmouse - send scroll messages to output

    @ingroup    examples
*/

#include "ext.h"                            // standard Max include, always required
#include "ext_obex.h"                       // required for new style Max object
#include "jit.common.h"


#include <Windows.h>


////////////////////////// object struct
typedef struct _scrollmouse
{
    t_object                    ob;         // the object itself (must be first)
    void *m_outlet1;
    WNDPROC oldproc;
    HWND hWnd;
    t_symbol *ctxt;
} t_scrollmouse;

///////////////////////// function prototypes
//// standard set
void *scrollmouse_new(t_symbol *s, long argc, t_atom *argv);
void scrollmouse_free(t_scrollmouse *x);
void scrollmouse_assist(t_scrollmouse *x, void *b, long m, long a, char *s);
void scrollmouse_start(t_scrollmouse *x);
LRESULT CALLBACK MyOwnWndProc(HWND hwnd, UINT umsg, WPARAM wParam, LPARAM lParam);

//////////////////////// global class pointer variable
void *scrollmouse_class;

void ext_main(void *r)
{
    t_class *c;

    c = class_new("scrollmouse", (method)scrollmouse_new, (method)scrollmouse_free, (long)sizeof(t_scrollmouse),
                  0L /* leave NULL!! */, A_GIMME, 0);

    // Methods
    class_addmethod(c, (method)scrollmouse_assist, "assist", A_CANT, 0);
    class_addmethod(c, (method)scrollmouse_start, "start", 0);
    class_register(CLASS_BOX, c); /* CLASS_NOBOX */
    scrollmouse_class = c;
}

void scrollmouse_assist(t_scrollmouse *x, void *b, long m, long a, char *s)
{
    if (m == ASSIST_INLET) { // inlet
        sprintf(s, "need a start message %ld", a);
    }
    else {  // outlet
        sprintf(s, "scroll move %ld", a);
    }
}

void scrollmouse_free(t_scrollmouse *x)
{
    ;
}


void *scrollmouse_new(t_symbol *s, long argc, t_atom *argv)
{
    t_scrollmouse *x = NULL;
    long i;

    if ((x = (t_scrollmouse *)object_alloc(scrollmouse_class))) {

        x->m_outlet1 = intout((t_object *)x);

    }
    return (x);
}


void scrollmouse_start(t_scrollmouse *x)
{
    void *window;

    if(x->oldproc == NULL)
    {
        window = jit_object_findregistered(x->ctxt);
        if(window)
        {
            jit_object_method(window, gensym("get_window_ptr"), &x->hWnd);
        } else {
            x->hWnd = main_get_client(); //if no argument, get the patcher window
        }

        if(SetProp(x->hWnd,"scrollmouse", x)) {
                x->oldproc = (WNDPROC) SetWindowLongPtr(x->hWnd, GWLP_WNDPROC,(LONG)MyOwnWndProc);
        } else {
            post("Couldn't setProp()");
        }
    }
}

LRESULT CALLBACK MyOwnWndProc(HWND hwnd, UINT umsg, WPARAM wParam, LPARAM lParam)
{
    t_scrollmouse *x = (t_scrollmouse*) GetProp(hwnd,"scrollmouse");
    switch (umsg)
    {
        case WM_MOUSEWHEEL:
            //post("a");
            //post("%hd", GET_WHEEL_DELTA_WPARAM(wParam));
            outlet_int(x->m_outlet1, (int) GET_WHEEL_DELTA_WPARAM(wParam));
        return 0; // return, or can also pass to orig proc
    }
    if (x && x->oldproc) return CallWindowProc(x->oldproc, hwnd, umsg, wParam, lParam);
    else return DefMDIChildProc(hwnd, umsg, wParam, lParam);
}