wl

Unnamed repository; edit this file 'description' to name the repository.
git clone https://logand.com/git/wl.git/
Log | Files | Refs | LICENSE

swt.l (573B)

      1 #import org.eclipse.swt.*; TODO wildcard import
      2 
      3 (import org.eclipse.swt SWT)
      4 (import org.eclipse.swt.widgets Display Shell Label Composite Text)
      5 (import org.eclipse.swt.events PaintListener)
      6 (import org.eclipse.swt.layout FillLayout)
      7 (import org.eclipse.swt.dnd DND
      8    DragSource DragSourceEvent DragSourceListener
      9    DropTarget DropTargetEvent DropTargetListener DropTargetAdapter
     10    TextTransfer Transfer DragSourceListener )
     11 
     12 (de swtLoop (D S)
     13    (until (jeq true (S 'isDisposed))
     14       (unless (jeq true (D 'readAndDispatch))
     15          (D 'sleep) ) )
     16    (D 'dispose) )