TweetFollow Us on Twitter

Buttons and Edits
Volume Number:1
Issue Number:5
Column Tag:BASIC SCHOOL

Buttons and Edit fields

By Dave Kelly

Well, now that we know how to use windows, we should discuss what to put in them. Besides the usual printing of output, our Macintosh provides us with what are known as BUTTONs and EDIT FIELDs.

In MS Basic 2.0 the syntax is:

BUTTON  button-id,state [ ,title,
 rectangle [,type ]]
BUTTON CLOSE n
EDIT FIELD field-id [,default, rectangle [,[type][,justify ]]]
EDIT FIELD CLOSE field-id

The id parameter identifies the button or edit field number. BUTTON states are: 0=Button inactive,dimmed on the screen,1=Button active, not selected, 2 =Button active, selected. Title is a string expression that is displayed inside or beside the identified BUTTON. The BUTTON type paramenter identifies the type of BUTTON, 1=A simple push button, 2=A check box, 3=A radio button. The EDIT FIELD default is the string expression to be edited. Cut and paste editing can be used to edit the default string. Type indicates one of four editing formats. Types are: 1=Draw a box around the rectangle to be edited-Return keys not allowed, 2=Draw a box around the rectangle and allow return keys, 3=No box around edit field-Return keys not allowed, 4=No box around the rectangle and allow return keys. When using types 1 and 3 the edit field has wrap around (no return keys are allowed). The justify parameter specifies the justification of the text in the EDIT FIELD, 1=Left Justify, 2=Center Justify, 3=Right Justify. Now we’re ready to program.

Well, almost. If you remember from our discussion of WINDOWs, the rectangle parameter specifies the location of the window on the Macintosh screen. The rectangle parameter in BUTTON and EDIT FIELD statements specifies the location of the BUTTON or EDIT FIELD in the current output window. It has the form (x1,y1)-(x2,y2), same as for WINDOW, (x1,y1) is the upper left corner of the current window and (x2,y2) is the lower right corner of the window. Sounds easy at first, but here’s the catch: for every program you write you have to figure out where on the screen you want to put each BUTTON or EDIT FIELD. This can be quite a pain, especially if you have alot to put in your window. Since there is no one rectangle for every application, you must be the judge of what you think “looks” good. This is true for all program development on the Mac. All of positions for the dialog boxes and window that we see in the finder and in other applications had to be decided the same way.

The program, Rectangle Sizer should be an aid to anyone experimenting with the positions and sizes of BUTTONs and EDIT FIELDs. When the program starts you may select BUTTONS or EDIT FIELDS from the Type Selection menu. The function menu allows you to add additional BUTTONs or EDIT FIELDS or erase. You may change the size of the output window and move it around, then select Window dimensions from the function menu and the program will print the current width and height of the output window. As you place BUTTONs or EDIT FIELDs in the window, the program will display the current rectangle cooredinates. You may want to experiment and write down the coordinates for use in your program. If you want to use different fonts and sizes you can add a menu for that if you wish. This would be useful in programming the EDIT FIELDs. The BUTTONs always use 12 point Chicago. Therefore the rectangle size must be 12 point or more or part of the text will be clipped off. To use other fonts with BUTTONs you should print text beside the BUTTON. (You may have to move the desired fonts to your BASIC disk as only the bare minimum of fonts comes on the disk). It would take some experimenting to get things just right, however. You should experiment with the different BUTTON types and sizes to see what happens. A useful utility brought to you by MACTUTOR.


‘    Rectangle Sizer    
‘    By Dave Kelly
‘    ©MACTUTOR 1985

‘Set up menus
MENU 6,0,1,”Function”
MENU 6,1,0,”Add or Change Button #”
MENU 6,2,1,”Erase Button”
MENU 6,3,0,”-”
MENU 6,4,0,”Add or Change Edit Field #”
MENU 6,5,1,”Erase Edit Field”
MENU 6,6,0,”-”
MENU 6,7,1,”Window dimensions”
MENU 6,8,1,”Quit”
MENU 7,0,1,”Type Selection”
MENU 7,1,1,”Buttons”
MENU 7,2,1,”Edit Fields”
MENU 7,3,2,”No Selection”
rect%=0:bnumber%=0:enumber%=0
ON MENU GOSUB menuevent : MENU ON
WINDOW CLOSE 1
WINDOW 2,,(2,280)-(510,340),3: CLS
WINDOW  1,”Rectangle Sizer Window”,  (2,40)-(510,275)
ON MOUSE GOSUB mouseevent
‘Watch for mouse click
MOUSE ON
pause:GOTO pause

