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

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Civilization VI 1.0.6 - Next iteration o...
Sid Meier’s Civilization VI is the next entry in the popular Civilization franchise. Originally created by legendary game designer Sid Meier, Civilization is a strategy game in which you attempt to... Read more
Civilization VI 1.0.6 - Next iteration o...
Sid Meier’s Civilization VI is the next entry in the popular Civilization franchise. Originally created by legendary game designer Sid Meier, Civilization is a strategy game in which you attempt to... Read more
djay Pro 2.0.1 - Transform your Mac into...
djay Pro provides a complete toolkit for performing DJs. Its unique modern interface is built around a sophisticated integration with iTunes and Spotify, giving you instant access to millions of... Read more
Microsoft OneNote 15.41 - Free digital n...
OneNote is your very own digital notebook. With OneNote, you can capture that flash of genius, that moment of inspiration, or that list of errands that's too important to forget. Whether you're at... Read more
TechTool Pro 9.6 - Hard drive and system...
TechTool Pro has long been one of the foremost utilities for keeping your Mac running smoothly and efficiently. With the release of version 9, it has become more proficient than ever. TechTool... Read more
Apple iOS 11.2.1 - The latest version of...
iOS 11 sets a new standard for what is already the world’s most advanced mobile operating system. It makes iPhone better than before. It makes iPad more capable than ever. And now it opens up both to... Read more
Things 3.3 - Elegant personal task manag...
Things is a task management solution that helps to organize your tasks in an elegant and intuitive way. Things combines powerful features with simplicity through the use of tags and its intelligent... Read more
RapidWeaver 7.5.5 - Create template-base...
RapidWeaver is a next-generation Web design application to help you easily create professional-looking Web sites in minutes. No knowledge of complex code is required, RapidWeaver will take care of... Read more
Adobe Animate CC 2018 18.0.1.115 - Anima...
Animate CC 2018 is available as part of Adobe Creative Cloud for as little as $19.99/month (or $9.99/month if you're a previous Flash Professional customer). Animate CC 2018 (was Flash CC) lets you... Read more
Postbox 5.0.22 - Powerful and flexible e...
Postbox is a new email application that helps you organize your work life and get stuff done. It has all the elegance and simplicity of Apple Mail, but with more power and flexibility to manage even... Read more

Latest Forum Discussions

See All

Life Is Strange (Games)
Life Is Strange 1.1 Device: iOS Universal Category: Games Price: $2.99, Version: 1.1 (iTunes) Description: Life Is Strange is a five part episodic game that sets out to revolutionize story-based choice and consequence games by... | Read more »
Oddworld: New 'n' Tasty (Game...
Oddworld: New 'n' Tasty 1.0 Device: iOS Universal Category: Games Price: $7.99, Version: 1.0 (iTunes) Description: ** PLEASE NOTE: Requires 3.6GB free space to install. Runs at variable resolutions based on device capabilities.... | Read more »
Gorogoa (Games)
Gorogoa 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Gorogoa is an elegant evolution of the puzzle genre, told through a beautifully hand-drawn story designed and illustrated by Jason... | Read more »
Why Guns of Boom will be big for mobile...
Earlier this week, Game Insight, the minds that brought you Guns of Boom, revealed plans for an esports mode in the popular FPS title, with big implications for the game's future. Guns of Boom has been quite popular for some time now, so it's... | Read more »
Rules of Survival guide - how to boost y...
It's not easy surviving in the "every-man-for-himself" world of Rules of Survival. You'll be facing off against many other players who might be more skilled than you, or are luckier than you. There are a lot of factors weighing against you. With... | Read more »
FEZ Pocket Edition (Games)
FEZ Pocket Edition 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: | Read more »
Amazing Katamari Damacy guide - beginner...
Amazing Katamari Damacy brings the bizarro world of the original games to mobile and shifts them into an endless format that's just as addictive as the PlayStation entries. Your goal is still to roll as much random stuff as you possibly can, though... | Read more »
Portal Knights guide - crafting tips and...
In Portal Knights, you're only as strong as the items you have at your disposal. This sandbox adventure is all about crafting and building up the next big thing. Whether you're an avid explorer or collector, crafting will likely play a large part... | Read more »
The best deals on the App Store this wee...
A new week means new discounts on the App Store. This week's deals run the gamut of action-adventure titles, puzzle games, and one of the best narrative adventure series out there. If you're looking to fill out your mobile gaming library on a... | Read more »
What you need to know about Animal Cross...
We hope you've been hard at work on collecting all of those holiday items in Animal Crossing: Pocket Camp, because you're about to get a whole new list of fun things to do as the game receives its first big update sometime soon. There are a lot of... | Read more »

Price Scanner via MacPrices.net

Beats Holiday sale at B&H, headphones and...
B&H Photo has Beats by Dr. Dre headphones, earphones, and speakers on sale for up to $80 off MSRP as part of their Holiday sale. Expedited shipping is free, and B&H charges sales tax to NY... Read more
Holiday sale: Apple resellers offer 2017 15″...
MacMall has 15″ MacBook Pros on sale for $220-$300 off MSRP, each including free shipping: – 15″ 2.8GHz MacBook Pro Space Gray (MPTR2LL/A): $2179, $220 off MSRP – 15″ 2.8GHz MacBook Pro Silver (... Read more
Holiday sale: Apple resellers offer 13″ MacBo...
B&H Photo has 13″ MacBook Pros on sale for up to $150 off MSRP. Shipping is free, and B&H charges sales tax for NY & NJ residents only: – 13-inch 2.3GHz/128GB Space Gray MacBook Pro (... Read more
Apple Watch Series 2, Certified Refurbished,...
Apple has Certified Refurbished Apple Watch Nike+ Series 2s, 42mm Space Gray Aluminum Case with Anthracite/Black Nike Sport Bands, available for $249 (38mm) or $279 (42mm). The 38mm model was out of... Read more
Apple offers Certified Refurbished 2016 12″ R...
Apple has Certified Refurbished 2016 12″ Retina MacBooks available starting at $949. Apple will include a standard one-year warranty with each MacBook, and shipping is free. The following... Read more
B&H drops price on 13″ 256GB MacBook Air...
B&H has the 13″ 1.8GHz/256GB Apple MacBook Air (MQD42LL/A) now on sale for $1079 including free shipping plus NY & NJ sales tax only. Their price is $120 off MSRP, and it’s the lowest price... Read more
Holiday sale: 9″ iPads starting at $299, take...
MacMall has 9″ WiFi iPads on sale for $30 off including free shipping: – 9″ 32GB WiFi iPad: $299 – 9″ 128GB WiFi iPad: $399 Read more
Green Monday deal: 15″ 2.8GHz MacBook Pro on...
B&H Photo has the 15″ 2.8GHz Space Gray MacBook Pro on sale for $250 off MSRP for today only as part of their Green Monday/Holiday sale. Shipping is free, and B&H charges sales tax for NY... Read more
Green Monday sale: B&H offers 12″ Apple i...
B&H Photo has 12″ iPad Pros on sale for up to $150 off MSRP as part of their Green Monday/Holiday sale. Shipping is free, and B&H charges sales tax in NY & NJ only: – 12″ 64GB WiFi iPad... Read more
Holiday deal: 21″ and 27″ Apple iMacs on sale...
MacMall has 2017 21″ and 27″ Apple iMacs on sale for up to $200 off MSRP. Shipping is free: – 21″ 2.3GHz iMac: $999 $100 off MSRP – 21″ 3.0GHz iMac: $1199 $100 off MSRP – 21″ 3.4GHz iMac: $1379 $120... Read more

Jobs Board

*Apple* Solutions Consultant - Apple (United...
# Apple Solutions Consultant Job Number: 113124408 Waterford, CT, Connecticut, United States Posted: 17-Oct-2017 Weekly Hours: 40.00 **Job Summary** Are you Read more
QA Automation Engineer, *Apple* Pay - Apple...
# QA Automation Engineer, Apple Pay Job Number: 113202642 Santa Clara Valley, California, United States Posted: 11-Dec-2017 Weekly Hours: 40.00 **Job Summary** At Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description:SalesSpecialist - Retail Customer Service and SalesTransform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description:SalesSpecialist - Retail Customer Service and SalesTransform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.