BrowserView.st
changeset 2048 f8c010698b75
parent 2047 bb2070a26bd2
child 2050 5ef6404d6172
equal deleted inserted replaced
2047:bb2070a26bd2 2048:f8c010698b75
  1905                                'a week ago'
  1905                                'a week ago'
  1906                                'a month ago'
  1906                                'a month ago'
  1907                                'a year ago'
  1907                                'a year ago'
  1908                                'all'
  1908                                'all'
  1909                               ).
  1909                               ).
  1910         box addAbortButton; addOkButton.
  1910         box addAbortAndOkButtons.
  1911         box open.
  1911         box open.
  1912 
  1912 
  1913         box accepted ifTrue:[
  1913         box accepted ifTrue:[
  1914             timeGoal := timeGoal value.
  1914             timeGoal := timeGoal value.
  1915 
  1915 
  4044         creatingNew := false.
  4044         creatingNew := false.
  4045     ].
  4045     ].
  4046 
  4046 
  4047     box addVerticalSpace.
  4047     box addVerticalSpace.
  4048 
  4048 
  4049     box addAbortButton; addOkButton.
  4049     box addAbortAndOkButtons.
  4050 
  4050 
  4051     box showAtPointer.
  4051     box showAtPointer.
  4052 
  4052 
  4053     box accepted ifTrue:[
  4053     box accepted ifTrue:[
  4054         module := moduleHolder value withoutSpaces.
  4054         module := moduleHolder value withoutSpaces.
  4263     box yPosition:y.
  4263     box yPosition:y.
  4264     component := box addInputFieldOn:fileNameHolder tabable:true.
  4264     component := box addInputFieldOn:fileNameHolder tabable:true.
  4265     component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
  4265     component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
  4266 
  4266 
  4267     box addVerticalSpace.
  4267     box addVerticalSpace.
  4268     box addAbortButton; addOkButton.
  4268     box addAbortAndOkButtons.
  4269 
  4269 
  4270     box showAtPointer.
  4270     box showAtPointer.
  4271 
  4271 
  4272     box destroy.
  4272     box destroy.
  4273     box accepted ifFalse:[
  4273     box accepted ifFalse:[
  4675                         withNumberOfLines:10 
  4675                         withNumberOfLines:10 
  4676                         hScrollable:true 
  4676                         hScrollable:true 
  4677                         vScrollable:true.
  4677                         vScrollable:true.
  4678     dialog width:(textView preferredExtentForLines:10 cols:70) x.
  4678     dialog width:(textView preferredExtentForLines:10 cols:70) x.
  4679     textView contents:lastSourceLogMessage.
  4679     textView contents:lastSourceLogMessage.
  4680     dialog addAbortButton; addOkButton.
  4680     dialog addAbortAndOkButtons.
  4681     dialog okButton isReturnButton:false.
  4681     dialog okButton isReturnButton:false.
  4682     dialog open.
  4682     dialog open.
  4683     dialog accepted ifTrue:[
  4683     dialog accepted ifTrue:[
  4684         ^ textView contents
  4684         ^ textView contents
  4685     ].
  4685     ].
 12759 ! !
 12759 ! !
 12760 
 12760 
 12761 !BrowserView class methodsFor:'documentation'!
 12761 !BrowserView class methodsFor:'documentation'!
 12762 
 12762 
 12763 version
 12763 version
 12764     ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.476 1999-03-06 01:59:32 cg Exp $'
 12764     ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.477 1999-03-06 02:15:04 cg Exp $'
 12765 ! !
 12765 ! !
 12766 BrowserView initialize!
 12766 BrowserView initialize!