mouseevent:
MOUSE OFF: MENU OFF: x=MOUSE(0) xstart=MOUSE(3): ystart=MOUSE(4)

loop:
x=MOUSE(0)
IF x>=0 THEN exitloop’ Loop until button is        released
xend=MOUSE(5):yend=MOUSE(6)
IF rect%=1 AND bnumber%>0 THEN     BUTTON bnumber%,State,Title$, 
 (xstart,ystart)-(xend,yend),Type
IF rect%=2 AND (yend-ystart<=0) THEN yend=ystart+1
IF rect%=2 AND (xend-xstart<15) THEN xend=xstart+16
IF rect%=2 AND enumber%>0 THEN
 EDIT FIELD enumber%,default$,     (xstart,ystart)-(xend,yend), 
 EditType,Justify
CLS:WINDOW OUTPUT 2:LOCATE 1,1
IF rect%=1 THEN
 PRINT”Rectangle”;bnumber%; ELSE
 PRINT “Rectangle”;enumber%;
PRINT “is:  (“;xstart;”,”;ystart;”)-(“;xend;             “,”;yend;”)”:WINDOW 
1
GOTO loop

exitloop:
WINDOW OUTPUT 2
LOCATE 1,1:IF rect%=1 THEN  PRINT”Rectangle”;bnumber%; ELSE
 PRINT “Rectangle”;enumber%;
PRINT “is:  (“;xstart;”,”;ystart;”)-(“;xend;
 “,”;yend;”)”: WINDOW OUTPUT 1
MOUSE ON: MENU ON: RETURN
menuevent:
menunumber=MENU(0)
IF menunumber=7 THEN menu7
IF menunumber<>6 THEN RETURN
menuitem=MENU(1): MENU
ON menuitem GOSUB Changebutton,    Erasebutton, blank, Changeedit, 
 Eraseedit, blank, Windowsize, Quit
RETURN

blank:RETURN  ‘This will never happen, but just in case...

menu7: menuitem=MENU(1)
IF menuitem=1 THEN MENU 7,3,1:MENU 7,1,2: MENU 7,2,1: MENU     
 6,1,1: MENU 6,4,0: rect%=1:IF     bnumber%=0 THEN GOSUB       
 changebutton
IF menuitem=2 THEN MENU 7,3,1:MENU 7,1,1: MENU 7,2,2: MENU     
 6,1,0: MENU 6,4,1: rect%=2:IF     enumber%=0 THEN GOSUB changeedit
IF menuitem=3 THEN MENU 7,3,2:MENU 7,1,1: MENU 7,2,1: MENU     
 6,1,0: MENU 6,4,0: rect%=0
RETURN

Changebutton:
WINDOW 2: CLS:INPUT “Enter Button  number:”,bnumber%
IF bnumber% <=0 GOTO Changebutton
GOSUB Startbutton: WINDOW 1: RETURN

Erasebutton:WINDOW 2:CLS
INPUT”Erase which number”;E%
CLS:WINDOW 1: BUTTON CLOSE E%
RETURN

Changeedit:
WINDOW 2: CLS
INPUT”Enter Edit Field number:”,   enumber%
IF enumber%<=0 GOTO Changeedit
GOSUB Startedit: WINDOW 1: RETURN
Eraseedit:
WINDOW 2: CLS
INPUT”Erase which Edit Field  number”;E%: CLS: WINDOW 1
EDIT FIELD CLOSE e%: RETURN

Quit: WINDOW CLOSE 2:MENU RESET:END

Startbutton:
CLS:PRINT “Enter Button #”;bnumber%;
INPUT” Title:”,Title$
In2:INPUT “Enter Type (1=Push button,  2=Check box, 3= Radio button):”,
 Type
IF Type < 1 OR Type >3 GOTO In2
In3:INPUT “Enter State (0=Inactive,  1=Active/not selected,    
 2=Active/selected):”,State
IF State <0 OR State >2 GOTO In3
CLS:RETURN

Startedit:
CLS:PRINT “Enter Edit Field #”;enumber%;
INPUT” Default (CR=None) :”,default$
e2:INPUT “Enter Type (1=Draw box/no CR,            2=Draw box/CR, 3=No 
Box/no CR,  4=No Box/CR):”,EditType
IF EditType < 1 OR EditType >4 GOTO e2
e3:INPUT “Enter Justify mode (1=Left Justify, 2=Center text, 3=Right 
 Justify):”,Justify
