2353 request:aString displayAt:aPoint centered:centered action:resultAction 

  2354 initialAnswer:initial okLabel:okLabel cancelLabel:cancelLabel title:titleString 

  2355 onCancel:cancelValue list:listToSelectFrom initialSelection:anInterval

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

  2357      The dialogs window is titled titleString, or the default (if nil).

  2358      If aPoint is nonNil, the box is shown there, optionally centered around it.

  2359      If it is nil, it is shown at the current pointer position or at the 

  2360      screen center (if centered is true).

  2361      The ok-button is labelled okLabel (or the default, ifNil),

  2362      the cancel-button is labelled cancelLabel (or the default, ifNil).

  2363      Return the string or the value of cancelValue (if cancel was pressed)"

  2364 

  2365     |box|

  2366 

  2367     listToSelectFrom isNil ifTrue:[

  2368         box := EnterBox title:aString.

  2369     ] ifFalse:[

  2370         box := EnterBoxWithList title:aString.

  2371         box list:listToSelectFrom.

  2372     ].

  2373     box initialText:initial printString.

  2374     anInterval notNil ifTrue:[

  2375         box selectFrom:anInterval start to:anInterval stop.

  2376     ].

  2377     box abortAction:[:val | box destroy. ^ cancelValue value].

  2378     okLabel notNil ifTrue:[

  2379         box okText:okLabel.

  2380     ].

  2381     cancelLabel notNil ifTrue:[

  2382         box abortText:cancelLabel 

  2383     ].

  2384     resultAction isNil ifTrue:[

  2385         box action:[:val | box destroy. ^ val]

  2386     ] ifFalse:[

  2387         box action:[:val | box destroy. ^ resultAction value:val]

  2388     ].

  2389     titleString notNil ifTrue:[

  2390         box label:titleString

  2391     ].

  2392 

  2393     aPoint notNil ifTrue:[

  2394         box showAt:aPoint center:centered

  2395     ] ifFalse:[

  2396         centered ifTrue:[

  2397             box showAtCenter

  2398         ] ifFalse:[

  2399             box showAtPointer

  2400         ]

  2401     ].

  2402     box destroy. 

  2403     ^ cancelValue value.

  2404 

  2405     "

  2406      centered around 200@200:

  2407 

  2408          Dialog 

  2409             request:'enter a string:'

  2410             displayAt:200@200

  2411             centered:true

  2412             action:[:result | result printNewline]

  2413             initialAnswer:'the default'

  2414             okLabel:'yes'

  2415             cancelLabel:'no'

  2416             title:'foo'

  2417             onCancel:#foo

  2418 

  2419      under mouse pointer:

  2420 

  2421          Dialog 

  2422             request:'enter a string:'

  2423             displayAt:nil

  2424             centered:false 

  2425             action:[:result | result printNewline]

  2426             initialAnswer:'the default'

  2427             okLabel:'yes'

  2428             cancelLabel:'no'

  2429             title:'foo'

  2430             onCancel:#foo

  2431 

  2432      centered on the screen:

  2433 

  2434          Dialog 

  2435             request:'enter a string:'

  2436             displayAt:nil

  2437             centered:true 

  2438             action:[:result | result printNewline]

  2439             initialAnswer:'the default'

  2440             okLabel:'yes'

  2441             cancelLabel:'no'

  2442             title:'foo'

  2443             onCancel:#foo

  2444 

  2445      with a list:

  2446 

  2447          Dialog 

  2448             request:'enter a string:'

  2449             displayAt:nil

  2450             centered:true 

  2451             action:[:result | result printNewline]

  2452             initialAnswer:'the default'

  2453             okLabel:'yes'

  2454             cancelLabel:'no'

  2455             title:'foo'

  2456             onCancel:#foo

  2457             list:#(foo bar baz)

  2458     "

  2459 

  2460     "Created: / 29.5.1996 / 14:35:04 / cg"

  2461     "Modified: / 5.5.1999 / 10:50:22 / cg"

  2462 !

  2463 

  2574     "

  2575 

  2576     "Modified: 29.5.1996 / 14:30:05 / cg"

  2577 !

  2578 

  2579 request:aString initialAnswer:initial initialSelection:anInterval

  2580     "launch a Dialog, which allows user to enter something.

  2581      Return the entered string (may be empty string) or nil (if cancel was pressed)"

  2582 

  2583     ^ self 

  2584         request:aString 

  2585         displayAt:nil 

  2586         centered:false 

  2587         action:nil 

  2588         initialAnswer:initial 

  2589         okLabel:nil 

  2590         cancelLabel:nil 

  2591         title:nil 

  2592         onCancel:'' 

  2593         list:nil 

  2594         initialSelection:anInterval

  2595 

  2596     "

  2597      Dialog 

  2598          request:'enter a string:' 

  2599          initialAnswer:'the default'

  2600          initialSelection:(1 to:3)