/*
 * ProgramList.cpp 
 * Copyright (c) 2009 Antillia.com TOSHIYUKI ARAI. ALL RIGHTS RESERVED. 
 */


// SOL++2000
// 2000.02.18


#include <sol\ApplicationView.h>
#include <sol\ListBox.h>

#include "resource.h"

namespace SOL {

class ProgramList :public ApplicationView {
private:
    ListBox listbox;

private:
    static const UINT WM_LISTUP = (WM_USER+2009);

private:

    void exec(Action& action)
    {
        TCHAR buff[256];
        listbox.getCurText(buff);
        ShellExecute(NULL, _T("open"), buff, NULL, NULL, SW_SHOW);
    }

public:

    ProgramList(Application& applet, const TCHAR* name, Args& args)
    :ApplicationView(applet, name, args)
    {
        Args ar;
        ar.set(XmNstyle, (ulong)WS_VSCROLL|LBS_SORT|LBS_NOINTEGRALHEIGHT);
        listbox.create(this, NULL, ar);
        add(listbox);

        addEventHandler(WM_LISTUP, this,
            (Handler)&ProgramList::listup, NULL);

        addCallback(XmNmenuCallback, IDM_REFRESH, this,
            (Callback)&ProgramList::refresh, NULL);

        addCallback(XmNmenuCallback, IDM_EXIT, this,
            (Callback)&ProgramList::exit, NULL);

        // Add callback exec to run a selected program.
        listbox.addCallback(XmNdefaultActionCallback, this,
            (Callback)&ProgramList::exec,  NULL);

        post(WM_LISTUP, 0, 0);
        
        restorePlacement();
    }

private:
    void refresh(Action& action)
    {
        listbox.clear();
        post(WM_LISTUP, 0, 0);    
    }

private:
    long listup(Event& event)
    {
        TCHAR dir[MAX_PATH];
        ::GetWindowsDirectory(dir, SizeOf(dir));
        //strcat(buffer, _T("\\*.EXE"));
        _stprintf(&dir[3], _T("%s"), _T("Program Files"));
        

        TCHAR caption[MAX_PATH];
        _stprintf(caption, _T("%s - ProgramList"), dir);
        setText(caption);
        // List up all executable files in the "?:\Program Files".
        listbox.findAllFiles(dir, _T(".exe"));

        return 0L;
    }

};

}

//
void    Main(int argc, TCHAR** argv)
{
    const TCHAR* name = _T("ProgramList");
    try {
        Application applet(name, argc, argv);
        Args args;
        ProgramList programList(applet, name, args);
        programList.realize();
        applet.run();
    } catch (...) {

    }
}