IF Justify <1 OR Justify >3 GOTO e3
CLS:RETURN

windowsize:
WINDOW OUTPUT 1:winwidth= WINDOW(2)
winheight=WINDOW(3)
WINDOW OUTPUT 2: LOCATE 2,1:PRINT  “Window width=”;winwidth;” height=”; 
 winheight;
WINDOW OUTPUT 1:RETURN

 
AAPL
$99.72
Apple Inc.
-1.03
MSFT
$46.26
Microsoft Corpora
-0.10
GOOG
$570.06
Google Inc.
-7.30

MacTech Search:
Community Search:

Software Updates via MacUpdate

Cocktail 8.0 Beta 2 - General maintenanc...
Cocktail is a general purpose utility for OS X that lets you clean, repair and optimize your Mac. It is a powerful digital toolset that helps hundreds of thousands of Mac users around the world get... Read more
QuickBooks 2015 16.0.0.1352 R1 - Financi...
QuickBooks 2015 helps you manage your business easily and efficiently. Organize your finances all in one place, track money going in and out of your business, and spot areas where you can save.... Read more
Mac DVDRipper Pro 5.0.1 - Copy, backup,...
Mac DVDRipper Pro is the DVD backup solution that lets you protect your DVDs from scratches, save your batteries by reading your movies from your hard disk, manage your collection with just a few... Read more
Apple OS X bash Update 1.0 - Fix for sec...
The OS X bash Update fixes a security flaw in the bash UNIX shell on OS X 10.9.5 (also on OS X 10.8 and 10.7 [see Related Links below]). OS X 10.9.5 or later Downloads for OS X 10.8 and OS X 10.7 in... Read more
SyncTwoFolders 2.0.5 - Syncs two user-sp...
SyncTwoFolders simply synchronizes two folders. It supports synchronization across mounted network drives and it is a possibility to run a simulation showing in a log what will be done. Please visit... Read more
FinderPop 2.5.7 - Classic Mac utility, n...
FinderPop is a Universal preference pane that extends OS X's contextual menus using a FinderPop Items folder much as the Apple Menu Items folder used to do for the Apple menu. It has other features... Read more
VueScan 9.4.45 - Scanner software with a...
VueScan is a scanning program that works with most high-quality flatbed and film scanners to produce scans that have excellent color fidelity and color balance. VueScan is easy to use, and has... Read more
LibreOffice 4.3.2.2 - Free Open Source o...
LibreOffice is an office suite (word processor, spreadsheet, presentations, drawing tool) compatible with other major office suites. The Document Foundation is coordinating development and... Read more
calibre 2.4 - Complete e-library managem...
Calibre is a complete e-book library manager. Organize your collection, convert your books to multiple formats, and sync with all of your devices. Let Calibre be your multi-tasking digital... Read more
Default Folder X 4.6.9b1 - Enhances Open...
Default Folder X attaches a toolbar to the right side of the Open and Save dialogs in any OS X-native application. The toolbar gives you fast access to various folders and commands. You just click... Read more

Latest Forum Discussions

See All

