4733 !

  4734 

  4735 request:aString title:windowTitle

  4736     "launch a Dialog, which allows user to enter a string."

  4737 

  4738     ^ self

  4739         request:aString 

  4740         displayAt:nil 

  4741         centered:(ForceModalBoxesToOpenAtCenter ? false) 

  4742         action:nil 

  4743         initialAnswer:nil 

  4744         okLabel:nil 

  4745         cancelLabel:nil 

  4746         title:windowTitle 

  4747         onCancel:''

  4748         list:nil

  4749         initialSelection:nil

  4750 

  4751     "

  4752      at topLeft (centering is suppressed, to make the box fully visible)    

  4753          Dialog 

  4754             request:'enter a string:'

  4755             displayAt:0@0

  4756             centered:true

  4757             action:[:result | result printNewline]

  4758             initialAnswer:'the default'

  4759             onCancel:#foo

  4760 

  4761      centered around 200@200:

  4762 

  4763          Dialog 

  4764             request:'enter a string:'

  4765             displayAt:200@200

  4766             centered:true

  4767             action:[:result | result printNewline]

  4768             initialAnswer:'the default'

  4769             onCancel:#foo

  4770 

  4771      topLeft of box at 200@200:

  4772 

  4773          Dialog 

  4774             request:'enter a string:'

  4775             displayAt:200@200

  4776             centered:false 

  4777             action:[:result | result printNewline]

  4778             initialAnswer:'the default'

  4779             onCancel:#foo

  4780 

  4781      under mouse pointer:

  4782 

  4783          Dialog 

  4784             request:'enter a string:'

  4785             displayAt:nil

  4786             centered:false 

  4787             action:[:result | result printNewline]

  4788             initialAnswer:'the default'

  4789             onCancel:#foo

  4790 

  4791      centered on the screen:

  4792 

  4793          Dialog 

  4794             request:'enter a string:'

  4795             displayAt:nil

  4796             centered:true 

  4797             action:[:result | result printNewline]

  4798             initialAnswer:'the default'

  4799             onCancel:#foo

  4800     "

  4801 

  4802     "Created: 7.12.1995 / 23:14:10 / cg"

  4803     "Modified: 29.5.1996 / 14:24:39 / cg"