# $XConsortium: Notebook3a.scr /main/4 1995/07/17 20:31:37 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. All resources will have been
# set by default.
# There will be an empty ScrolledList on 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 the value of the "Current Page Number" scale to 1.
# Select "Set Current Page Number" from the "Set Notebook Values" menu, to
# set the currentPageNumber resource to 1.
LocatePointer NotebookScale0 RScaleSlider
DragSliderValue Right 1
LocatePointer NotebookCascade1
PressMB Btn1
LocatePointer ApplyScalePB0
ReleaseMB Btn1
# Set the value of the "Last Page Number" scale to 4.
# Select "Set Last Page Number" from the "Set Notebook Values" menu to
# set the lastPageNumber resource to 4.
LocatePointer NotebookScale2 RScaleSlider
DragSliderValue Right 4
LocatePointer NotebookCascade1
PressMB Btn1
LocatePointer ApplyScalePB2
ReleaseMB Btn1
# Set the value of the "First Page Number" scale to 2.
# Select "Set First Page Number" from the "Set Notebook Values" menu, to
# set the firstPageNumber resource to 2.
LocatePointer NotebookScale1 RScaleSlider
DragSliderValue Right 2
LocatePointer NotebookCascade1
PressMB Btn1
LocatePointer ApplyScalePB1
ReleaseMB Btn1
Continue
# Set childType to PAGE.
# Select "Set Child Type" from the "Set Child Values" menu to set the
# childType resource to PAGE.
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 to set
# the pageNumber resource to 1.
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. Select "XmSelectionBox"
# from the list of choices. Click on the "OK" button of the SelectionDialog.
# Some resizing will take place, indicating creation of the SelectionBox,
# but no SelectionBox should be visible, even though currentPageNumber has
# been set to 1. This is because the page number range is 2-4, as set in the
# previous panel, and the page number of the SelectionBox just created is 1.
LocatePointer ChildWidgetSelectionDialog RSelectionListItem 19
ClickMB Btn1
LocatePointer ChildWidgetSelectionDialog ROkButton
ClickMB Btn1
CompareVisual Notebook
Continue
# Set childType to PAGE.
# Select "Set Child Type" from the "Set Child Values" menu to set the
# childType resource to PAGE.
LocatePointer TogglenotebookChildType0
ClickMB Btn1
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer notebookChildTypePB1
ReleaseMB Btn1
# Set the value of the "Page Number" scale to 5.
# Select "Set Page Number" from the "Set Child Values" menu to set
# the pageNumber resource to 5.
LocatePointer PageNumberScale RScaleSlider
DragSliderValue Right 5
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer pageNumberPB1
ReleaseMB Btn1
# Select "Create Child" from the "Child" menu.
LocatePointer MenuCascade2
PressMB Btn1
LocatePointer ChildPB1
ReleaseMB Btn1
# Select "XmArrowButton" from the list of choices in the SelectionDialog.
# Click on the "OK" button of the SelectionDialog.
# Try to scroll to the ArrowButton page using the page scrollers on the
# bottom right of the NoteBook. You should not be able to do so, since
# page number 5 is outside the page number range.
LocatePointer ChildWidgetSelectionDialog RSelectionListItem 0
ClickMB Btn1
LocatePointer ChildWidgetSelectionDialog ROkButton
ClickMB Btn1
CompareVisual Notebook
LocatePointer PageScroller RIncrementBtn
ClickMB Btn1
ClickMB Btn1
ClickMB Btn1
CompareVisual Notebook
Continue
# Set the value of the "Page Number" scale to 4.
# Select "Set Page Number" from the "Set Child Values" menu to set
# the pageNumber resource to 4.
LocatePointer PageNumberScale RScaleSlider
DragSliderValue Left 4
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer pageNumberPB1
ReleaseMB Btn1
# Select "Page2" from the list of widgets created.
# Select "Set Values Child" from the "Child" menu.
LocatePointer ListOfAppWidgets RListItem 1
ClickMB Btn1
LocatePointer MenuCascade2
PressMB Btn1
LocatePointer ChildPB2
ReleaseMB Btn1
# You should now be able to scroll to the ArrowButton child, since its
# page number is now within the defined range.
LocatePointer PageScroller RIncrementBtn
ClickMB Btn1
ClickMB Btn1
CompareVisual Notebook
Continue
# Set childType to PAGE.
# Select "Set Child Type" from the "Set Child Values" menu to set the
# childType resource to PAGE.
LocatePointer TogglenotebookChildType0
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 to set
# the pageNumber resource to 2.
LocatePointer PageNumberScale RScaleSlider
DragSliderValue Left 2
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer pageNumberPB1
ReleaseMB Btn1
# Select "Create Child" option from menu.
LocatePointer MenuCascade2
PressMB Btn1
LocatePointer ChildPB1
ReleaseMB Btn1
# Select "XmPushButton" from the list of choices in the SelectionDialog.
# Click on the "OK" button of the SelectionDialog.
LocatePointer ChildWidgetSelectionDialog RSelectionListItem 13
ClickMB Btn1
LocatePointer ChildWidgetSelectionDialog ROkButton
ClickMB Btn1
CompareVisual Notebook
# Use the page scrollers to scroll to the PushButton page.
LocatePointer PageScroller RDecrementBtn
ClickMB Btn1
ClickMB Btn1
CompareVisual Notebook
# Repeat steps 1-4.
LocatePointer PageNumberScale RScaleSlider
DragSliderValue Right 2
LocatePointer TogglenotebookChildType0
ClickMB Btn1
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer notebookChildTypePB1
ReleaseMB Btn1
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer pageNumberPB1
ReleaseMB Btn1
LocatePointer MenuCascade2
PressMB Btn1
LocatePointer ChildPB1
ReleaseMB Btn1
# Select "XmScrollBar" from the list of choices in the SelectionDialog.
# Click on the "OK" button of the SelectionDialog.
LocatePointer ChildWidgetSelectionDialog RSelectionListItem 17
ClickMB Btn1
LocatePointer ChildWidgetSelectionDialog ROkButton
ClickMB Btn1
# A ScrollBar page should be visible. The PushButton page should no longer
# be visible, since the ScrollBar page was managed with the same page number
# as the PushButton page.
CompareVisual Notebook
Continue
# Set the value of the "Page Number" scale to 3.
# Select "Set Page Number" from the "Set Child Values" menu to set
# the pageNumber resource to 3.
LocatePointer PageNumberScale RScaleSlider
DragSliderValue Right 3
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer pageNumberPB1
ReleaseMB Btn1
# Select "Page3" from the list of widgets created.
# Select "Set Values Child" from the "Child" menu.
LocatePointer ListOfAppWidgets RListItem 2
ClickMB Btn1
LocatePointer MenuCascade2
PressMB Btn1
LocatePointer ChildPB2
ReleaseMB Btn1
CompareVisual Notebook
# Use the page scrollers to scroll to page 3. The PushButton page should
# be visible, since it's page number was changed.
LocatePointer PageScroller RIncrementBtn
ClickMB Btn1
CompareVisual Notebook
Continue
# Set the value of the "Current Page Number" scale to 2.
# Select "Set Current Page Number" from the "Set Notebook Values" menu.
# The ScrollBar page should become visible.
LocatePointer NotebookScale0 RScaleSlider
DragSliderValue Right 2
LocatePointer NotebookCascade1
PressMB Btn1
LocatePointer ApplyScalePB0
ReleaseMB Btn1
CompareVisual Notebook
Continue
# /* test for CR 6470 */
# Set childType to PAGE_SCROLLER.
# Select "Set Child Type" from the "Set Child Values" menu to set the
# childType resource to PAGE_SCROLLER.
LocatePointer TogglenotebookChildType4
ClickMB Btn1
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer notebookChildTypePB1
ReleaseMB Btn1
# Select "Create Child" from the Child menu.
LocatePointer MenuCascade2
PressMB Btn1
LocatePointer ChildPB1
ReleaseMB Btn1
# Select "XmScrollbar" from the list of choices in the SelectionDialog.
# Click on the "OK" button of the SelectionDialog.
LocatePointer ChildWidgetSelectionDialog RSelectionListItem 17
ClickMB Btn1
LocatePointer ChildWidgetSelectionDialog ROkButton
ClickMB Btn1
# The Notebook should now have a Scrollbar page scroller. No segvs or
# core dumps should occur.
CompareVisual Notebook
# /* End test for CR 6470 */
# Set childType to PAGE_SCROLLER.
# Select "Set Child Type" from the "Set Child Values" menu to set the
# childType resource to PAGE_SCROLLER.
LocatePointer TogglenotebookChildType4
ClickMB Btn1
LocatePointer ChildCascade1
PressMB Btn1
LocatePointer notebookChildTypePB1
ReleaseMB Btn1
# Select "Create Child" from the Child menu.
LocatePointer MenuCascade2
PressMB Btn1
LocatePointer ChildPB1
ReleaseMB Btn1
# Select "XmArrowButton" from the list of choices in the SelectionDialog.
# Click on the "OK" button of the SelectionDialog.
# Only an ArrowButton scrollbar should be visible now.
LocatePointer ChildWidgetSelectionDialog RSelectionListItem 0
ClickMB Btn1
LocatePointer ChildWidgetSelectionDialog ROkButton
ClickMB Btn1
CompareVisual Notebook
Exit