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


// SOL++2000
// 2001/04/01
#pragma once

#include <sol\RichText.h>

namespace SOL {

class ScrolledRichText :public RichText {

private:
    static const long STYLE    = (WS_VSCROLL|WS_HSCROLL|WS_BORDER|ES_AUTOHSCROLL|\
         ES_AUTOVSCROLL|ES_WANTRETURN|ES_LEFT|ES_MULTILINE);

public:

    ScrolledRichText():RichText() { }

public:
    ScrolledRichText(View* parent, TCHAR* label, Args& args)
    :RichText(parent, label, args.set(XmNstyle, (ulong)STYLE)) 
    {

    }

public:
    virtual Boolean create(View* parent, TCHAR* label, Args& args) 
    {
        return RichText::create(parent, label, args.set(XmNstyle, (ulong)STYLE));
    }
};

}