Ben,
Now that you know the technique, you can achieve that goal very easily!
Example:
Using the "NewStuff" sample database and demo bundled with The
Glorious R:BASE 2000 (ver 6.5++) for Windows, you can modify the
NewStuff.RMD as following:
SET RBGSIZE CENTER CENTER 800 600
MAXIMIZE
SET CAPTION ' '
CLS
RHIDE
HELP About
CLS
CLEAR ALL VAR
SET VAR vButton INTEGER = 99
SET VAR RBTI_NoStatus INTEGER = 1
SET VAR vCaption TEXT = 'Running R:BASE Your Way!'
LABEL MainMenu
CLS
EDIT USING MainMenu CAPTION .vCaption NOHEADER
CLS
IF (LASTKEY(0)) = '[Esc]' THEN
GOTO MainMenu
ENDIF
IF vButton = 99 THEN
GOTO Done
ENDIF
SWITCH (.vButton)
CASE 1
-- New CVAL Functions
CLS
CLEAR ALL VAR EXCEPT vCaption, RBTI_NoStatus
SET VAR vWindowsPrinter TEXT = NULL
SET VAR vCurrentPrinter TEXT = NULL
SET VAR vPrinters TEXT = NULL
SET VAR vDrives TEXT = NULL
SET VAR vScreenSize TEXT = NULL
SET VAR vUserID TEXT = NULL
SET VAR vNetUser TEXT = NULL
SET VAR vComputer TEXT = NULL
SET VAR vUserDomain TEXT = NULL
SET VAR vClipBoardText TEXT = NULL
CLS
EDIT USING NewCVALFunctions CAPTION .vCaption
GOTO MainMenu
BREAK
CASE 2
-- New GETVAL Functions
CLS
CLEAR ALL VAR EXCEPT vCaption, RBTI_NoStatus
SET VAR vGetDriveReady TEXT = NULL
SET VAR vGetVolumeID TEXT = NULL
SET VAR vPlayAndWait TEXT = NULL
SET VAR vPlayAndExit TEXT = NULL
CLS
EDIT USING NewGETVALFunctions CAPTION .vCaption
GOTO MainMenu
BREAK
CASE 3
-- New GETDATE Function
CLS
CLEAR ALL VAR EXCEPT vCaption, RBTI_NoStatus
SET VAR vGetDate DATE = NULL
CLS
EDIT USING NewGetDateFunction CAPTION .vCaption
GOTO MainMenu
BREAK
CASE 4
-- New LAUNCH Function
CLS
LABEL NewLaunch
CLEAR ALL VAR EXCEPT vCaption, RBTI_NoStatus
SET VAR vButton INTEGER = 99
CLS
EDIT USING NewLaunchCommand CAPTION .vCaption
IF vButton = 1 THEN
LAUNCH RBW65PP.TXT
GOTO NewLaunch
ENDIF
GOTO MainMenu
BREAK
CASE 5
-- New RPHONE Command
CLS
CLEAR ALL VAR EXCEPT vCaption, RBTI_NoStatus
SET VAR vYesNo TEXT = 'No'
RHIDE
CLS
EDIT USING NewRPhoneCommand CAPTION .vCaption NOHEADER
GOTO MainMenu
BREAK
CASE 6
-- New SET ClipBoard Command
CLS
CLEAR ALL VAR EXCEPT vCaption, RBTI_NoStatus
EDIT USING NewSetClipboardCom CAPTION .vCaption NOHEADER
GOTO MainMenu
BREAK
CASE 7
CASE 8
-- Forms - New Look and Feel!
CLEAR ALL VAR EXCEPT vCaption, RBTI_NoStatus
CLS
EDIT USING AutoHideR CAPTION ' '
GOTO MainMenu
BREAK
CASE 9
-- New CHOOSE varname FROM #List Option
CLS
CLEAR ALL VAR EXCEPT vCaption, RBTI_NoStatus
SET VAR vPrinters TEXT = 'Click on (CVAL(''Printers'')) to Get the
List of Printers!'
SET VAR vPrinter TEXT = 'No Printer Selected!'
EDIT USING NewChooseList CAPTION .vCaption NOHEADER
GOTO MainMenu
BREAK
CASE 10
-- NOHEADER
CLS
CLEAR ALL VAR EXCEPT vCaption, RBTI_NoStatus
EDIT USING CustomForm CAPTION ' ' NOHEADER
GOTO MainMenu
BREAK
CASE 11
-- SET AUTODROP ON/OFF
CLS
RHIDE
CLEAR ALL VAR EXCEPT vCaption, RBTI_NoStatus
SET VAR vButton INTEGER = 99
SET AUTODROP OFF
EDIT USING NewAUTODROPoption CAPTION .vCaption NOHEADER
GOTO MainMenu
BREAK
CASE 12
-- New SET INTENSITY ForeGrnd ON BackGrnd Option
CLS
CLEAR ALL VAR EXCEPT vCaption, RBTI_NoStatus
SET INTENSITY White ON Blue
LABEL IntColors
CLS
RHIDE
CLEAR ALL VAR EXCEPT vCaption, RBTI_NoStatus
SET VAR vButton = 99
SET INTENSITY ON
EDIT USING NewINTENSITYColors ORDER BY ProductID CAPTION .vCaption
NOHEADER
IF vButton = 1 THEN
SET INTENSITY White ON Green
GOTO IntColors
BREAK
ENDIF
IF vButton = 2 THEN
SET INTENSITY White ON (255,128,64)
GOTO IntColors
BREAK
ENDIF
SET INTENSITY OFF
GOTO MainMenu
BREAK
CASE 13
-- Additional PRNSETUP Options
CLS
RHIDE
CLEAR ALL VAR EXCEPT vCaption, RBTI_NoStatus
EDIT USING AdditionalPRNSETUP CAPTION .vCaption NOHEADER
GOTO MainMenu
BREAK
CASE 14
-- New Big R> Window
CLS
RHIDE
CLEAR ALL VAR EXCEPT vCaption, RBTI_NoStatus
EDIT USING New_Big_R_Window CAPTION .vCaption NOHEADER
GOTO MainMenu
BREAK
CASE 15
-- ROUND Function
CLS
RHIDE
CLEAR ALL VAR EXCEPT vCaption, RBTI_NoStatus
SET VAR vRound1 DOUBLE = NULL
SET VAR vRound2 DOUBLE = NULL
SET VAR vRound3 DOUBLE = NULL
EDIT USING NewRoundFunction CAPTION .vCaption NOHEADER
GOTO MainMenu
BREAK
CASE 16
-- (LISTOF(colname))
CLS
RHIDE
CLEAR ALL VAR EXCEPT vCaption, RBTI_NoStatus
SET VAR vProdList TEXT = NULL
SET VAR vProdID TEXT = NULL
EDIT USING NewLISTOFFunction CAPTION .vCaption NOHEADER
GOTO MainMenu
BREAK
CASE 17
-- (ITEMCNT('TextString'))
CLS
RHIDE
CLEAR ALL VAR EXCEPT vCaption, RBTI_NoStatus
SET VAR vProdList TEXT = NULL
SET VAR vProdID TEXT = NULL
SET VAR vItemCnt1 INTEGER = NULL
SET VAR vItemCnt2 INTEGER = NULL
SELECT (LISTOF(ProductName)) INTO vProdList INDIC ivProdList FROM Products
SELECT (LISTOF(ProductID)) INTO vProdID INDIC ivProdID FROM Products
EDIT USING NewITEMCNTFunction CAPTION .vCaption NOHEADER
GOTO MainMenu
BREAK
CASE 18
-- SATTACH Command
RBEDIT SAttach.TXT READ
GOTO MainMenu
BREAK
CASE 19
-- More Enhancements ...
CLS
RHIDE
CLEAR ALL VAR EXCEPT vCaption, RBTI_NoStatus
EDIT USING MoreEnhancements CAPTION .vCaption NOHEADER
GOTO MainMenu
BREAK
CASE 20
-- More Bug Fixes
CLS
RHIDE
CLEAR ALL VAR EXCEPT vCaption, RBTI_NoStatus
GOTO MainMenu
BREAK
CASE 21
-- New Help File
CLS
RHIDE
CLEAR ALL VAR EXCEPT vCaption, RBTI_NoStatus
EDIT USING NewHelpFile CAPTION .vCaption NOHEADER
GOTO MainMenu
BREAK
DEFAULT
GOTO MainMenu
BREAK
ENDSW
LABEL Done
RSHOW
CLEAR ALL VAR
RUN DefResol.EEP
SET MESSAGES ON
SET ERR MESS ON
RETURN
Enjoy and make sure to have fun!
Very Best Regards,
Razzak.
At 01:53 PM 9/27/2002 +0100, Ben Petersen wrote:
>But, Doc, the goal was to not allow the user to save the data upon
>escaping w/out first verifying the data (presumably w/ an eep
>attached to a button).
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
