/*
 * Animator.h 
 * Copyright (c) 2011 Antillia.com TOSHIYUKI ARAI. ALL RIGHTS RESERVED. 
 */


// SOL++2000
// 2000.02.18
#pragma once

#include <sol\Primitive.h>


/**
 * Animator class.
 */

namespace SOL {

class Animator :public Primitive {
public:
    Animator(): Primitive() { }

public:
    Animator(View* parent, const TCHAR* name, Args& args)
    :Primitive(parent, name, 
            args.set(XmNpredefined, TRUE)
                .set(XmNclassName, (ulong)ANIMATE_CLASS))
    {
        setValues(args);
    }

public:
    virtual Boolean create(View* parent, const TCHAR* name, Args& args)
    {
        Boolean rc = Primitive::create(parent, name, 
            args.set(XmNpredefined, TRUE)
                .set(XmNclassName, (ulong)ANIMATE_CLASS));

        setValues(args);

        return rc;
    }

    Boolean    open(TCHAR* szName) {
            return  (Boolean)send(ACM_OPEN, 0, (LPARAM)(LPTSTR)(szName));
    }
    Boolean    play(int from, int to, int rep) {
            return  (Boolean)send(ACM_PLAY, (WPARAM)(UINT)(rep), (LPARAM)MAKELONG(from, to));
    }
    Boolean    stop() {
            return (Boolean)send(ACM_STOP, 0, 0);
    }

    Boolean     close() {
            return open(NULL);
    }
    Boolean     seek(int frame) {
            return play(frame, frame, 1);
    }
};

}