TweetFollow Us on Twitter

Menu Bar XCMD
Volume Number:5
Issue Number:5
Column Tag:HyperChat™

Menu Bar XCMD

By Fred Stauder, HyperChat Editor, Zurich, Switzerland

Note: Source code files accompanying article are located on MacTech CD-ROM or source code disks.

on HyperChat

The Interface Race is On

I attended the Hannover CeBit fair in mid March. It is without doubt the biggest computer exhibition on earth. If you think the MacWorld Expos are getting huge, CeBit is no comparison; it is at least 20 times the size. It lasts for eight days, and even if you tried to go through systematically, there’s no hope. It consists of everything from mainframes down to pocket computers, computer security systems, video conferencing, and much, much more. It was good to see that the Apple stand was one of the most popular (the IIcx and the screens were introduced there).

Some of the exciting things were a 16 gigabyte eraseable(rewritable) library unit that stores 20 cartridges and can change them in 6 seconds. The units can be linked together to hold 224 GB on line and SCSI. Another interesting thing was an information display unit, like a small billboard (A1 size), encased in glass. It contains a waxed plastic roll and a toner mechanism. The end result is that you can print to this thing, and it rolls up to be displayed. the toner is not fixed so you can re-write to it. Color and larger versions are in the works. In the future we will see billboards that will be updated from a remote computer in seconds. This is a very innovative output device, I can hardly wait to see the weird uses people will put to it.

It was such a pleasure attending CeBit; they treated the international press magnificently, and was such a contrast to the unproffesional treatment by Industrade in Switzerland.

There were of course lots of other great goodies but space does not permit. Anyway my job is to tell you about MultiMedia and interface, but it is important to realize how things like, cheaper larger mass storage and innovative output devices can change the way we have to design programs.

OpenLook which has been dubbed the “universal” interface for Unix environments was being shown everywhere, as was Xwindows and presentation manager. Sun was showing off SunWrite, SunPaint, and SunDraw. My impression: 5 years late and not as userfriendly. This was the first non-Mac show that I have been to that most of the Key players were concerned about Human Interface. As CPU’s match CPU’s in performance and cost, and software does the same, it is important to realize the most important thing is: “How long will it take to learn”, and “Do I need a manual”. If your software is intuitive to use and easier to use people are more likely to buy it.

I have a button (fig. 1) that reads "My Boss is the End User".

I think we should all make him our Boss. If I am not making his life easier and bettering his experience then I am not doing my job.

Now for the quiz last month. The monkey lives. How many people have heard the monkey beep on the Mac II? How many of you knew that it is a human sound? I didn’t believe it either until I met Sandi Dobrowolsky in person (formally from Apple and now at Claris), and she demonstrated the monkey sound. She really can have fun near peoples machines because she can reproduce it accurately every time, so people think there is something wrong with their Mac. It is, by the way, the only Human sound to be shipped with a Mac. So “eek eek” Sandi and I hope you and Steve had a great trip “down under” (my home country). So we look forward to hearing Koala and Kangaroo sounds.

The point that I am making is that with a bit of creativity and experimentation you can come up with great sounds and graphics, that won’t get you into copyright problems. Expand your horizons, use the Human Interface Guidelines (they are not absolute rules), experiment and go beyond our present limitations. The interface is the future.

Figure 1.

Your wish is my XCMD

I have two XCMD’s this month that I find quite useful. The first I called invisMenuBar, it makes the menubar invisible and still functional. It is really useful when developing on a small screen. The Human Interface Guidelines clearly state “don’t hide things from the user and don’t surprise them”. So why am I showing you this XCMD? Firstly I would strongly object to people using it in a stack. It is a development/power user tool it may help you develop stacks and browse through other peoples if you have a small screen. Just like MacsBug deviates a long way from the guidelines but is highly useable and appropriate in it’s context. What it does. It simply uses a callback to hypertalk to hide the menubar, then it sets the height of the menubar to the height of it’s natural state. Hypercard is fooled to think that it is hidden so it doesn’t do a menubar redraw, however when you have a mousedown in the menubar it accepts it and draws the menu.

Figure 2.


(*
invisMenuBar-- a sHyperCard external command
that makes the menubar invisible yet functional.

 Written in MPW Pascal.
 Written by Fred Stauder
 ©All rights reserved 1988

pascal :Sources:XCMD:InvisMenuBar.p 
link -o AJS-60:test -rt XCMD=7004 -sn 
Main=InvisMenuBar :Sources:XCMD:InvisMenuBar.p.o 
o -m ENTRYPOINT
 
*)

