# $XConsortium: Notebook3c.scr /main/4 1995/07/17 20:31:50 drk $
# Motif
#
# Copyright (c) 1987-2012, The Open Group. All rights reserved.
#
# These libraries and programs are free software; you can
# redistribute them and/or modify them under the terms of the GNU
# Lesser General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option)
# any later version.
#
# These libraries and programs are distributed in the hope that
# they will be useful, but WITHOUT ANY WARRANTY; without even the
# implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
# PURPOSE. See the GNU Lesser General Public License for more
# details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with these librararies and programs; if not, write
# to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
# Floor, Boston, MA 02110-1301 USA
#
# HISTORY
# A Notebook Widget will appear on your screen. It will have all
# the default settings.
# There will be an empty ScrolledList in the upper left of your screen. This
# will be dynamically updated with the names of any widgets you create during
# the test.
WindowMove Notebook 700 500
CompareVisual Notebook
Continue
# Set childType to PAGE.
# Select "Set Child Type" from the "Set Child Values" menu.
LocatePointer TogglenotebookChildType0
ClickMB Btn1
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer notebookChildTypePB1
ReleaseMB Btn1
# Set the value of the "Page Number" scale to 1.
# Select "Set Page Number" from the "Set Child Values" menu.
LocatePointer PageNumberScale RScaleSlider
DragSliderValue Right 1
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer pageNumberPB1
ReleaseMB Btn1
# Select "Create Child" from the "Child" menu.
LocatePointer MenuCascade2
PressMB Btn1
LocatePointer ChildPB1
ReleaseMB Btn1
# A SelectionDialog will appear on your screen. Choose "XmMessageBox" from
# the list of choices, and click on the OK button of the SelectionDialog.
# A MessageBox page should appear.
LocatePointer ChildWidgetSelectionDialog RSelectionListItem 11
ClickMB Btn1
LocatePointer ChildWidgetSelectionDialog ROkButton
ClickMB Btn1
Continue
# Set childType to STATUS_AREA.
# Select "Set Child Type" from the "Set Child Values" menu.
LocatePointer TogglenotebookChildType3
ClickMB Btn1
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer notebookChildTypePB1
ReleaseMB Btn1
# Set the value of the "Page Number" scale to 1.
# Select "Set Page Number" from the "Set Child Values" menu.
LocatePointer PageNumberScale RScaleSlider
DragSliderValue Right 1
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer pageNumberPB1
ReleaseMB Btn1
# Select "Create Child" from the "Child" menu.
LocatePointer MenuCascade2
PressMB Btn1
LocatePointer ChildPB1
ReleaseMB Btn1
# Select "XmLabel" from the list of choices in the SelectionDialog.
# A Label status area, "StatusArea1" should appear on the screen. It is
# associated with page 1.
LocatePointer ChildWidgetSelectionDialog RSelectionListItem 7
ClickMB Btn1
LocatePointer ChildWidgetSelectionDialog ROkButton
ClickMB Btn1
# Repeat steps 1-7.
# A Label status area, "StatusArea2" should appear on the screen. It is
# associated with the same page as "StatusArea1". "StatusArea1" should
# no longer be visible.
# Set the value of the "Page Number" scale to 1.
# Select "Set Page Number" from the "Set Child Values" menu.
LocatePointer PageNumberScale RScaleSlider
DragSliderValue Right 1
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer pageNumberPB1
ReleaseMB Btn1
# Select "Create Child" from the "Child" menu.
LocatePointer MenuCascade2
PressMB Btn1
LocatePointer ChildPB1
ReleaseMB Btn1
# Select "XmLabel" from the list of choices in the SelectionDialog.
# A Label status area, "StatusArea1" should appear on the screen. It is
# associated with page 1.
LocatePointer ChildWidgetSelectionDialog RSelectionListItem 7
ClickMB Btn1
LocatePointer ChildWidgetSelectionDialog ROkButton
ClickMB Btn1
Continue
# Set childType to MAJOR_TAB.
# Select "Set Child Type" from the "Set Child Values" menu.
LocatePointer TogglenotebookChildType1
ClickMB Btn1
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer notebookChildTypePB1
ReleaseMB Btn1
# Set the value of the "Page Number" scale to 1.
# Select "Set Page Number" from the "Set Child Values" menu.
LocatePointer PageNumberScale RScaleSlider
DragSliderValue Right 1
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer pageNumberPB1
ReleaseMB Btn1
# Select "Create Child" from the "Child" menu.
LocatePointer MenuCascade2
PressMB Btn1
LocatePointer ChildPB1
ReleaseMB Btn1
# Select "XmPushButton" from the list of choices in the SelectionDialog.
# A PushButton major tab should appear on the screen, which is associated with
# page 1.
LocatePointer ChildWidgetSelectionDialog RSelectionListItem 13
ClickMB Btn1
LocatePointer ChildWidgetSelectionDialog ROkButton
ClickMB Btn1
Continue
#) Set childType to MAJOR_TAB.
#) Select "Set Child Type" from the "Set Child Values" menu.
LocatePointer TogglenotebookChildType1
ClickMB Btn1
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer notebookChildTypePB1
ReleaseMB Btn1
# Set the value of the "Page Number" scale to 6.
# Select "Set Page Number" from the "Set Child Values" menu.
LocatePointer PageNumberScale RScaleSlider
DragSliderValue Right 6
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer pageNumberPB1
ReleaseMB Btn1
# Select "Create Child" from the "Child" menu. A SelectionDialog will appear
# on your screen. Choose "XmPushButton" from the list of choices.
# A PushButton major tab will appear.
LocatePointer MenuCascade2
PressMB Btn1
LocatePointer ChildPB1
ReleaseMB Btn1
LocatePointer ChildWidgetSelectionDialog RSelectionListItem 13
ClickMB Btn1
LocatePointer ChildWidgetSelectionDialog ROkButton
ClickMB Btn1
CompareVisual Notebook
# Repeat steps 1-5 3 more times, increasing the value of the
# "Set Page Number" scale to 10,11,12. The result will be 3 major tabs
# associated with pages 1,6,10,11,12. (MajorTab1, MajorTab2, MajorTab3,
# MajorTab4,MajorTab5).
LocatePointer TogglenotebookChildType1
ClickMB Btn1
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer notebookChildTypePB1
ReleaseMB Btn1
LocatePointer PageNumberScale RScaleSlider
DragSliderValue Right 10
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer pageNumberPB1
ReleaseMB Btn1
LocatePointer MenuCascade2
PressMB Btn1
LocatePointer ChildPB1
ReleaseMB Btn1
LocatePointer ChildWidgetSelectionDialog RSelectionListItem 13
ClickMB Btn1
LocatePointer ChildWidgetSelectionDialog ROkButton
ClickMB Btn1
LocatePointer TogglenotebookChildType1
ClickMB Btn1
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer notebookChildTypePB1
ReleaseMB Btn1
LocatePointer PageNumberScale RScaleSlider
DragSliderValue Right 11
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer pageNumberPB1
ReleaseMB Btn1
LocatePointer MenuCascade2
PressMB Btn1
LocatePointer ChildPB1
ReleaseMB Btn1
LocatePointer ChildWidgetSelectionDialog RSelectionListItem 13
ClickMB Btn1
LocatePointer ChildWidgetSelectionDialog ROkButton
ClickMB Btn1
LocatePointer TogglenotebookChildType1
ClickMB Btn1
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer notebookChildTypePB1
ReleaseMB Btn1
LocatePointer PageNumberScale RScaleSlider
DragSliderValue Right 12
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer pageNumberPB1
ReleaseMB Btn1
LocatePointer MenuCascade2
PressMB Btn1
LocatePointer ChildPB1
ReleaseMB Btn1
LocatePointer ChildWidgetSelectionDialog RSelectionListItem 13
ClickMB Btn1
LocatePointer ChildWidgetSelectionDialog ROkButton
ClickMB Btn1
CompareVisual Notebook
# Major tab scrollers will appear in the Notebook. Use these to scroll
# through the major tabs.
LocatePointer MajorTabScrollerNext
ClickMB Btn1
ClickMB Btn1
CompareVisual Notebook
LocatePointer MajorTabScrollerPrevious
ClickMB Btn1
ClickMB Btn1
CompareVisual Notebook
Continue
# Set childType to MINOR_TAB.
# Select "Set Child Type" from the "Set Child Values" menu.
LocatePointer TogglenotebookChildType2
ClickMB Btn1
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer notebookChildTypePB1
ReleaseMB Btn1
# Set the value of the "Page Number" scale to 2.
# Select "Set Page Number" from the "Set Child Values" menu.
LocatePointer PageNumberScale RScaleSlider
DragSliderValue Left 2
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer pageNumberPB1
ReleaseMB Btn1
# Select "Create Child" from the "Child" menu. Choose "XmPushButton" from
# the list of choices in the SelectionDialog.
# A PushButton minor tab will appear.
LocatePointer MenuCascade2
PressMB Btn1
LocatePointer ChildPB1
ReleaseMB Btn1
LocatePointer ChildWidgetSelectionDialog RSelectionListItem 13
ClickMB Btn1
LocatePointer ChildWidgetSelectionDialog ROkButton
ClickMB Btn1
CompareVisual Notebook
# Repeat steps 1-5 three more times, increasing the value of the
# "Set Page Number" scale by 1 every time. The result will be 3 minor tabs
# associated with pages 2,3,4,5. (MinorTab1, MinorTab2, MinorTab3,MinorTab4).
LocatePointer PageNumberScale RScaleSlider
DragSliderValue Right 3
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer pageNumberPB1
ReleaseMB Btn1
LocatePointer MenuCascade2
PressMB Btn1
LocatePointer ChildPB1
ReleaseMB Btn1
LocatePointer ChildWidgetSelectionDialog RSelectionListItem 13
ClickMB Btn1
LocatePointer ChildWidgetSelectionDialog ROkButton
ClickMB Btn1
CompareVisual Notebook
LocatePointer PageNumberScale RScaleSlider
DragSliderValue Right 4
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer pageNumberPB1
ReleaseMB Btn1
LocatePointer MenuCascade2
PressMB Btn1
LocatePointer ChildPB1
ReleaseMB Btn1
LocatePointer ChildWidgetSelectionDialog RSelectionListItem 13
ClickMB Btn1
LocatePointer ChildWidgetSelectionDialog ROkButton
ClickMB Btn1
CompareVisual Notebook
LocatePointer PageNumberScale RScaleSlider
DragSliderValue Right 5
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer pageNumberPB1
ReleaseMB Btn1
LocatePointer MenuCascade2
PressMB Btn1
LocatePointer ChildPB1
ReleaseMB Btn1
LocatePointer ChildWidgetSelectionDialog RSelectionListItem 13
ClickMB Btn1
LocatePointer ChildWidgetSelectionDialog ROkButton
ClickMB Btn1
CompareVisual Notebook
# Click on MajorTab2. This will make minor tabs in the page range 1-6
# visible.
LocatePointer MajorTab2
ClickMB Btn1
CompareVisual Notebook
# Minor tab scrollers will appear in the Notebook. Use these to scroll
# through the minor tabs.
LocatePointer MinorTabScrollerPrevious
ClickMB Btn1
ClickMB Btn1
CompareVisual Notebook
LocatePointer MinorTabScrollerNext
ClickMB Btn1
ClickMB Btn1
CompareVisual Notebook
Continue
# Resize the window so that all tabs are visible again.
# Set the value of the 'Major Tab Spacing' scale to 25.
# Select "Set Major Tab Spacing" from the "Set Notebook Values" menu.
# The spacing between the major tabs should increase to 25 pixels.
# Resize the window so that all tabs are visible again.
# Set the value of the 'Minor Tab Spacing' scale to 25.
# Select "Set Minor Tab Spacing" from the "Set Notebook Values" menu.
# The spacing between the minor tabs should increase to 25 pixels.
LocatePointer NotebookScale8 RScaleSlider
DragSliderValue Right 25
LocatePointer NotebookCascade1
PressMB Btn1
LocatePointer ApplyScalePB8
ReleaseMB Btn1
CompareVisual Notebook
LocatePointer NotebookScale9 RScaleSlider
DragSliderValue Right 10
LocatePointer NotebookCascade1
PressMB Btn1
LocatePointer ApplyScalePB9
ReleaseMB Btn1
CompareVisual Notebook
Continue
# Now, select "Page1" from the list of created widgets.
# Click on the "Destroy" PushButton to destroy the SelectionBox page.
# The page should be destroyed. However, MajorTab1 should still be there.
LocatePointer ListOfAppWidgets RListItem 0
ClickMB Btn1
LocatePointer DestroyPB1
ClickMB Btn1
WindowResize Notebook SouthEast 200 200
CompareVisual Notebook
Continue
Exit