Guest User

Untitled

a guest
May 27th, 2018
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.69 KB | None | 0 0
  1. #use <cais>
  2. use <ui.e>
  3. use <uim.e>
  4.  
  5. @import "main.cobj";
  6. @import "frameworks/uim/gstarted.csf" as styles;
  7. @import "frameworks/uim/aqua.csf" as default;
  8. @import "styles.csf";
  9.  
  10. main_window = uim.window << size="1000x1000px", istyle="aqua.window";
  11.  
  12. dfc main(agrs < sys.log) {
  13. try << exec {
  14. @use styles
  15. Label1 = write(main_window, label, text="My first label in CAIS!" style="color: black", istyle="label")
  16. Button1 = write(main_window, button, text="Click Me!" style="color: red", action=gstarted.actions.btn1, istyle="gstarted-btn") /# Action is the name of the function that the button will run.
  17. }
  18. except StyleError {
  19. show << uim.style.nferror;
  20. else {
  21. show << error(sys.log);
  22. }
  23. }
Add Comment
Please, Sign In to add comment