InvisMenuBar 
Segment name must be the same as the command name. 

UNIT Fred_Stauder;

INTERFACE

USES MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf, PasLibIntf, HyperXCmd;

PROCEDURE ENTRYPOINT(paramPtr:XCmdPtr);

IMPLEMENTATION
TYPE Str31 = String[31];

PROCEDURE InvisMenuBar(paramPtr:XCmdPtr);    FORWARD;

PROCEDURE ENTRYPOINT(paramPtr:XCmdPtr);
 BEGIN
 InvisMenuBar(paramPtr);
 END;

 PROCEDURE InvisMenuBar(paramPtr:XCmdPtr);
 
XCmdGlue.inc the glue routines
 VAR menuBarHeight:Ptr;
 
 BEGIN
 SendCardMessage(‘hide menubar’);
 menuBarHeight := Ptr($BAB);
 directly  to  the global the only way possible          menuBarHeight^ 
:= $14;
 END; 
 
END.

Listing 1.

The second XCMD allows you to change the window type. This is useful when you want to do a presentation and not have the window title visible. Or if you want to make a small window for a specific purpose. (fig.3.) The windowDefproc and the high order byte holds the window variation code. First you pass a parameter with the XCMD changeWindowType, that gives you the desired window. the types are the same as in Inside mac V I p273.

documentProc=  0 (standard document window)
dBoxProc=  1 (alert box or modal dialog box)
plainDBox =  2 (plain box)
altDBoxProc =  3 (plain box with shadow)
noGrowDocProc  =  4 (document window without size)
rDocProc= 16(rounded-corner window)

Figure 3.

You take the parameter, convert to a Longint, then comes the slightly tricky bit where you have to do bit manipulation to write it to the high order byte of the windowDefproc. You can get the window type by using the function GetWVariant. I will leave this as an exercise for you to write, so that once you have changed the window type you will be able to find out what it is through an XFCN.

Diagram 1. shows how the bits are manipulated to put the window variant into high order byte of theWindow^.DefProc handle. Then I hide and show the cardwindow to update the screen.

Diagram 1.

Listing 2.
 Written in MPW Pascal.
 Written by Fred Stauder
 ©All rights reserved 1988
(*
pascal :changeWindowType.p
link -o Development:Demo:home -rt XCMD=7005sn 
Main=changeWindowType :changeWindowType.p.o -m ENTRYPOINT
*)

changeWindowType name must be the same as the command name

UNIT DummyUnit;
INTERFACE

USES MemTypes, QuickDraw, OSIntf, ToolIntf, PasLibIntf, HyperXCmd;

PROCEDURE ENTRYPOINT(paramPtr:XCmdPtr);

IMPLEMENTATION

Str31 = String[31];

PROCEDURE changeWindowType(paramPtr:XCmdPtr);      FORWARD;

 PROCEDURE ENTRYPOINT(paramPtr:XCmdPtr);
 BEGIN
 changeWindowType(paramPtr);
 END;

 PROCEDURE changeWindowType(paramPtr:XCmdPtr);
 VAR 
 HCWindow:WindowPtr;
 theWindow: WindowPeek;
 tempStr: Str255;
 kind:  Longint;
 newWind: Longint;
 firstMask: Longint;
 firstShift:Longint;
 secondMask:Longint;
 
XCmdGlue.inc the glue routines

 BEGIN 
 GetPort(HCWindow);
 thy port
 ZeroToPas(paramPtr^.params[1]^,tempStr);
 kind := StrToNum(tempStr);

  theWindow := WindowPeek(HCWindow);
  firstMask := BitAnd(Kind,$000000FF);
  firstShift := BitShift(firstMask,24);
  secondMask := BitAnd(LONGINT(theWindow^.windowDefProc),$00FFFFFF);
  
  newWind := BitOR(firstShift,secondMask);
  
 theWindow^.windowDefProc := Handle(newWind);
  SendHCMessage(‘hide cd window’);
  SendHCMessage(‘show cd window’);
 SetPort(HCWindow);
 thy port
 END;
END.

Next month I will show you an XCMD that will allow you to resize the card window of Hypercard such as in Fig. 3.

Send articles ideas, comments etc to Applelink: STAUDER.

