I tried including a file out of the main window with a bunch of the fields but that failed to post. Not all are in the tabs list but the problem is mainly with mouse clicking in the field not tabbing, so what is around the field probably doesn't matter. Some are connected to an object. That may have something to do with it.
!KscCheckBookWindow privateMethods !
abtBuildInternals
"** Do not modify or delete ** See: AbtAppBldrPart class>>#about_abtBuildInternals"
| gui window_1 aBANumberLabel createANewEntryPushButton aBANumberText accountNumberLabel
accountNumberText accountNameLabel accountNameText bankBalanceLabel bankBalanceText
abtMonetaryAmountConverter clearedBalanceLabel clearedBalanceText abtMonetaryAmountConverter_1
kscCheckBookContainerDetails dateContainerDetailsColumn abtDateConverter
entryCodeContainerDetailsColumn amountContainerDetailsColumn abtMonetaryAmountConverter_2
descriptionContainerDetailsColumn typeContainerDetailsColumn abtStringConverter
clearedContainerDetailsColumn abtBooleanConverter unclearedBalanceLabel unclearedBalanceText
abtMonetaryAmountConverter_3 deleteEntryPushButton bankBalanceHelpLabel toSelectionLabel1
clearedBalanceToSelectedEntryText abtMonetaryAmountConverter_4 toSelectionLabel2
unclearedBalanceToSelectedEntryText abtMonetaryAmountConverter_5 abtCwMenuView menuBarItem1
menuBarItem2 menuBarItem3 helpMenuChoice popupMenu1 newMenuChoice openMenuChoice separator1
saveMenuChoice saveAsMenuChoice separator4 createReportMenuChoice separator2
createShortcutToCheckbookFileMenuChoice separator3 exitMenuChoice kscCheckBookDataObject popupMenu2
editBankInfoMenuChoice separator5 findDateMenuChoice findEntryCodeMenuChoice findAmountMenuChoice
findDescriptionMenuChoice findUnclearedMenuChoice findNextMenuChoice popupMenu3 aboutMenuChoice
checkForUpdateMenuChoice downloadAndInstallCurrentVersionMenuChoice autoCheckForUpdateMenuToggle
conn1 conn2 conn3 conn5 conn6 conn7 conn8 conn18 conn9 conn10 conn11 conn12 conn13 conn14 conn15
conn16 conn17 conn19 conn20 conn21 conn23 conn24 conn34 conn25 conn26 conn27 conn38 conn29 conn30
conn31 conn32 conn51 conn52 conn43 conn54 conn45 conn46 |
gui := self class abtSeparatedConstants.
window_1 := AbtShellView abtCreatePart: 'Window' parent: nil owner: self .
aBANumberLabel := AbtLabelView abtCreatePart: 'ABA Number Label' parent: window_1.
createANewEntryPushButton := AbtPushButtonView abtCreatePart: 'Create a New Entry Push Button' parent: window_1.
aBANumberText := AbtTextView abtCreatePart: 'ABA Number Text' parent: window_1.
accountNumberLabel := AbtLabelView abtCreatePart: 'Account Number Label' parent: window_1.
accountNumberText := AbtTextView abtCreatePart: 'Account Number Text' parent: window_1.
accountNameLabel := AbtLabelView abtCreatePart: 'Account Name Label' parent: window_1.
accountNameText := AbtTextView abtCreatePart: 'Account Name Text' parent: window_1.
bankBalanceLabel := AbtLabelView abtCreatePart: 'Bank Balance Label' parent: window_1.
bankBalanceText := AbtTextView abtCreatePart: 'Bank Balance Text' parent: window_1.
clearedBalanceLabel := AbtLabelView abtCreatePart: 'Cleared Balance Label' parent: window_1.
clearedBalanceText := AbtTextView abtCreatePart: 'Cleared Balance Text' parent: window_1.
kscCheckBookContainerDetails := AbtContainerDetailsView abtCreatePart: 'KscCheckBook Container Details' parent: window_1.
dateContainerDetailsColumn := AbtContainerDetailsColumn abtCreatePart: 'Date Container Details Column' parent: kscCheckBookContainerDetails.
entryCodeContainerDetailsColumn := AbtContainerDetailsColumn abtCreatePart: 'EntryCode Container Details Column' parent: kscCheckBookContainerDetails.
amountContainerDetailsColumn := AbtContainerDetailsColumn abtCreatePart: 'Amount Container Details Column' parent: kscCheckBookContainerDetails.
descriptionContainerDetailsColumn := AbtContainerDetailsColumn abtCreatePart: 'Description Container Details Column' parent: kscCheckBookContainerDetails.
typeContainerDetailsColumn := AbtContainerDetailsColumn abtCreatePart: 'Type Container Details Column' parent: kscCheckBookContainerDetails.
clearedContainerDetailsColumn := AbtContainerDetailsColumn abtCreatePart: 'Cleared Container Details Column' parent: kscCheckBookContainerDetails.
unclearedBalanceLabel := AbtLabelView abtCreatePart: 'Uncleared Balance Label' parent: window_1.
unclearedBalanceText := AbtTextView abtCreatePart: 'Uncleared Balance Text' parent: window_1.
deleteEntryPushButton := AbtPushButtonView abtCreatePart: 'Delete Entry Push Button' parent: window_1.
bankBalanceHelpLabel := AbtLabelView abtCreatePart: 'Bank Balance Help Label' parent: window_1.
toSelectionLabel1 := AbtLabelView abtCreatePart: 'To Selection Label 1' parent: window_1.
clearedBalanceToSelectedEntryText := AbtTextView abtCreatePart: 'Cleared Balance To Selected Entry Text' parent: window_1.
toSelectionLabel2 := AbtLabelView abtCreatePart: 'To Selection Label 2' parent: window_1.
unclearedBalanceToSelectedEntryText := AbtTextView abtCreatePart: 'Uncleared Balance To Selected Entry Text' parent: window_1.
popupMenu1 := AbtCwMenuView abtCreatePart: 'Popup Menu1' parent: self parentVisual owner: self .
newMenuChoice := AbtPushButtonView abtCreatePart: 'New Menu Choice' parent: popupMenu1.
openMenuChoice := AbtPushButtonView abtCreatePart: 'Open Menu Choice' parent: popupMenu1.
separator1 := AbtSeparatorView abtCreatePart: 'Separator1' parent: popupMenu1.
saveMenuChoice := AbtPushButtonView abtCreatePart: 'Save Menu Choice' parent: popupMenu1.
saveAsMenuChoice := AbtPushButtonView abtCreatePart: 'Save as Menu Choice' parent: popupMenu1.
separator4 := AbtSeparatorView abtCreatePart: 'Separator4' parent: popupMenu1.
createReportMenuChoice := AbtPushButtonView abtCreatePart: 'Create Report Menu Choice' parent: popupMenu1.
separator2 := AbtSeparatorView abtCreatePart: 'Separator2' parent: popupMenu1.
createShortcutToCheckbookFileMenuChoice := AbtPushButtonView abtCreatePart: 'Create Shortcut to Checkbook File Menu Choice' parent: popupMenu1.
separator3 := AbtSeparatorView abtCreatePart: 'Separator3' parent: popupMenu1.
exitMenuChoice := AbtPushButtonView abtCreatePart: 'Exit Menu Choice' parent: popupMenu1.
(kscCheckBookDataObject := AbtVariable abtCreatePart: 'KscCheckBookData Object' parent: self parentVisual owner: self ) partClass: KscCheckBookData.
popupMenu2 := AbtCwMenuView abtCreatePart: 'Popup Menu2' parent: self parentVisual owner: self .
editBankInfoMenuChoice := AbtPushButtonView abtCreatePart: 'Edit Bank Info Menu Choice' parent: popupMenu2.
separator5 := AbtSeparatorView abtCreatePart: 'Separator5' parent: popupMenu2.
findDateMenuChoice := AbtPushButtonView abtCreatePart: 'Find Date Menu Choice' parent: popupMenu2.
findEntryCodeMenuChoice := AbtPushButtonView abtCreatePart: 'Find Entry Code Menu Choice' parent: popupMenu2.
findAmountMenuChoice := AbtPushButtonView abtCreatePart: 'Find Amount Menu Choice' parent: popupMenu2.
findDescriptionMenuChoice := AbtPushButtonView abtCreatePart: 'Find Description Menu Choice' parent: popupMenu2.
findUnclearedMenuChoice := AbtPushButtonView abtCreatePart: 'Find Uncleared Menu Choice' parent: popupMenu2.
findNextMenuChoice := AbtPushButtonView abtCreatePart: 'Find Next Menu Choice' parent: popupMenu2.
popupMenu3 := AbtCwMenuView abtCreatePart: 'Popup Menu3' parent: self parentVisual owner: self .
aboutMenuChoice := AbtPushButtonView abtCreatePart: 'About Menu Choice' parent: popupMenu3.
checkForUpdateMenuChoice := AbtPushButtonView abtCreatePart: 'Check For Update Menu Choice' parent: popupMenu3.
downloadAndInstallCurrentVersionMenuChoice := AbtPushButtonView abtCreatePart: 'Download And Install Current Version Menu Choice' parent: popupMenu3.
autoCheckForUpdateMenuToggle := AbtToggleButtonView abtCreatePart: 'Auto Check For Update Menu Toggle' parent: popupMenu3.
self
primaryPart: window_1.
window_1
menu: ((abtCwMenuView := AbtCwMenuView abtCreatePart: #AbtCwMenuView parent: nil )
abtReturnReceiver: (menuBarItem1 := AbtCascadeButtonView abtCreatePart: 'MenuBar Item1' parent: abtCwMenuView);
abtReturnReceiver: (menuBarItem2 := AbtCascadeButtonView abtCreatePart: 'MenuBar Item2' parent: abtCwMenuView);
abtReturnReceiver: (menuBarItem3 := AbtCascadeButtonView abtCreatePart: 'MenuBar Item3' parent: abtCwMenuView);
abtReturnReceiver: (helpMenuChoice := AbtPushButtonView abtCreatePart: 'Help Menu Choice' parent: abtCwMenuView);
rowColumnType: 1);
graphicsDescriptor: nil;
framingSpec: (AbtViewAttachmentConstraint new
leftEdge: (AbtEdgeConstant new offset: 150);
rightEdge: (AbtEdgeConstant new offset: 850);
topEdge: (AbtEdgeConstant new offset: 75);
bottomEdge: (AbtEdgeConstant new offset: 500));
title: (gui at: 1) " 'KscCheckBook' " .
aBANumberLabel
object: (gui at: 2) " 'ABA Number' " ;
framingSpec: (AbtViewAttachmentConstraint new
leftEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHFORM; offset: 10);
rightEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE);
topEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHFORM; offset: 15);
bottomEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE)).
createANewEntryPushButton
object: (gui at: 3) " 'Create a New Entry' " ;
tabGroup: true;
framingSpec: (AbtViewAttachmentConstraint new
leftEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHWIDGET; offset: 20; attachedTargetView: unclearedBalanceText);
rightEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE);
topEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHOPPOSITEWIDGET; offset: -2; attachedTargetView: bankBalanceLabel);
bottomEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE));
enabled: false.
aBANumberText
tabGroup: false;
traversalOn: false;
columns: 12;
alignment: 1;
autoSelect: true;
framingSpec: (AbtViewAttachmentConstraint new
leftEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHWIDGET; offset: 3; attachedTargetView: aBANumberLabel);
rightEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE);
topEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHOPPOSITEWIDGET; offset: 0; attachedTargetView: aBANumberLabel);
bottomEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE));
editable: false;
enabled: true.
accountNumberLabel
object: (gui at: 4) " 'Account Number' " ;
framingSpec: (AbtViewAttachmentConstraint new
leftEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHWIDGET; offset: 10; attachedTargetView: aBANumberText);
rightEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE);
topEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHOPPOSITEWIDGET; offset: 0; attachedTargetView: aBANumberLabel);
bottomEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE)).
accountNumberText
tabGroup: false;
traversalOn: false;
columns: 17;
alignment: 1;
autoSelect: true;
framingSpec: (AbtViewAttachmentConstraint new
leftEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHWIDGET; offset: 3; attachedTargetView: accountNumberLabel);
rightEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE);
topEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHOPPOSITEWIDGET; offset: 0; attachedTargetView: accountNumberLabel);
bottomEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE));
editable: false.
accountNameLabel
object: (gui at: 5) " 'Account Name' " ;
framingSpec: (AbtViewAttachmentConstraint new
leftEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHWIDGET; offset: 10; attachedTargetView: accountNumberText);
rightEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE);
topEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHOPPOSITEWIDGET; offset: 0; attachedTargetView: aBANumberLabel);
bottomEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE)).
accountNameText
tabGroup: false;
autoSelect: true;
framingSpec: (AbtViewAttachmentConstraint new
leftEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHWIDGET; offset: 3; attachedTargetView: accountNameLabel);
rightEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHFORM; offset: 10);
topEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHOPPOSITEWIDGET; offset: 0; attachedTargetView: accountNameLabel);
bottomEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE));
editable: false;
traversalOn: false.
bankBalanceLabel
object: (gui at: 6) " 'Bank Balance' " ;
framingSpec: (AbtViewAttachmentConstraint new
leftEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHOPPOSITEWIDGET; offset: 0; attachedTargetView: aBANumberLabel);
rightEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE);
topEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHWIDGET; offset: 10; attachedTargetView: aBANumberLabel);
bottomEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE)).
bankBalanceText
converter: ((abtMonetaryAmountConverter := AbtMonetaryAmountConverter abtCreatePart: #AbtMonetaryAmountConverter parent: nil ));
tabGroup: false;
traversalOn: false;
columns: 10;
alignment: 2;
autoSelect: false;
framingSpec: (AbtViewAttachmentConstraint new
leftEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHWIDGET; offset: 3; attachedTargetView: bankBalanceLabel);
rightEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE);
topEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHOPPOSITEWIDGET; offset: 0; attachedTargetView: bankBalanceLabel);
bottomEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE));
editable: false.
clearedBalanceLabel
object: (gui at: 7) " 'Cleared Balance' " ;
framingSpec: (AbtViewAttachmentConstraint new
leftEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHWIDGET; offset: 10; attachedTargetView: bankBalanceHelpLabel);
rightEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE);
topEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHOPPOSITEWIDGET; offset: 0; attachedTargetView: bankBalanceLabel);
bottomEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE)).
clearedBalanceText
converter: ((abtMonetaryAmountConverter_1 := AbtMonetaryAmountConverter abtCreatePart: #AbtMonetaryAmountConverter parent: nil ));
tabGroup: false;
traversalOn: false;
columns: 10;
alignment: 2;
framingSpec: (AbtViewAttachmentConstraint new
leftEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHWIDGET; offset: 3; attachedTargetView: clearedBalanceLabel);
rightEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE);
topEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHOPPOSITEWIDGET; offset: 0; attachedTargetView: clearedBalanceLabel);
bottomEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE));
editable: false.
kscCheckBookContainerDetails
framingSpec: (AbtViewAttachmentConstraint new
leftEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHFORM; offset: 0);
rightEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHFORM; offset: 0);
topEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHWIDGET; offset: 10; attachedTargetView: toSelectionLabel1);
bottomEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHFORM; offset: 0));
refreshEntireListOnChange: true;
editable: false.
dateContainerDetailsColumn
converter: ((abtDateConverter := AbtDateConverter abtCreatePart: #AbtDateConverter parent: nil )
dateFormat: 1;
showSeparator: true);
attributeName: (gui at: 8) " 'date' " ;
abtEditPolicyItems: (OrderedCollection new
yourself);
width: 75;
heading: (gui at: 9) " 'Date' " ;
horizontalAlignment: 1;
horizontalHeadingAlignment: 1.
entryCodeContainerDetailsColumn
attributeName: (gui at: 10) " 'entryCode' " ;
abtEditPolicyItems: (OrderedCollection new
yourself);
width: 80;
heading: (gui at: 11) " 'Entry Code' " ;
horizontalAlignment: 1;
horizontalHeadingAlignment: 1.
amountContainerDetailsColumn
converter: ((abtMonetaryAmountConverter_2 := AbtMonetaryAmountConverter abtCreatePart: #AbtMonetaryAmountConverter parent: nil )
decimalPlace: 2;
decimalSeparator: (gui at: 12) " '.' " );
attributeName: (gui at: 13) " 'amount' " ;
abtEditPolicyItems: (OrderedCollection new
yourself);
width: 75;
heading: (gui at: 14) " 'Amount' " ;
horizontalAlignment: 2;
horizontalHeadingAlignment: 1.
descriptionContainerDetailsColumn
width: 300;
attributeName: (gui at: 15) " 'description' " ;
heading: (gui at: 16) " 'Description' " ;
abtEditPolicyItems: (OrderedCollection new
yourself);
horizontalHeadingAlignment: 1.
typeContainerDetailsColumn
converter: ((abtStringConverter := AbtStringConverter abtCreatePart: #AbtStringConverter parent: nil )
defaultObjectFromEmptyString: (gui at: 17) " 'Symbol' " );
attributeName: (gui at: 18) " 'typeAsString' " ;
abtEditPolicyItems: (OrderedCollection new
yourself);
width: 100;
heading: (gui at: 19) " 'Type' " ;
horizontalAlignment: 1;
horizontalHeadingAlignment: 1.
clearedContainerDetailsColumn
converter: ((abtBooleanConverter := AbtBooleanConverter abtCreatePart: #AbtBooleanConverter parent: nil )
yesStr: (gui at: 20) " 'Yes' " ;
noStr: (gui at: 21) " 'No' " );
attributeName: (gui at: 22) " 'cleared' " ;
abtEditPolicyItems: (OrderedCollection new
yourself);
width: 50;
heading: (gui at: 23) " 'Cleared' " ;
horizontalAlignment: 1;
horizontalHeadingAlignment: 1.
unclearedBalanceLabel
object: (gui at: 24) " 'Uncleared Balance' " ;
framingSpec: (AbtViewAttachmentConstraint new
leftEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHWIDGET; offset: 10; attachedTargetView: clearedBalanceText);
rightEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE);
topEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHOPPOSITEWIDGET; offset: 0; attachedTargetView: bankBalanceLabel);
bottomEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE)).
unclearedBalanceText
converter: ((abtMonetaryAmountConverter_3 := AbtMonetaryAmountConverter abtCreatePart: #AbtMonetaryAmountConverter parent: nil ));
tabGroup: false;
traversalOn: false;
columns: 10;
alignment: 2;
framingSpec: (AbtViewAttachmentConstraint new
leftEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHWIDGET; offset: 3; attachedTargetView: unclearedBalanceLabel);
rightEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE);
topEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHOPPOSITEWIDGET; offset: 0; attachedTargetView: unclearedBalanceLabel);
bottomEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE));
editable: false.
deleteEntryPushButton
object: (gui at: 25) " 'Delete Entry' " ;
tabGroup: true;
framingSpec: (AbtViewAttachmentConstraint new
leftEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHWIDGET; offset: 10; attachedTargetView: createANewEntryPushButton);
rightEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE);
topEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHOPPOSITEWIDGET; offset: 0; attachedTargetView: createANewEntryPushButton);
bottomEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE)).
bankBalanceHelpLabel
object: (gui at: 26) " 'Help' " ;
marginHeight: 0;
marginWidth: 0;
marginTop: 4;
framingSpec: (AbtViewAttachmentConstraint new
leftEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHWIDGET; offset: 3; attachedTargetView: bankBalanceText);
rightEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE);
topEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHOPPOSITEWIDGET; offset: 0; attachedTargetView: bankBalanceLabel);
bottomEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE)).
toSelectionLabel1
object: (gui at: 27) " 'To Selection' " ;
framingSpec: (AbtViewAttachmentConstraint new
leftEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE);
rightEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHOPPOSITEWIDGET; offset: 0; attachedTargetView: clearedBalanceLabel);
topEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHWIDGET; offset: 10; attachedTargetView: clearedBalanceLabel);
bottomEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE)).
clearedBalanceToSelectedEntryText
converter: ((abtMonetaryAmountConverter_4 := AbtMonetaryAmountConverter abtCreatePart: #AbtMonetaryAmountConverter parent: nil ));
tabGroup: false;
traversalOn: false;
columns: 10;
alignment: 2;
framingSpec: (AbtViewAttachmentConstraint new
leftEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHOPPOSITEWIDGET; offset: 0; attachedTargetView: clearedBalanceText);
rightEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE);
topEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHOPPOSITEWIDGET; offset: 0; attachedTargetView: toSelectionLabel1);
bottomEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE));
editable: false.
toSelectionLabel2
object: (gui at: 28) " 'To Selection' " ;
framingSpec: (AbtViewAttachmentConstraint new
leftEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE);
rightEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHOPPOSITEWIDGET; offset: 0; attachedTargetView: unclearedBalanceLabel);
topEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHOPPOSITEWIDGET; offset: 0; attachedTargetView: toSelectionLabel1);
bottomEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE)).
unclearedBalanceToSelectedEntryText
converter: ((abtMonetaryAmountConverter_5 := AbtMonetaryAmountConverter abtCreatePart: #AbtMonetaryAmountConverter parent: nil ));
tabGroup: false;
traversalOn: false;
columns: 10;
alignment: 2;
autoSelect: false;
framingSpec: (AbtViewAttachmentConstraint new
leftEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHOPPOSITEWIDGET; offset: 0; attachedTargetView: unclearedBalanceText);
rightEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE);
topEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHOPPOSITEWIDGET; offset: 0; attachedTargetView: toSelectionLabel2);
bottomEdge: (AbtRunEdgeAttachmentConstraint new attachment: XmATTACHNONE));
editable: false.
menuBarItem1
object: (gui at: 29) " 'File' " .
menuBarItem2
object: (gui at: 30) " 'Edit' " .
menuBarItem3
object: (gui at: 31) " 'About' " .
helpMenuChoice
labelType: 2;
object: (gui at: 32) " 'Help' " ;
graphicsDescriptor: nil;
labelString: (gui at: 33) " 'Help Menu Choice' " .
newMenuChoice
object: (gui at: 34) " 'New' " .
openMenuChoice
object: (gui at: 35) " 'Open' " .
saveMenuChoice
object: (gui at: 36) " 'Save' " ;
enabled: false.
saveAsMenuChoice
object: (gui at: 37) " 'Save as...' " .
createReportMenuChoice
object: (gui at: 38) " 'Create Report...' " .
createShortcutToCheckbookFileMenuChoice
object: (gui at: 39) " 'Create Shortcut to Checkbook File' " ;
enabled: false.
exitMenuChoice
object: (gui at: 40) " 'Exit' " .
editBankInfoMenuChoice
object: (gui at: 41) " 'Edit Bank Info' " .
findDateMenuChoice
labelType: 2;
object: (gui at: 42) " 'Find Date' " ;
graphicsDescriptor: nil;
helpTitle: (gui at: 43) " 'Find Date' " .
findEntryCodeMenuChoice
object: (gui at: 44) " 'Find Entry Code (Check #)' " .
findAmountMenuChoice
object: (gui at: 45) " 'Find Amount' " .
findDescriptionMenuChoice
object: (gui at: 46) " 'Find Description' " .
findUnclearedMenuChoice
object: (gui at: 47) " 'Find Uncleared' " .
findNextMenuChoice
object: (gui at: 48) " 'Find Next' " ;
accelerator: (CwAccelerator mask: 0 keysym: 65472).
aboutMenuChoice
object: (gui at: 49) " 'About' " .
checkForUpdateMenuChoice
object: (gui at: 50) " 'Check For Update' " .
downloadAndInstallCurrentVersionMenuChoice
object: (gui at: 51) " 'Download And Install Current Version' " .
autoCheckForUpdateMenuToggle
object: (gui at: 52) " 'Auto Check For Update' " .
openMenuChoice
abtWhenPrimitive: #clicked
perform:
(DirectedMessage new
receiver: self;
selector: #open;
arguments: #()).
saveMenuChoice
abtWhenPrimitive: #clicked
perform:
(DirectedMessage new
receiver: self;
selector: #save;
arguments: #()).
saveAsMenuChoice
abtWhenPrimitive: #clicked
perform:
(DirectedMessage new
receiver: self;
selector: #saveAs;
arguments: #()).
newMenuChoice
abtWhenPrimitive: #clicked
perform:
(DirectedMessage new
receiver: self;
selector: #new;
arguments: #()).
window_1
abtWhenPrimitive: #openedWidget
perform:
(DirectedMessage new
receiver: self;
selector: #afterOpenSetup;
arguments: #()).
window_1
abtWhenPrimitive: #closeWidgetRequest
perform:
(DirectedMessage new
receiver: self;
selector: #okayToClose:;
arguments: (Array new: 1)).
self attributeConnections add: (conn8 := AbtAttributeToAttributeConnection new
connectSource: popupMenu1
featureName: #self
feature: AbtCwMenuView IS_self
toTarget: menuBarItem1
featureName: #menu
feature: AbtCascadeButtonView IS_menu).
createANewEntryPushButton
abtWhenPrimitive: #clicked
perform:
(DirectedMessage new
receiver: self;
selector: #createNewEntry;
arguments: #()).
self attributeConnections add: (conn9 := AbtAttributeToAttributeConnection new
connectSource: kscCheckBookDataObject
variableFeatureName: #routingNumber
featureSelector: #IS_routingNumber
toTarget: aBANumberText
featureName: #object
feature: AbtTextView IS_object).
self attributeConnections add: (conn10 := AbtAttributeToAttributeConnection new
connectSource: kscCheckBookDataObject
variableFeatureName: #accountNumber
featureSelector: #IS_accountNumber
toTarget: accountNumberText
featureName: #object
feature: AbtTextView IS_object).
self attributeConnections add: (conn11 := AbtAttributeToAttributeConnection new
connectSource: kscCheckBookDataObject
variableFeatureName: #bankBalance
featureSelector: #IS_bankBalance
toTarget: bankBalanceText
featureName: #object
feature: AbtTextView IS_object).
self attributeConnections add: (conn12 := AbtAttributeToAttributeConnection new
connectSource: kscCheckBookDataObject
variableFeatureName: #clearedBalance
featureSelector: #IS_clearedBalance
toTarget: clearedBalanceText
featureName: #object
feature: AbtTextView IS_object).
self attributeConnections add: (conn13 := AbtAttributeToAttributeConnection new
connectSource: kscCheckBookDataObject
variableFeatureName: #accountName
featureSelector: #IS_accountName
toTarget: accountNameText
featureName: #object
feature: AbtTextView IS_object).
kscCheckBookContainerDetails
abtWhenPrimitive: #defaultActionRequested
perform:
(DirectedMessage new
receiver: self;
selector: #editEntry:;
arguments: (Array new: 1)).
self attributeConnections add: (conn15 := AbtAttributeToAttributeConnection new
connectSource: kscCheckBookDataObject
variableFeatureName: #unclearedBalance
featureSelector: #IS_unclearedBalance
toTarget: unclearedBalanceText
featureName: #object
feature: AbtTextView IS_object).
self attributeConnections add: (conn16 := AbtAttributeToAttributeConnection new
connectSource: popupMenu2
featureName: #self
feature: AbtCwMenuView IS_self
toTarget: menuBarItem2
featureName: #menu
feature: AbtCascadeButtonView IS_menu).
editBankInfoMenuChoice
abtWhenPrimitive: #clicked
perform:
(DirectedMessage new
receiver: self;
selector: #editBankInfo;
arguments: #()).
kscCheckBookDataObject
abtWhen: #changed
selector: #IS_changed
perform:
(DirectedMessage new
receiver: self;
selector: #setCheckBookChanged;
arguments: #()).
self attributeConnections add: (conn20 := AbtAttributeToAttributeConnection new
connectSource: kscCheckBookContainerDetails
featureName: #selectionIsValid
feature: AbtContainerDetailsView IS_selectionIsValid
toTarget: deleteEntryPushButton
featureName: #enabled
feature: AbtPushButtonView IS_enabled).
deleteEntryPushButton
abtWhenPrimitive: #clicked
perform:
(DirectedMessage new
receiver: self;
selector: #deleteEntry;
arguments: #()).
createShortcutToCheckbookFileMenuChoice
abtWhenPrimitive: #clicked
perform:
(DirectedMessage new
receiver: self;
selector: #createShortcutToCheckbookFile;
arguments: #()).
helpMenuChoice
abtWhenPrimitive: #clicked
perform:
(DirectedMessage new
receiver: self;
selector: #mainHelp;
arguments: #()).
createReportMenuChoice
abtWhenPrimitive: #clicked
perform:
(DirectedMessage new
receiver: self;
selector: #createReport;
arguments: #()).
kscCheckBookContainerDetails
abtWhenPrimitive: #selectionIndexChanged
perform:
(DirectedMessage new
receiver: self;
selector: #setBalancesUptoSelectedEntry;
arguments: #()).
kscCheckBookDataObject
abtWhen: #changed
selector: #IS_changed
perform:
(DirectedMessage new
receiver: self;
selector: #setBalancesUptoSelectedEntry;
arguments: #()).
findUnclearedMenuChoice
abtWhenPrimitive: #clicked
perform:
(DirectedMessage new
receiver: self;
selector: #findUncleared;
arguments: #()).
findDateMenuChoice
abtWhenPrimitive: #clicked
perform:
(DirectedMessage new
receiver: self;
selector: #findDate;
arguments: #()).
findNextMenuChoice
abtWhenPrimitive: #clicked
perform:
(DirectedMessage new
receiver: self;
selector: #findNext;
arguments: #()).
findEntryCodeMenuChoice
abtWhenPrimitive: #clicked
perform:
(DirectedMessage new
receiver: self;
selector: #findEntryCode;
arguments: #()).
findAmountMenuChoice
abtWhenPrimitive: #clicked
perform:
(DirectedMessage new
receiver: self;
selector: #findAmount;
arguments: #()).
findDescriptionMenuChoice
abtWhenPrimitive: #clicked
perform:
(DirectedMessage new
receiver: self;
selector: #findDescription;
arguments: #()).
exitMenuChoice
abtWhenPrimitive: #clicked
perform:
(DirectedMessage new
receiver: self;
selector: #closeWindow;
arguments: #()).
self attributeConnections add: (conn52 := AbtAttributeToAttributeConnection new
connectSource: popupMenu3
featureName: #self
feature: AbtCwMenuView IS_self
toTarget: menuBarItem3
featureName: #menu
feature: AbtCascadeButtonView IS_menu).
checkForUpdateMenuChoice
abtWhenPrimitive: #clicked
perform:
(DirectedMessage new
receiver: self;
selector: #checkForUpdate;
arguments: #()).
autoCheckForUpdateMenuToggle
abtWhenPrimitive: #selectionChanged
perform:
(DirectedMessage new
receiver: self;
selector: #autoCheckForUpdatesChanged:;
arguments: (Array new: 1)).
aboutMenuChoice
abtWhenPrimitive: #clicked
perform:
(DirectedMessage new
receiver: self;
selector: #about;
arguments: #()).
downloadAndInstallCurrentVersionMenuChoice
abtWhenPrimitive: #clicked
perform:
(DirectedMessage new
receiver: self;
selector: #downloadAndInstallCurrentVersion;
arguments: #()).
self initializeAttributeConnections.
self finalInitialize.
! !