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

 
AAPL
$97.03
Apple Inc.
-0.16
MSFT
$44.40
Microsoft Corpora
-0.47
GOOG
$593.35
Google Inc.
-2.63

MacTech Search:
Community Search:

Software Updates via MacUpdate

Audio Hijack Pro 2.11.0 - Record and enh...
Audio Hijack Pro drastically changes the way you use audio on your computer, giving you the freedom to listen to audio when you want and how you want. Record and enhance any audio with Audio Hijack... Read more
Intermission 1.1.1 - Pause and rewind li...
Intermission allows you to pause and rewind live audio from any application on your Mac. Intermission will buffer up to 3 hours of audio, allowing users to skip through any assortment of audio... Read more
Airfoil 4.8.7 - Send audio from any app...
Airfoil allows you to send any audio to AirPort Express units, Apple TVs, and even other Macs and PCs, all in sync! It's your audio - everywhere. With Airfoil you can take audio from any... Read more
Microsoft Remote Desktop 8.0.8 - Connect...
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
xACT 2.30 - Audio compression toolkit. (...
xACT stands for X Aaudio Compression Toolkit, an application that encodes and decodes FLAC, SHN, Monkey’s Audio, TTA, Wavpack, and Apple Lossless files. It also can encode these formats to MP3, AAC... Read more
Firefox 31.0 - Fast, safe Web browser. (...
Firefox for Mac offers a fast, safe Web browsing experience. Browse quickly, securely, and effortlessly. With its industry-leading features, Firefox is the choice of Web development professionals... Read more
Little Snitch 3.3.3 - Alerts you to outg...
Little Snitch gives you control over your private outgoing data. Track background activityAs soon as your computer connects to the Internet, applications often have permission to send any... Read more
Thunderbird 31.0 - Email client from Moz...
As of July 2012, Thunderbird has transitioned to a new governance model, with new features being developed by the broader free software and open source community, and security fixes and improvements... Read more
Together 3.2 - Store and organize all of...
Together helps you organize your Mac, giving you the ability to store, edit and preview your files in a single clean, uncluttered interface. Smart storage. With simple drag-and-drop functionality,... Read more
Cyberduck 4.5 - FTP and SFTP browser. (F...
Cyberduck is a robust FTP/FTP-TLS/SFTP browser for the Mac whose lack of visual clutter and cleverly intuitive features make it easy to use. Support for external editors and system technologies such... Read more

Latest Forum Discussions

See All

LEX Goes Free For One Day In Honor of Ne...
LEX Goes Free For One Day In Honor of New Update Posted by Jennifer Allen on July 24th, 2014 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
Thomas Was Alone Goes Universal, Slashes...
Thomas Was Alone Goes Universal, Slashes Price to $3.99 Posted by Ellis Spice on July 24th, 2014 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
Meerkatz Challenge Review
Meerkatz Challenge Review By Jennifer Allen on July 24th, 2014 Our Rating: :: FONDLY PUZZLINGUniversal App - Designed for iPhone and iPad Cute and challenging, Meerkatz Challenge is a fun puzzle game, particularly for fans of... | Read more »
Book Your Appointment with F.E.A.R. this...
Book Your Appointment with F.E.A.R. | Read more »
It Came From Canada: Epic Skater
For all the hate that it gets for being a pastime for slackers, skateboarding really does require a lot of skill. All those flips and spins take real athleticism, and there’s all the jargon to memorize. Fortunately for us less extreme individuals,... | Read more »
Cultures Review
Cultures Review By Jennifer Allen on July 24th, 2014 Our Rating: :: SLOW-PACED EMPIRE BUILDINGiPad Only App - Designed for the iPad Cute it might seem, but Cultures is a bit too slow paced when it comes to those pesky timers to... | Read more »
More Paintings Have Been Added to Paint...
More Paintings Have Been Added to Paint it Back! Posted by Jessica Fisher on July 24th, 2014 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
The Order of Souls Review
The Order of Souls Review By Campbell Bird on July 24th, 2014 Our Rating: :: STORY GRINDUniversal App - Designed for iPhone and iPad The Order of Souls is a free-to-play, turn-based RPG with a genre-mixing art style, interesting... | Read more »
Revolution 60 Review
Revolution 60 Review By Jordan Minor on July 24th, 2014 Our Rating: :: LASS EFFECTUniversal App - Designed for iPhone and iPad Revolution 60 is a bold, cinematic action game with ambition to spare.   | Read more »
Matter (Photography)
Matter 1.0.1 Device: iOS Universal Category: Photography Price: $1.99, Version: 1.0.1 (iTunes) Description: Add stunning 3D effects to your photos with real-time shadows and reflections. Export your creations as photos or video loops... | Read more »

Price Scanner via MacPrices.net

Save on 5th generation refurbished iPod touch...
The Apple Store has Apple Certified Refurbished 5th generation iPod touches available starting at $149. Apple’s one-year warranty is included with each model, and shipping is free. Many, but not all... Read more
What Should Apple’s Next MacBook Priority Be;...
Stabley Times’ Phil Moore says that after expanding its iMac lineup with a new low end model, Apple’s next Mac hardware decision will be how it wants to approach expanding its MacBook lineup as well... Read more
ArtRage For iPhone Painting App Free During C...
ArtRage for iPhone is currently being offered for free (regularly $1.99) during Comic-Con San Diego #SDCC, July 24-27, in celebration of the upcoming ArtRage 4.5 and other 64-bit versions of the... Read more
With The Apple/IBM Alliance, Is The iPad Now...
Almost since the iPad was rolled out in 2010, and especially after Apple made a 128 GB storage configuration available in 2012, there’s been debate over whether the iPad is a serious tool for... Read more
MacBook Airs on sale starting at $799, free s...
B&H Photo has the new 2014 MacBook Airs on sale for up to $100 off MSRP for a limited time. Shipping is free, and B&H charges NY sales tax only. They also include free copies of Parallels... Read more
Apple 27″ Thunderbolt Display (refurbished) a...
The Apple Store has Apple Certified Refurbished 27″ Thunderbolt Displays available for $799 including free shipping. That’s $200 off the cost of new models. Read more
WaterField Designs Unveils Cycling Ride Pouch...
High end computer case and bag maker WaterField Designs of San Francisco now enters the cycling market with the introduction of the Cycling Ride Pouch – an upscale toolkit with a scratch-free iPhone... Read more
Kingston Digital Ships Large Capacity Near 1T...
Kingston Digital, Inc., the Flash memory affiliate of Kingston Technology Company, Inc.,has announced its latest addition to the SSDNow V300 series, the V310. The Kingston SSDNow V310 solid-state... Read more
Apple’s Fiscal Third Quarter Results; Record...
Apple has announced financial results for its fiscal 2014 third quarter ended June 28, 2014, racking up quarterly revenue of $37.4 billion and quarterly net profit of $7.7 billion, or $1.28 per... Read more
15-inch 2.0GHz MacBook Pro Retina on sale for...
B&H Photo has the 15″ 2.0GHz Retina MacBook Pro on sale for $1829 including free shipping plus NY sales tax only. Their price is $170 off MSRP. B&H will also include free copies of Parallels... Read more

Jobs Board

Sr Software Lead Engineer, *Apple* Online S...
Sr Software Lead Engineer, Apple Online Store Publishing Systems Keywords: Company: Apple Job Code: E3PCAK8MgYYkw Location (City or ZIP): Santa Clara Status: Full Read more
Senior Interaction Designer, *Apple* Online...
**Job Summary** Apple is looking for a hands on Senior…will be a key player in designing for the Apple Online Store. The ideal designer will have a Read more
*Apple* Sales Chat Rep - Apple (United State...
…is looking for motivated, outgoing, and tech savvy individuals who want to offer Apple Customers an unparalleled customer experience over chat. At Apple , we believe Read more
Mac Expert - *Apple* Online Store Mexico -...
…MUST be fluent in English and Spanish to be considered for this position At Apple , we believe that hard work, a fun environment, creativity and innovation fuel the Read more
*Apple* Industrial Design CAD Sculptor - App...
**Job Summary** The Apple Industrial Design team is looking for a CAD sculptor/Digital 3D modeler to create high quality CAD models used in the industrial design process Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.