Alert Beispiel

Window(win1, 10, 10, 320, 150, T("Fenster 1", "window 1", "fenętre 1"))
   [ INITIALIZE: Alert(, name)
   {
     String(CX_PERSON::name, 230, 10, 200)
     [ ALTERED: Unlock(, saveButton)
     ]
     Button(saveButton, 30, 50, T(speichern, save, garder))
     [ SELECT:  CreatePersObject(CX_PERSON)
                  DrainWindow 
                  ClearWindow Alert(, name)
     ]
     . . . 
   }