111 lines
3.3 KiB
Plaintext
111 lines
3.3 KiB
Plaintext
|
|
/*
|
|
* This file is part of the Code::Blocks IDE and licensed under the GNU General Public License, version 3
|
|
* http://www.gnu.org/licenses/gpl-3.0.html
|
|
*
|
|
* $Revision$
|
|
* $Id$
|
|
* $HeadURL$
|
|
*/
|
|
|
|
// user-dialog-test
|
|
// Script plugins must extend cbScriptPlugin
|
|
class user_dialog_test_Plugin extends cbScriptPlugin
|
|
{
|
|
// mandatory to setup the plugin's info
|
|
constructor()
|
|
{
|
|
info = PluginInfo();
|
|
|
|
info.name = _T("user_dialog_test");
|
|
info.title = _T("Test the user dialogs");
|
|
info.version = _T("0.1a");
|
|
info.license = _T("GPL");
|
|
}
|
|
|
|
// optional to create menubar items
|
|
function GetMenu()
|
|
{
|
|
local entries = ::wxArrayString();
|
|
entries.Add(_T("Plugins/Test Scripting/User Dialogs"), 1);
|
|
return entries;
|
|
}
|
|
|
|
// optional to create context menu entries
|
|
/*function GetModuleMenu(who, data)
|
|
{
|
|
|
|
}*/
|
|
|
|
// optional to support ExecutePlugin(pluginNameString)
|
|
function Execute()
|
|
{
|
|
StartTest();
|
|
return 0;
|
|
}
|
|
|
|
// optional calback for menubar items clicking
|
|
function OnMenuClicked(index)
|
|
{
|
|
if (index == 0)
|
|
{
|
|
StartTest();
|
|
|
|
}
|
|
|
|
}
|
|
|
|
// optional calback for context menu items clicking
|
|
function OnModuleMenuClicked(index)
|
|
{
|
|
|
|
}
|
|
|
|
function StartTest()
|
|
{
|
|
print("Start dialog test\n");
|
|
print("ShowMessage\n");
|
|
local message_ret = ::ShowMessage(_T("The Show Message test"));
|
|
print(" -> Value returned: " + message_ret + "\n");
|
|
|
|
/*print("GetFilefromUser Dialog\n");
|
|
local files = ::wxGetFileFromUser(_T("Pleas select the files "),_T("Files to be converted"),_T(" "),_T("*.*"),wxFD_OPEN|wxFD_FILE_MUST_EXIST|wxFD_MULTIPLE);
|
|
print(" -> files returned (" + files.GetCount() + "): ");
|
|
for(local i = 0;i < files.GetCount();i++)
|
|
{
|
|
print(" " + files.Item(i) + " |");
|
|
}
|
|
print("\n");*/
|
|
print("wxGetColourFromUser Dialog\n");
|
|
local dafault_colour = wxColour();
|
|
dafault_colour.Set(128,128,128,255);
|
|
|
|
local colour = ::wxGetColourFromUser(dafault_colour);
|
|
print(" -> returned color: " + colour + "\n");
|
|
print("wxGetPasswordFromUser Dialog\n");
|
|
local password = ::wxGetPasswordFromUser(_T("please enter a password"),_T("A password please"),_T("default_password"));
|
|
print(" -> returned password: " + password + "\n");
|
|
print("wxGetNumberFromUser Dialog\n");
|
|
local number = ::wxGetNumberFromUser(_T("please enter a number"),_T("the prompt"),_T("A number please"),42);
|
|
print(" -> returned number: " + number + "\n");
|
|
print("wxGetTextFromUser Dialog\n");
|
|
local text = ::wxGetTextFromUser(_T("please enter a text"),_T("A text please"),_T("sample text"));
|
|
print(" -> returned text: " + text + "\n");
|
|
|
|
//print("wxBell\n");
|
|
//::wxBell();
|
|
//print(" -> system bell ringing \n");
|
|
|
|
//print("wxDirSelector Dialog\n");
|
|
//local dir_selector = ::wxDirSelector(_T("Directory selector"),_T(""),wxDD_DEFAULT_STYLE);
|
|
//print(" -> returned dir_selector: " + dir_selector + "\n");
|
|
|
|
};
|
|
}
|
|
|
|
// this call actually registers the script plugin with Code::Blocks
|
|
RegisterPlugin(user_dialog_test_Plugin());
|
|
|
|
// if you want to call this plugin's Execute() function, use this in a script:
|
|
// ExecutePlugin(_T("Scripting_TestPlugin"));
|