don't do anything when clicked
doesn't even show it's been clicked

local mode
local fn BuildSharewareWnd
'~'1
dim as IBNibRef    @ nib
dim as WindowRef   @ w
dim as OSStatus      err

err = fn CreateNibReference( fn CFSTR( "StoryTeller" ), @nib ) 
if err then stop "CreateNibReference error"

/*err = fn SetMenuBarFromNib( nib, fn CFSTR( "MenuBar" ) )
if err then stop "SetMenuBarFromNib error"*/

err = fn CreateWindowFromNib( nib, fn CFSTR( "RegisterReminder" ), @w ) 
DisposeNibReference( nib )
if err then stop "CreateWindowFromNib error"
ShowWindow( w )

// the FB wndNum is determined by MakeIntoFBWindow's second parameter; there is nothing relevant in the nib
/*fn MakeIntoFBWindow( w, 2 )
dim as ControlButtonContentInfo  content
content.contentType = _kControlContentPictRes
content.u.resID = 129
err = FN SetControlData( button&(_URLBtn), _kControlEntireControl, _kControlBevelButtonContentTag, sizeof( content ), content)*/

//uncomment this err = FN SetControlData( button&(_URLbtn, _kControlEntireControl, _kControlBevelButtonContentTag, sizeof( content ), content)
// use an FB runtime utility to put text into the nib-derived control
//def SetButtonTextString( _eutcBtn, "programmed text" )
end fn

local fn CreateNewProject
window close #1
fn BuildSharewareWnd
end fn

is it missing a DoDialog?

I put it in my first DoDialog:
local fn DoDialog
'~'1
dim as long evnt, ref
evnt = dialog(0)
ref = dialog(1)
select evnt
case _btnClick
select ref
case _quitBtn : end
//case _helpBtn : beep : button _helpBtn, _grayBtn
case _newBtn
fn CreateNewProject
case _URLbtn
FN OpenCmdPipe ("open ", "http://www.insanemonkeysoftware.com","")
case _openBtn
fn FileOpen
case _RegisterOfflineBtn
beep 
// not finished yet
case _RegisterOnlineBtn
FN OpenCmdPipe ("open "+"http://www.insanemonkeysoftware.com/store.html","","")
end select
end select
end fn

local fn DoMenu
dim as long menuID,itemID
menuID = MENU(_menuID)
itemID = MENU(_itemID)
select (menuID)
case _applemenu
select (itemID)
case 1
//print itemID
fn ShowAbout
case 2
FN OpenCmdPipe ("open "+"http://www.insanemonkeysoftware.com/store.html","","") 
end select
case _EditMenu
select (itemID)
case _DeSelect
SETSELECT 0, 32767
end select
case _FileMenu
select (itemID)
case _NewProject
fn CreateNewProject
case _OpenProject
fn FileOpen
end select
end select
end fn

But does it need a separate one?

Brian