Nexticy Review
Nexticy Review By Jennifer Allen on October 1st, 2014 Our Rating: :: IDEAL FORM CREATIONiPad Only App - Designed for the iPad Nexticy allows you to make your own forms for research purposes or to organize your business better. It’s... | Read more »
HeroCraft Introduces Unlimited Sequel to...
HeroCraft Introduces Unlimited Sequel to WW2: Sandbox. Strategy & Tactics Posted by Jessica Fisher on October 1st, 2014 [ permalink ] | Read more »
RGB Express Review
RGB Express Review By Jennifer Allen on October 1st, 2014 Our Rating: :: DELIGHTFUL PUZZLINGUniversal App - Designed for iPhone and iPad Guide trucks along their delivery routes in RGB Express, a testing but charming puzzle game... | Read more »
The Sagas of Fire*Wolf (Games)
The Sagas of Fire*Wolf 1.0 Device: iOS Universal Category: Games Price: $9.99, Version: 1.0 (iTunes) Description: | Read more »
BuggyFun Review
BuggyFun Review By Amy Solomon on October 1st, 2014 Our Rating: iPad Only App - Designed for the iPad BuggyFun allows children to create their own tracks for bugs to interact with for a unique open-ended experience.   | Read more »
Fold the Adventure Review
Fold the Adventure Review By Jennifer Allen on October 1st, 2014 Our Rating: :: AWKWARD FOLDSUniversal App - Designed for iPhone and iPad Fold pieces of paper to create platforms for a princely rabbit in this puzzle game; something... | Read more »
WW2: Sandbox. Strategy & Tactics (G...
WW2: Sandbox. Strategy & Tactics 1.0.0 Device: iOS Universal Category: Games Price: $9.99, Version: 1.0.0 (iTunes) Description: Sandbox is the unlimited sequel to our Strategy & Tactics: World War II. We've abandoned... | Read more »
apeFilter (Music)
apeFilter 1.0 Device: iOS Universal Category: Music Price: $6.99, Version: 1.0 (iTunes) Description: | Read more »
Shred It! Review
Shred It! Review By Jennifer Allen on September 30th, 2014 Our Rating: :: GORGEOUS BUT BASICUniversal App - Designed for iPhone and iPad It might look lovely, but Shred It! is a pretty shallow endless runner/snowboarding game.   | Read more »
Check Out the New Teaser Trailer forGAME...
Check Out the New Teaser Trailer forGAMEVIL’s Darkness Reborn Posted by Jessica Fisher on September 30th, 2014 [ permalink ] Darkness Reborn, by GAMEVIL< | Read more »

Price Scanner via MacPrices.net

Apple resting On Its iPhone Laurels? – The ‘B...
Apple calls its new iPhone 6 and 6 Plus “The Biggest Advancements in iPhone History,” but does reality live up to the hype? “Seldom have so many waited so breathlessly for so little,” tweeted veteran... Read more
Roundup of Apple Mac and iPad Education disco...
Purchase a new Mac or iPad at The Apple Store for Education and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free,... Read more
Apple Boycotts German Magazine Computer Bild...
Apple has revoked its PR accreditation of Germany’s Computer Bild, Europe’s best-selling PC magazine, in reaction to Bild’s posting of a “#Bentgate” YouTube video. Axel Telzerow, editor in chief of... Read more
iPhone 6 & iPhone 6 Plus Available in Chi...
Apple has announced that iPhone 6 and iPhone 6 Plus will be available in China beginning Friday, October 17 from the Apple Online Store (http://www.apple.com), Apple’s retail stores, and an expansive... Read more
MacBook Airs on sale for $100 off MSRP, start...
Best Buy has the new 2014 MacBook Airs on sale for $100 off MSRP on their online store. Choose free home shipping or free local store pickup (if available). Prices valid for online orders only, in-... Read more
Apple Releases OS X Mavericks bash Update 1.0...
Apple has released a patch update for OS X Mavericks users to address the recently-detected “Shellshock” security bug in BSD UNIX’s bash shell. Apple says only a few Mac users who had manually... Read more
Pivotal Payments Ready for Apple Pay – FlexPo...
Pivotal Payments, a provider of merchant services and global payment processing solutions, has announced its proprietary FlexPoint platform will support credit and debit transactions through Apple’s... Read more
iStabilizer Announces Tabarm — First Friction...
iStabilizer, a specialist in universal lightweight compact tripods, steady cams, dollies, mounts, and remotes for smartphones, tablets, and cameras, announced today the iStabilizer tabArm, the first... Read more
IStabilizer Flex Smartphone Tripod Wins Usa T...
iStabilizer, a specialist in universal lightweight compact tripods, steady cams, and other products for smartphones, tablets, and cameras, has announced today that its iStabilizer Flex smartphone... Read more
13-inch 2.8GHz Retina MacBook Pro on sale for...
B&H Photo has the new 2014 13″ 2.8GHz Retina MacBook Pro on sale for $1699.99 including free shipping plus NY sales tax only. They’ll also include free copies of Parallels Desktop and LoJack for... Read more

Jobs Board

*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
*Apple* Retail - Multiple Positions (US) - A...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
Senior Event Manager, *Apple* Retail Market...
…This senior level position is responsible for leading and imagining the Apple Retail Team's global event strategy. Delivering an overarching brand story; in-store, Read more
*Apple* Solutions Consultant (ASC) - Apple (...
**Job Summary** The ASC is an Apple employee who serves as an Apple brand ambassador and influencer in a Reseller's store. The ASC's role is to grow Apple Read more
Project Manager / Business Analyst, WW *Appl...
…a senior project manager / business analyst to work within our Worldwide Apple Fulfillment Operations and the Business Process Re-engineering team. This role will work Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.