Hex Artifact Content
Not logged in

Artifact 01eed0f20ef0de2a6bd3ffa38ad13f7832724b15:


0000: 28 64 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63  (define-sdl-func
0010: 20 69 6e 74 20 73 64 6c 2d 73 65 74 2d 63 6c 69   int sdl-set-cli
0020: 70 62 6f 61 72 64 2d 74 65 78 74 20 28 28 74 65  pboard-text ((te
0030: 78 74 20 73 74 72 69 6e 67 29 29 20 22 53 44 4c  xt string)) "SDL
0040: 5f 53 65 74 43 6c 69 70 62 6f 61 72 64 54 65 78  _SetClipboardTex
0050: 74 22 29 0a 28 64 65 66 69 6e 65 2d 73 64 6c 2d  t").(define-sdl-
0060: 66 75 6e 63 20 73 74 72 69 6e 67 20 73 64 6c 2d  func string sdl-
0070: 67 65 74 2d 63 6c 69 70 62 6f 61 72 64 2d 74 65  get-clipboard-te
0080: 78 74 20 28 29 20 22 53 44 4c 5f 47 65 74 43 6c  xt () "SDL_GetCl
0090: 69 70 62 6f 61 72 64 54 65 78 74 22 29 0a 28 64  ipboardText").(d
00a0: 65 66 69 6e 65 2d 73 64 6c 2d 66 75 6e 63 20 73  efine-sdl-func s
00b0: 64 6c 2d 62 6f 6f 6c 2d 74 20 73 64 6c 2d 68 61  dl-bool-t sdl-ha
00c0: 73 2d 63 6c 69 70 62 6f 61 72 64 2d 74 65 78 74  s-clipboard-text
00d0: 20 28 29 20 22 53 44 4c 5f 48 61 73 43 6c 69 70   () "SDL_HasClip
00e0: 62 6f 61 72 64 54 65 78 74 22 29 0a              boardText").