//'***********************************************************************
//'     DISPLAYED WITH PERMISSION OF ROY SCOTT ENTERPRISES
//'     AND THE AUTHOR AS AN ARCHIVING FUNCTION
//'                  http://www.scottserver.net/forum/index.php
//'     ALL RIGHTS RESERVED
//'************************************************************************
//'     MINOR EDITING PERFORMED BY UPLA STAFF
//'************************************************************************

//docmann
//Microdeveloper

//Talk about a short development cycle and getting a bunch done with just a few lines of code.... Here's some more //sample code showing how to use the new $Image$ and $ToolTip$ attributes with a button: 

//Code: 

Declare %res%. 

// Define the main window, set the caption and style 
   ?WINDOW Window1, 290, 200, 265, 190 
   {Window1>$Caption$}="Image Button Test". 
   @ShowWindow {Window1}. 
// Define an image button with tool-tip 
   ?BUTTON Window1>MyButton, 10, 10, 236, 139 
   {Window1>MyButton>$Image$}="logo_button.bmp". 
   {Window1>MyButton>$ToolTip$}="Click Me Now!". 

// Set up an action event 
   Action (LaunchURL). 
     %ShellExecute %res% = "open", "http://www.scottserver.net/forum/", "", "", '0'. 
   EndAction. 

// Add a GoL label 
   #next. 

// Set up our button click event 
   @SetEvent {Window1>MyButton>!OnClick!}: LaunchURL. 

//   @ShowWindow {Window1}. 
   @WaitEvent. 

// The event loop 
   GoL next. 
End.