Tabbed windows

Hi !
I'm working on a program that will be using tabbed windows based off the
Tabbed.f in ~\Lib\Samples\Win32

I'm confused with the TAB-NOTIFY section :

: TAB-NOTIFY ( -- res )
   LPARAM 2 CELLS + @ TCN_SELCHANGE IF
      LPARAM @ TCM_GETCURSEL 0 0 SendMessage CASE
         0 OF HTAB1 HTAB2 ENDOF
         1 OF HTAB2 HTAB1 ENDOF
         DUP OF HTAB1 HTAB2 ENDOF
      ENDCASE SW_SHOW ShowWindow DROP SW_HIDE ShowWindow DROP
   THEN 0 ;

for different reasons.

First, I need to have 6 or more tabs and I am not sure how to go about doing
this. I have gotten them to show up (just copies of the second tab with
changes made to the names given - i.e. " Enter District Name :" becomes "
Enter District Name 6 :" for tab 6) but my tabs don't show up ( obviously I
need to edit the TAB-NOTIFY section, but I am finding it a bit cryptic).

Second - and this happens even when I only have two tabs but change what is
in the first tab - I often find that the information that should be in tab 1
shows up in tab 2 and vice versa. (The change is persistent, however. I have
not been able to make it change again by clicking).

If someone would be so kind as to explain what's going on in TAB-NOTIFY or
give me some pointers as to how I might be able to incorporate more
(persistent) tabs, it would be greatly appreciated !

Thanks in advance for your time and have a great day !

A. Senerchia

----------------------------------------------------------------------
sftalk_at_forth.com The SwiftForth programming discussion email list
To unsubscribe, send subject "unsubscribe" to sftalk-request_at_forth.com
For list command help, send subject "help" to sftalk-request_at_forth.com
Message archives are located at http://www.forth.com/archive/sftalk
----------------------------------------------------------------------
This list is a forum for SwiftForth users. For product support and
bug reports, please send email to support_at_forth.com
----------------------------------------------------------------------
Received on Sat May 19 2007 - 07:20:55 PDT