1 番目の領域

1 番目の領域は、2 つの Label ウィジェットと 2 つの TextField ウィジェット、および1 番目と 2 番目の領域を分割する Separator ウィジェットから成ります。

図 4-5 script_find ウィンドウの 1 番目の領域

次のコード・セグメントは、1 番目の Label ウィジェットを作成してから位置付け、DtkshAnchorTop 簡易関数と DtkshAnchorLeft 簡易関数を使用して Form 内にそのウィジェットを位置付けます。

XtCreateManagedWidget SDLABEL sdlabel XmLabel $FORM ¥
   labelString:"Search Directory:" ¥
   $(DtkshAnchorTop 12) ¥
   $(DtkshAnchorLeft 10)

次のコード・セグメントは、1 番目の TextField ウィジェットを作成してから位置付けます。このウィジェットは、Form ウィジェットと Label ウィジェットの両方に関連のある場所に位置付けられるので注意してください。

XtCreateManagedWidget SD sd XmText $FORM ¥
   columns:30 ¥
   value:"." ¥
   $(DtkshAnchorTop 6) ¥
   $(DtkshRightOf $SDLABEL 10) ¥
   $(DtkshAnchorRight 10) ¥
   navigationType:EXCLUSIVE_TAB_GROUP  
XmTextFieldSetInsertionPosition $SD 1

残りの Label ウィジェットと TextField ウィジェットも同じ方法で作成されます。

Separator ウィジェットは、Form ウィジェットの子として作成され、2 番目の TextField ウィジェットの下に位置付けられます。

XtCreateManagedWidget SEP sep XmSeparator $FORM ¥
   separatorType:SINGLE_DASHED_LINE ¥
   $(DtkshUnder $FNP 10) ¥
   $(DtkshSpanWidth)