Commit 98cd3998 authored by claes's avatar claes

New administrator

parent f43fc5e0
! !
! Proview $Id: wb_wtt.uil,v 1.6 2005-09-06 10:39:34 claes Exp $ ! Proview $Id: wb_wtt.uil,v 1.7 2005-09-20 13:28:05 claes Exp $
! Copyright (C) 2005 SSAB Oxelsund AB. ! Copyright (C) 2005 SSAB Oxelsund AB.
! !
! This program is free software; you can redistribute it and/or ! This program is free software; you can redistribute it and/or
...@@ -50,6 +50,9 @@ procedure ...@@ -50,6 +50,9 @@ procedure
wtt_activate_openbuffer(integer); wtt_activate_openbuffer(integer);
wtt_activate_openfile_dbs(integer); wtt_activate_openfile_dbs(integer);
wtt_activate_openfile_wbl(integer); wtt_activate_openfile_wbl(integer);
wtt_activate_openpl(integer);
wtt_activate_opengvl(integer);
wtt_activate_openudb(integer);
wtt_activate_spreadsheet(integer); wtt_activate_spreadsheet(integer);
wtt_activate_openge(integer); wtt_activate_openge(integer);
wtt_activate_openclasseditor(integer); wtt_activate_openclasseditor(integer);
...@@ -168,7 +171,7 @@ object file_entry : XmCascadeButton ...@@ -168,7 +171,7 @@ object file_entry : XmCascadeButton
{ {
arguments arguments
{ {
XmNlabelString = compound_string("Open..."); XmNlabelString = compound_string("Open Volume");
XmNmnemonic = keysym('O'); XmNmnemonic = keysym('O');
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
...@@ -181,7 +184,7 @@ object file_entry : XmCascadeButton ...@@ -181,7 +184,7 @@ object file_entry : XmCascadeButton
{ {
arguments arguments
{ {
XmNlabelString = compound_string("Open File"); XmNlabelString = compound_string("Open");
XmNmnemonic = keysym("F"); XmNmnemonic = keysym("F");
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
...@@ -198,7 +201,7 @@ object file_entry : XmCascadeButton ...@@ -198,7 +201,7 @@ object file_entry : XmCascadeButton
{ {
arguments arguments
{ {
XmNlabelString = compound_string("Dbs..."); XmNlabelString = compound_string("Dbs File...");
XmNmnemonic = keysym('D'); XmNmnemonic = keysym('D');
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
...@@ -211,7 +214,7 @@ object file_entry : XmCascadeButton ...@@ -211,7 +214,7 @@ object file_entry : XmCascadeButton
{ {
arguments arguments
{ {
XmNlabelString = compound_string("Wbl..."); XmNlabelString = compound_string("Wbl File...");
XmNmnemonic = keysym('W'); XmNmnemonic = keysym('W');
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
...@@ -220,21 +223,60 @@ object file_entry : XmCascadeButton ...@@ -220,21 +223,60 @@ object file_entry : XmCascadeButton
XmNactivateCallback = procedure wtt_activate_openfile_wbl(wtt_ctx); XmNactivateCallback = procedure wtt_activate_openfile_wbl(wtt_ctx);
}; };
}; };
XmPushButton
{
arguments
{
XmNlabelString = compound_string("Buffer...");
XmNmnemonic = keysym('b');
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure wtt_activate_openbuffer(wtt_ctx);
};
};
XmPushButton
{
arguments
{
XmNlabelString = compound_string("ProjectList");
XmNmnemonic = keysym('g');
XmNfontList = menu_font;
};
callbacks
{
XmNactivateCallback = procedure wtt_activate_openpl(wtt_ctx);
};
}; };
XmPushButton
{
arguments
{
XmNlabelString = compound_string("GlobalVolumeList");
XmNmnemonic = keysym('r');
XmNfontList = menu_font;
}; };
callbacks
{
XmNactivateCallback = procedure wtt_activate_opengvl(wtt_ctx);
}; };
}; };
XmPushButton XmPushButton
{ {
arguments arguments
{ {
XmNlabelString = compound_string("Open Buffer..."); XmNlabelString = compound_string("UserDatabase");
XmNmnemonic = keysym('b'); XmNmnemonic = keysym('u');
XmNfontList = menu_font; XmNfontList = menu_font;
}; };
callbacks callbacks
{ {
XmNactivateCallback = procedure wtt_activate_openbuffer(wtt_ctx); XmNactivateCallback = procedure wtt_activate_openudb(wtt_ctx);
};
};
};
};
}; };
}; };
XmPushButton XmPushButton
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment