hiCreateTabField

[David]

Does anyone have a working example of how to use
hiCreateTabField?
I have tried everything I know (and that is not very much) trying to
make the ?fields parameter happy with no success.
Below is a copy of the area of code that I think is giving me
the trouble:
--------------\snip\---------------
jnkField = list( list( hiCreateFrameField(
?name 'ppFrame2
?labelText "Power Plots"
?enabled t
) 15:50 frameWidth:yCrdMax 20
))

tabField = list( list( hiCreateTabField(
?name 'ppTabField
?fields jnkField
?tabs list( "tab1" "tab2" )
?value 1
?tabPlacement 'top
?tabOrderIsAddOrder 't
?callback ""
?notebookStyle 'nil
) 100:20 500:100
)) ;;; end list list

BPForm = hiCreateAppForm(
?name 'BP_configForm
?formTitle "Batch Plot"
?callback list( "BPJnk1()" "BPJnk2()" )
?unmapAfterCB t
?buttonLayout 'OKCancel
?help ""
?initialSize frameWidth+50:yCrdMax+800
?fields tabField
) ;;; end hiCreateAppForm

TIA,
David

 

[Pete nospam Zakel]

In article <838bc971.0310211916.42c57272@posting.google.com> David_McKay@Champion-micro.com (David) writes:

Does anyone have a working example of how to use
hiCreateTabField?
I have tried everything I know (and that is not very much) trying to
make the ?fields parameter happy with no success.
Below is a copy of the area of code that I think is giving me
the trouble:

Below is a modified version that should work:

--------------\snip\---------------
jnkField = list( list( hiCreateFrameField(
?name 'ppFrame2
?labelText "Power Plots"
?enabled t
) 15:50 frameWidth:yCrdMax 20
))

jnkField2 = list( list( hiCreateFrameField(
?name 'ppFrame3
?labelText "Other Plots"
?enabled t
) 15:50 frameWidth:yCrdMax 20
))

tabField = list( list( hiCreateTabField(
?name 'ppTabField
?fields list( jnkField jnkField2 )
?tabs list( "tab1" "tab2" )
?value 1
?tabPlacement 'top
?tabOrderIsAddOrder 't
?callback ""
?notebookStyle 'nil
) 100:20 500:100
)) ;;; end list list

BPForm = hiCreateAppForm(
?name 'BP_configForm
?formTitle "Batch Plot"
?callback list( "BPJnk1()" "BPJnk2()" )
?unmapAfterCB t
?buttonLayout 'OKCancel
?help ""
?initialSize frameWidth+50:yCrdMax+800
?fields tabField
) ;;; end hiCreateAppForm

You need one more level of list() for the ?fields for a tab field.

-Pete Zakel
(phz@seeheader.nospam)

"The truth of a proposition has nothing to do with its credibility.
And vice versa."

 

[David]

Pete,

This did the trick. Thank you!!

David


pxhxz@cadence.com (Pete nospam Zakel) wrote in message news:<3f960564$1@news.cadence.com>...

In article <838bc971.0310211916.42c57272@posting.google.com> David_McKay@Champion-micro.com (David) writes:
Does anyone have a working example of how to use
hiCreateTabField?
I have tried everything I know (and that is not very much) trying to
make the ?fields parameter happy with no success.
Below is a copy of the area of code that I think is giving me
the trouble:

Below is a modified version that should work:

--------------\snip\---------------
jnkField = list( list( hiCreateFrameField(
?name 'ppFrame2
?labelText "Power Plots"
?enabled t
) 15:50 frameWidth:yCrdMax 20
))

jnkField2 = list( list( hiCreateFrameField(
?name 'ppFrame3
?labelText "Other Plots"
?enabled t
) 15:50 frameWidth:yCrdMax 20
))

tabField = list( list( hiCreateTabField(
?name 'ppTabField
?fields list( jnkField jnkField2 )
?tabs list( "tab1" "tab2" )
?value 1
?tabPlacement 'top
?tabOrderIsAddOrder 't
?callback ""
?notebookStyle 'nil
) 100:20 500:100
)) ;;; end list list

BPForm = hiCreateAppForm(
?name 'BP_configForm
?formTitle "Batch Plot"
?callback list( "BPJnk1()" "BPJnk2()" )
?unmapAfterCB t
?buttonLayout 'OKCancel
?help ""
?initialSize frameWidth+50:yCrdMax+800
?fields tabField
) ;;; end hiCreateAppForm

You need one more level of list() for the ?fields for a tab field.

-Pete Zakel
(phz@seeheader.nospam)

"The truth of a proposition has nothing to do with its credibility.
And vice versa."