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


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

#include <sol\Text.h>

namespace SOL {

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

public:
    ScrolledText(): Text() { }

public:
    ScrolledText(View* parent, const TCHAR* label, Args& args)
    :Text(parent, label, args.set(XmNstyle, (ulong)STYLE)) 
    { 

    }

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

};

}