home *** CD-ROM | disk | FTP | other *** search
/ Mega CD-ROM 1 / megacd_rom_1.zip / megacd_rom_1 / FREEMACS / CONTRIB.ZIP / DIALOG.MIN < prev    next >
Text File  |  1990-03-09  |  2KB  |  102 lines
  1. Instead of using the bottom line of the screen for the minibuffer, use
  2. a pop-up box.  Too slow to be practical.
  3.  
  4.  
  5. Name:Bfilename
  6. [*]box[*]
  7.  
  8. #(B:input)
  9.  
  10.  
  11. Name:Freadline
  12. Read a line of text from the minibuffer.
  13. On entry, #(value) is the default string.
  14. arg1=prompt
  15. arg2=string to execute if input is confirmed with return.  The users input
  16.      is in #(value)
  17. arg3=mode.
  18. The mode variable lets keys be redefined in readline mode.  For example,
  19. isearch defines ^S and ^R specially, and extended-command defines space and
  20. escape specially.
  21. [*]#(ds,2nd-half)
  22. #(sv,fc,2)
  23. #(Bbox,##(B-readline-x),##(B-readline-y),
  24.     #(++,#(++,##(B-readline-x),##(B-readline-len)),2),
  25.     #(++,##(B-readline-y),2)
  26. )
  27. #(sv,fc,3)
  28. #(xy,#(++,##(B-readline-x),1),#(++,##(B-readline-y),1))
  29. #(ow,arg1)
  30. #(Freadline-an,(arg1))
  31. #(SELF-do,#(g),(arg1),(arg2),
  32.     #(==,arg3,,Freadline.,arg3),##(F-delete-or-append))
  33. #(es,2nd-half)[*]
  34.  
  35.  
  36. Name:Freadline-an
  37. [*]#(xy,#(++,##(B-readline-x),##(nc, arg1)),#(++,##(B-readline-y),1))
  38. #(sv,fc,4)
  39. #(ow,#(Fpad-with,,(##(value)##(2nd-half)), ,##(B-readline-len)))
  40. #(xy,#(++,##(B-readline-x),##(nc, arg1##(value))),#(++,##(B-readline-y),1))
  41. #(sv,fc,#(F-fore-color))
  42. [*]
  43.  
  44.  
  45. Name:B:input
  46. [*]#(Binput,10,12,Enter your name,40)[*]
  47.  
  48.  
  49. Name:B-readline-x
  50. [*]5[*]
  51.  
  52. Name:B-readline-y
  53. [*]12[*]
  54.  
  55. Name:B-readline-len
  56. [*]70[*]
  57.  
  58.  
  59. Name:Bbox
  60.   arg1 = left
  61.   arg2 = top
  62.   arg3 = right
  63.   arg4 = bottom
  64.   arg5 = title
  65. Test: #(Bbox,10,10,20,20,Foo)##(it,10000)
  66. [*]#(xy,arg1,arg2)
  67. #(ow,
  68.     ##(bc,218,d,a)
  69.     #(Fpad-with,,
  70.         #(Fpad-with,##(bc,196,d,a),arg5,,
  71.             ##(//,##(++,##(--,arg3,arg1),##(++,-1,##(nc,arg5))),2)),
  72.         ##(bc,196,d,a),
  73.         ##(--,##(--,arg3,arg1),1)
  74.     )
  75.     ##(bc,191,d,a)
  76. )
  77. #(Bbox-do,arg1,#(++,arg2,1),arg3,#(--,arg4,1),179,32,179)
  78. #(Bbox-do,arg1,arg4,arg3,arg4,192,196,217)
  79. [*]
  80.  
  81.  
  82. Name:Bbox-do
  83.   arg1 = left
  84.   arg2 = top
  85.   arg3 = right
  86.   arg4 = bottom
  87.   arg5 = left edge character value
  88.   arg6 = middle character value
  89.   arg7 = right edge character value
  90. [*]#(==,arg5,,,(
  91.     #(ds,temp,##(bc,arg5,d,a)#(Floop,##(bc,arg6,d,a),##(--,##(--,arg3,arg1),1))##(bc,arg7,d,a))
  92. ))
  93. #(g?,arg2,arg4,,(
  94.     #(xy,arg1,arg2)
  95.     #(ow,##(gn,temp,32767))
  96.     #(rs,temp)
  97.     #(SELF,arg1,##(++,arg2,1),arg3,arg4)
  98. ))
  99. [*]
  100.  
  101.  
  102.