First the diatribe:

10 years ago I bought GSoft Basic.  It was touted as the greatest thing 
to hit the Apple //gs world.  It would allow you to do all things you 
dreamed of doing, SHR screen, Desktop programs, etc.  I found out it was 
never going to be a compiled language.  On a real //gs it's slow, the 
editor is weird, nay ridiculous.  Open-Apple-F is for FIND, not delete a 
character, no if, ands, or buts about it.  I was excited about the 
Desktop Examples.  Hmmm I can't seem to do anything with them, oh wait, 
you need Rez, not included.  It's going to be bundled with the never 
completed Toolbox Programming Tutorial.  Oh yeah, the shell is crippled 
too.  Great.  Fantastic.  So it sat and I lost interest...

I drank the beer, bought Opus II and am currently translating Toolbox 
Pascal to Gsoft.  Disregarding the previous negativity, I will say that 
Opus II is WELL worth the money and should be bought by anyone 
considering programming the //gs.  You should also get the Toolbox 
References.  (A BIG thank you to Polymorph for StartupTools help!).  So 
here it is:

NoRezFrame.  A resourceless desktop frame program that you can modify!

The program isn't commented extensively, or really that nice looking, 
but I'm sure you can figure it out.  Please let me know of any glaring 
errors in protcol, etc.  And if anyone has a spare Toolbox Reference #3 
they're looking to donate/sell to a worthy cause....

       !-----------------
       !NoRezFrame 1.0 by Smohn Jith
       !
       !Portions copyright the Byte Works, Inc.
       !All rights reserved. (c) 1998
       !------------------
	
       TYPE TOOLSPEC
         TOOLNUMBER AS INTEGER
         MINVERSION AS INTEGER
       END TYPE

       ! Change ToolArray as needed

       TYPE STARTSTOPRECORD
         FLAGS AS INTEGER
         VIDEOMODE AS INTEGER
         RESFILEID AS INTEGER
         DPAGEHANDLE AS HANDLE
         NUMTOOLS AS INTEGER
         TOOLARRAY(14) AS TOOLSPEC
       END TYPE

       DIM TLPTR AS POINTER TO STARTSTOPRECORD
       DIM DONE AS BOOLEAN:! Flag value
       DIM MYEVENT AS EVENTRECORD:! Event Record
       DIM STARTSTOPPARAM AS LONG :! tool startup/shutdown information
       DIM MYID AS INTEGER :! Memory ID
       DIM WHERE AS INTEGER :! Where event took place
       DIM WPTR AS GRAFPORTPTR:! Current grafport

       ALLOCATE (WPTR)

       ! Main program
       CALL STARTDESKTOP
       CALL INITMENUS
       INITCURSOR
       DONE = FALSE
       MYEVENT.TASKMASK = $001F7FF
       DO
         EVENT = TASKMASTER (EVERYEVENT, MYEVENT)
         SELECT CASE EVENT
           CASE WINSPECIAL, WINMENUBAR: CALL HANDLEMENU(MYEVENT.TASKDATA)
         END SELECT

       LOOP UNTIL DONE

       DISPOSE (WPTR)
       SHUTDOWNTOOLS (0, STARTSTOPPARAM)
       DISPOSE (TLPTR)
       END

       !----------------------
       ! Initialize menus.
       !
       ! Apple menu 1
       ! File menu  2
       ! Edit menu  3
       !----------------------

       SUB INITMENUS

       DIM HEIGHT AS INTEGER
       DIM MENUHAND AS MENUHANDLE
       DIM S AS STRINGPTR

       ALLOCATE (S)

       S^ = ">> Edit \N3" + CHR$ (13)
       S^ = S^ + "--Undo \N250*Zz" + CHR$ (13)
       S^ = S^ + "--Cut  \N251*Xx" + CHR$ (13)
       S^ = S^ + "--Copy \N252*Cc" + CHR$ (13)
       S^ = S^ + "--Paste \N253*Vv" + CHR$ (13)
       S^ = S^ + "--Clear \N254" + CHR$ (13)
       S^ = S^ + "." + CHR$ (13)

       MENUHAND = NEWMENU (S)
       INSERTMENU (MENUHAND, 0)


       S^ = ">> File \N2" + CHR$ (13)
       S^ = S^ + "--Close \N255*Ww" + CHR$ (13)
       S^ = S^ + "--Quit \N256*Qq" + CHR$ (13)
       S^ = S^ + "." + CHR$ (13)

       MENUHAND = NEWMENU (S)
       INSERTMENU (MENUHAND, 0)

       S^ = ">>{at}\XN1" + CHR$ (13)
       S^ = S^ + "--About...\N257V" + CHR$ (13)
       S^ = S^ + "." + CHR$ (13)
       MENUHAND = NEWMENU (S)
       INSERTMENU (MENUHAND, 0)

       FIXAPPLEMENU (1)
       HEIGHT = FIXMENUBAR
       DRAWMENUBAR
       DISPOSE (S)
       END SUB

       !--------------------
       ! Handle menu choices
       !--------------------

       SUB HANDLEMENU(TASKDATA AS LONG )

       SHARED DONE
       DIM MENUNUM AS INTEGER
       DIM MENUITEMNUM AS INTEGER

       MENUNUM = HIWORD (TASKDATA)
       MENUITEMNUM = LOWORD (TASKDATA)

       SELECT CASE MENUITEMNUM
         CASE 256:DONE = TRUE
         CASE 257: CALL DOABOUT
       END SELECT

       HILITEMENU (FALSE, MENUNUM)

       END SUB

       !-----------------
       ! Build tool record and start tools
       !-----------------

       SUB STARTDESKTOP
       SHARED STARTSTOPPARAM, TLPTR

       ALLOCATE (TLPTR)

       TLPTR^.NUMTOOLS = 14
       TLPTR^.VIDEOMODE = 640

       ! Misc Tool
       TLPTR^.TOOLARRAY(0).TOOLNUMBER = 3
       TLPTR^.TOOLARRAY(0).MINVERSION = $0302

       ! Quickdraw II
       TLPTR^.TOOLARRAY(1).TOOLNUMBER = 4
       TLPTR^.TOOLARRAY(1).MINVERSION = $0307

       ! Desk Manager
       TLPTR^.TOOLARRAY(2).TOOLNUMBER = 5
       TLPTR^.TOOLARRAY(2).MINVERSION = $0304

       ! EventManager
       TLPTR^.TOOLARRAY(3).TOOLNUMBER = 6
       TLPTR^.TOOLARRAY(3).MINVERSION = $0301

       ! Integer Math Tool
       TLPTR^.TOOLARRAY(4).TOOLNUMBER = 11
       TLPTR^.TOOLARRAY(4).MINVERSION = $0300

       ! Window Manager
       TLPTR^.TOOLARRAY(5).TOOLNUMBER = 14
       TLPTR^.TOOLARRAY(5).MINVERSION = $0303

       ! Menu Manager
       TLPTR^.TOOLARRAY(6).TOOLNUMBER = 15
       TLPTR^.TOOLARRAY(6).MINVERSION = $0303

       ! Control Manager
       TLPTR^.TOOLARRAY(7).TOOLNUMBER = 16
       TLPTR^.TOOLARRAY(7).MINVERSION = $0303

       ! Quickdraw Aux
       TLPTR^.TOOLARRAY(8).TOOLNUMBER = 18
       TLPTR^.TOOLARRAY(8).MINVERSION = $0304

       ! LineEdit Tool
       TLPTR^.TOOLARRAY(9).TOOLNUMBER = 20
       TLPTR^.TOOLARRAY(9).MINVERSION = $0303

       ! Dialog Manager
       TLPTR^.TOOLARRAY(10).TOOLNUMBER = 21
       TLPTR^.TOOLARRAY(10).MINVERSION = $0304

       ! Scrap Manager
       TLPTR^.TOOLARRAY(11).TOOLNUMBER = 22
       TLPTR^.TOOLARRAY(11).MINVERSION = $0301

       ! SFO
       TLPTR^.TOOLARRAY(12).TOOLNUMBER = 23
       TLPTR^.TOOLARRAY(12).MINVERSION = $0303

       ! Font Manager
       TLPTR^.TOOLARRAY(13).TOOLNUMBER = 27
       TLPTR^.TOOLARRAY(13).MINVERSION = $0303

       ! List Manager
       TLPTR^.TOOLARRAY(14).TOOLNUMBER = 28
       TLPTR^.TOOLARRAY(14).MINVERSION = $0303

       ! Start tools

       MYID = MMSTARTUP

       STARTSTOPPARAM = STARTUPTOOLS (MYID, 0, TLPTR)
       IF TOOLERROR  0 THEN
         PRINT "Could not start the tools! ToolError = "; TOOLERROR
         STOP
       END IF

       END SUB

       !----------------------
       ! About box without Rez
       !----------------------

       SUB DOABOUT

       DIM ASTRING AS STRINGPTR
       DIM BUTT AS INTEGER

       ALLOCATE (ASTRING)

       ASTRING^ = "43/"
       ASTRING^ = ASTRING^ + "NoRezFrame 1.0" + CHR$ (13)
       ASTRING^ = ASTRING^ + "by Smohn Jith" + CHR$ (13)
       ASTRING^ = ASTRING^ + CHR$ (13)
       ASTRING^ = ASTRING^ + "Portions (c) 1998 Byte Works, Inc." + CHR$ 
(13)
       ASTRING^ = ASTRING^ + "All rights reserved." + CHR$ (13)
       ASTRING^ = ASTRING^ + "/^#0"

       BUTT = ALERTWINDOW ($0000, NIL , ASTRING)
       DISPOSE(ASTRING)
       END SUB
--- SBBSecho 2.12-Win32