end HyperChat

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Arq 5.8.4 - Online backup to Google Driv...
Arq is super-easy online backup for Mac and Windows computers. Back up to your own cloud account (Amazon Cloud Drive, Google Drive, Dropbox, OneDrive, Google Cloud Storage, any S3-compatible server... Read more
Airmail 3.2.9 - Powerful, minimal email...
Airmail is an mail client with fast performance and intuitive interaction. Support for iCloud, MS Exchange, Gmail, Google Apps, IMAP, POP3, Yahoo!, AOL, Outlook.com, Live.com. Airmail was designed... Read more
Microsoft Remote Desktop 8.0.39 - Connec...
With Microsoft Remote Desktop, you can connect to a remote PC and your work resources from almost anywhere. Experience the power of Windows with RemoteFX in a Remote Desktop client designed to help... Read more
Posterino 3.3.7 - Create posters, collag...
Posterino offers enhanced customization and flexibility including a variety of new, stylish templates featuring grids of identical or odd-sized image boxes. You can customize the size and shape of... Read more
Airmail 3.2.8 - Powerful, minimal email...
Airmail is an mail client with fast performance and intuitive interaction. Support for iCloud, MS Exchange, Gmail, Google Apps, IMAP, POP3, Yahoo!, AOL, Outlook.com, Live.com. Airmail was designed... Read more
WhatRoute 2.0.21 - Geographically trace...
WhatRoute is designed to find the names of all the routers an IP packet passes through on its way from your Mac to a destination host. It also measures the round-trip time from your Mac to the router... Read more
Airmail 3.2.8 - Powerful, minimal email...
Airmail is an mail client with fast performance and intuitive interaction. Support for iCloud, MS Exchange, Gmail, Google Apps, IMAP, POP3, Yahoo!, AOL, Outlook.com, Live.com. Airmail was designed... Read more
WhatRoute 2.0.21 - Geographically trace...
WhatRoute is designed to find the names of all the routers an IP packet passes through on its way from your Mac to a destination host. It also measures the round-trip time from your Mac to the router... Read more
iFFmpeg 6.3.5 - Convert multimedia files...
iFFmpeg is a comprehensive media tool to convert movie, audio and media files between formats. The FFmpeg command line instructions can be very hard to master/understand, so iFFmpeg does all the hard... Read more
Opera 45.0.2552.812 - High-performance W...
Opera is a fast and secure browser trusted by millions of users. With the intuitive interface, Speed Dial and visual bookmarks for organizing favorite sites, news feature with fresh, relevant content... Read more

Latest Forum Discussions

See All

Honor 8 Pro, a great choice for gamers
Honor is making strides to bring its brand to the forefront of mobile gaming with its latest phone, the Honor 8 Pro. The Pro sets itself apart from its predecessor, the Honor 8, with a host of premium updates that boost the device’s graphical and... | Read more »
The 4 best outdoor adventure apps
Now that we're well into the pleasant, warmer months, it's time to start making the most of the great outdoors. Spring and summer are ideal times for a bit of trekking or exploration. You don't have to go it alone, though. There are plenty of... | Read more »
Things 3 (Productivity)
Things 3 3.0.1 Device: iOS iPhone Category: Productivity Price: $7.99, Version: 3.0.1 (iTunes) Description: Meet the all-new Things! A complete rethinking of the original, award-winning task manager – with a perfect balance between... | Read more »
Oddball mash-up Arkanoid vs Space Invade...
In a move no one was really expecting, Square Enix has put forth an Arkanoid/Space Invaders mash-up aptly titled Arkanoid vs Space Invaders. The game launched today on both iOS and Android and the reviews are actually quite good. [Read more] | Read more »
Arkanoid vs Space Invaders (Games)
Arkanoid vs Space Invaders 1.0 Device: iOS Universal Category: Games Price: $3.99, Version: 1.0 (iTunes) Description: LAUNCH SALE: GET THE GAME AT 20% OFF! Two of the most iconic classic games ever made meet in Arkanoid vs Space... | Read more »
The best new games we played this week
Things got off to a bit of a slow start this week, but as we steadily creep towards Friday a bunch of great games have started cropping up. If you're looking for a quality new release to play this weekend, we've got you covered. Here's a handy... | Read more »
No Stick Shooter (Games)
No Stick Shooter 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Happy Robot presents a fresh take on the classic retro-arcade shooters we all know and love. Featuring 30 levels of non-stop... | Read more »
Chroma Squad (Games)
Chroma Squad 1.0.85 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.85 (iTunes) Description: | Read more »
Old Man's Journey (Games)
Old Man's Journey 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: A heartfelt game about life, loss and hope. Old Man’s Journey is a soul-searching puzzle adventure game about life’s... | Read more »
Beholder (Games)
Beholder 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Welcome to a grim dystopian future. "Beholder is stressful on a moral level, but as a game, it’s simple and entertaining" - Game... | Read more »

Price Scanner via MacPrices.net

Five To Six Million 10.5-inch iPad Pro Tablet...
Digitimes’ Siu Han and Joseph Tsai report that upstream supply chain shipments for Apple’s new 10.5-inch iPad Pro have been increasing, with monthly shipment volume expected to hit 600,000 units by... Read more
Georgia Tech Students Win Toyota and Net Impa...
Earlier this year, a team of students at Georgia Tech realized that there was a critical gap in transportation services for people who use wheelchairs, and wondered if the solution could be in the... Read more
13-inch 2.0GHz Space Gray MacBook Pro on sale...
Amazon has the 13″ 2.0GHz Space Gray non-Touch Bar MacBook Pro (MLL42LL/A) on sale for $1299.99 including free shipping. Their price is $200 off MSRP, and it’s currently the lowest price available... Read more
Roundup of 15-inch MacBook Pro sale prices, m...
B&H Photo has the new 2016 15″ Apple Touch Bar MacBook Pros in stock today and on sale for up to $200 off MSRP. Shipping is free, and B&H charges NY & NJ sales tax only: - 15″ 2.7GHz... Read more
15-inch 2.2GHz Retina MacBook Pro on sale for...
B&H Photo has the 2015 15″ 2.2GHz Retina MacBook Pro (MJLQ2LL/A) on sale for $1849 including free shipping plus NY & NJ sales tax only. Their price is $150 off MSRP. Read more
21-inch iMacs on sale for $100 off MSRP, save...
B&H Photo has 21″ iMacs on sale for $100 off MSRP, each including free shipping plus NY & NJ sales tax only: - 21″ 3.1GHz iMac 4K: $1399.99 $100 off MSRP - 21″ 2.8GHz iMac: $1199.99 $100 off... Read more
Groupon Survey Finds Families Will Spend One-...
With warmer weather finally arriving in most parts of the country and the school year winding down to a close, Groupon (http://www.groupon.com) asked 1,000 U.S. parents how much time their families... Read more
Panasonic Anounces Toughbook 33 2-in-1 Rugged...
Panasonic has announced the U.S. availability of the Panasonic Toughbook 33, claimed to be the first fully-rugged 2-in-1 detachable laptop that features a 3:2 display. Inspired by the hard-working... Read more
9-inch 32GB iPad Pros available for up to $10...
Amazon resellers are offering new 9″ 32GB iPad Pros for up to $101 off MSRP, starting at $498, including free shipping. Colors may be Space Gray, Silver, Gold, or Rose Gold, depending on the reseller... Read more
Back in stock: Apple refurbished Mac minis st...
Apple has Certified Refurbished Mac minis available starting at $419. Apple’s one-year warranty is included with each mini, and shipping is free: - 1.4GHz Mac mini: $419 $80 off MSRP - 2.6GHz Mac... Read more

Jobs Board

Director, *Apple* Program - ERP & Cloud...
…make a real difference. Come, shine with us! Astellas is announcing a Director, Apple Program - ERP & Cloud Platform Architecture Lead opportunity in Northbrook, IL. Read more
*Apple* Mobile Master - Best Buy (United Sta...
**508102BR** **Job Title:** Apple Mobile Master **Location Number:** 000511-Athens-Store **Job Description:** **What does a Best Buy Apple Mobile Master do?** At Read more
*Apple* Media Products - Commerce Engineerin...
Apple Media Products - Commerce Engineering Manager Job Number: 57037480 Santa Clara Valley, California, United States Posted: Apr. 18, 2017 Weekly Hours: 40.00 Job Read more
Geek Squad *Apple* Master Consultation Agen...
**500444BR** **Job Title:** Geek Squad Apple Master Consultation Agent **Location Number:** 000103-City Of Industry-Store **Job Description:** **What does a Geek Read more
Security Engineer, *Apple* Retail - Apple I...
Changing the world is all in a day's work at Apple . If you love innovation, here's your chance to make a career of it. You'll work hard. But the job comes with more Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.